diff options
| author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-07-12 12:03:41 +0000 |
|---|---|---|
| committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-07-12 12:03:41 +0000 |
| commit | 4be664970bd1fddec7b97c2d9165f07bbbb52bcf (patch) | |
| tree | 0aeec66754133ddf21fc67a7a2927f40192bd0f1 /gfx/x11 | |
| parent | 638e37b2e65f90d0001877a1f2227b56a3d636b0 (diff) | |
| download | fpGUI-4be664970bd1fddec7b97c2d9165f07bbbb52bcf.tar.xz | |
GFX: demonstrates how the EvXXX events could be made protected.
Diffstat (limited to 'gfx/x11')
| -rw-r--r-- | gfx/x11/fpgfxpackage.pas | 2 | ||||
| -rw-r--r-- | gfx/x11/gfx_x11.pas | 11 |
2 files changed, 8 insertions, 5 deletions
diff --git a/gfx/x11/fpgfxpackage.pas b/gfx/x11/fpgfxpackage.pas index e3e60e76..f6e51e3b 100644 --- a/gfx/x11/fpgfxpackage.pas +++ b/gfx/x11/fpgfxpackage.pas @@ -7,7 +7,7 @@ unit fpgfxpackage; interface uses - GfxBase, GFX_X11, gfxinterface, schar16, unitkeys, fpgfx, GELImage, + GfxBase, GFX_X11, gfxinterface, schar16, unitkeys, fpgfx, GELDirty, GELImage, CommandLineParams, fpUTF8Utils; implementation diff --git a/gfx/x11/gfx_x11.pas b/gfx/x11/gfx_x11.pas index 8ee0aa5d..f438bf77 100644 --- a/gfx/x11/gfx_x11.pas +++ b/gfx/x11/gfx_x11.pas @@ -241,6 +241,9 @@ type procedure DoSetCursor; override; function GetHandle: PtrUInt; override; procedure UpdateMotifWMHints; + + { Event processing methods } + procedure EvPaint; override; public { Constructors / Destructors } constructor Create(AParent: TFCustomWindow; AWindowOptions: TFWindowOptions); override; @@ -269,7 +272,7 @@ type procedure EvMouseReleased(AButton: TMouseButton; const AMousePos: TPoint); override; procedure EvMouseMove(const AMousePos: TPoint); override; procedure EvMouseWheel(AWheelDelta: Single; const AMousePos: TPoint); override; - procedure EvPaint; override; +// procedure EvPaint; override; procedure EvMove; override; procedure EvResize; override; procedure EvShow; override; @@ -1011,7 +1014,7 @@ end; procedure TX11Application.Run; var XEvent: TXEvent; - WindowEntry: TFCustomWindow; + WindowEntry: TX11Window; MouseButton: TMouseButton; Sum: Integer; NewEvent: TXEvent; @@ -1041,7 +1044,7 @@ begin // According to a comment in X.h, the valid event types start with 2! if XEvent._type >= 2 then begin - WindowEntry := FindWindowByXID(XEvent.XAny.Window); + WindowEntry := TX11Window(FindWindowByXID(XEvent.XAny.Window)); if not Assigned(WindowEntry) then begin @@ -1049,7 +1052,7 @@ begin continue; end; - TX11Window(WindowEntry).FXEvent := @XEvent; + WindowEntry.FXEvent := @XEvent; case XEvent._type of X.DestroyNotify: |