diff options
| author | sekelsenmat <sekelsenmat@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-07-12 07:15:02 +0000 |
|---|---|---|
| committer | sekelsenmat <sekelsenmat@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-07-12 07:15:02 +0000 |
| commit | 69e6c6fc970d14602875f290f9fcb3cfff2911bb (patch) | |
| tree | 8bb3fd33ad0dbeab2791eccbf48772dc04c13e56 /prototypes | |
| parent | 0b1c5f7ce659f63f00f3b7c408871bd35e6f7456 (diff) | |
| download | fpGUI-69e6c6fc970d14602875f290f9fcb3cfff2911bb.tar.xz | |
Implemented a better Invalidate for X11 and fixed mouse release on X11
Diffstat (limited to 'prototypes')
| -rw-r--r-- | prototypes/newmultihandle/gui_button.inc | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/prototypes/newmultihandle/gui_button.inc b/prototypes/newmultihandle/gui_button.inc index e79b8748..b12bbf8a 100644 --- a/prototypes/newmultihandle/gui_button.inc +++ b/prototypes/newmultihandle/gui_button.inc @@ -80,6 +80,8 @@ end; procedure TFButton.EvMousePressed(AButton: TMouseButton; const AMousePos: TPoint ); begin + WriteLn('Mouse Pressed'); + FIsPressed := True; Invalidate; @@ -90,6 +92,8 @@ end; procedure TFButton.EvMouseReleased(AButton: TMouseButton; const AMousePos: TPoint); begin + WriteLn('Mouse Released'); + FIsPressed := False; Invalidate; |