diff options
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; |