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/gdi/gfx_gdi.pas | |
parent | 638e37b2e65f90d0001877a1f2227b56a3d636b0 (diff) | |
download | fpGUI-4be664970bd1fddec7b97c2d9165f07bbbb52bcf.tar.xz |
GFX: demonstrates how the EvXXX events could be made protected.
Diffstat (limited to 'gfx/gdi/gfx_gdi.pas')
-rw-r--r-- | gfx/gdi/gfx_gdi.pas | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/gfx/gdi/gfx_gdi.pas b/gfx/gdi/gfx_gdi.pas index 2be9f903..b04a4bb7 100644 --- a/gfx/gdi/gfx_gdi.pas +++ b/gfx/gdi/gfx_gdi.pas @@ -189,6 +189,8 @@ type procedure UpdateWindowButtons; function DoMouseEnterLeaveCheck(uMsg, wParam, lParam: Cardinal): Boolean; procedure EvInternalPaint; + { Event processing methods } + procedure EvPaint; override; public { Constructors / Destructors } constructor Create(AParent: TFCustomWindow; AWindowOptions: TFWindowOptions); override; @@ -217,7 +219,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; @@ -1655,7 +1657,7 @@ begin { Execution of user paint code } - EvPaint(); + EvPaint; { Flushes the result to the screen } |