diff options
author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2011-11-21 11:04:49 +0200 |
---|---|---|
committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2011-11-21 11:04:49 +0200 |
commit | dd58b45deaf2325c4411baa13fc71044face5673 (patch) | |
tree | 9767631bb68a64e2c312b27fad46c5ab2d473833 /prototypes | |
parent | 103708ec7ecee9b3710e845bfbebbc2018ff344d (diff) | |
download | fpGUI-dd58b45deaf2325c4411baa13fc71044face5673.tar.xz |
MDI: CaptureMouse and ReleaseMouse was called on the wrong widget.
The behavior is now correct under both X11 and GDI platforms.
Diffstat (limited to 'prototypes')
-rw-r--r-- | prototypes/mdi/fpg_mdi.pas | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/prototypes/mdi/fpg_mdi.pas b/prototypes/mdi/fpg_mdi.pas index b5e769b6..ac127a33 100644 --- a/prototypes/mdi/fpg_mdi.pas +++ b/prototypes/mdi/fpg_mdi.pas @@ -103,9 +103,7 @@ procedure TfpgMDIChildForm.TitleMouseUp(Sender: TObject; AButton: TMouseButton; AShift: TShiftState; const AMousePos: TPoint); begin FIsMouseDown := False; - {$IFDEF MSWINDOWS} - ReleaseMouse; - {$ENDIF} + Panel1.ReleaseMouse; end; procedure TfpgMDIChildForm.TitleMouseDown(Sender: TObject; AButton: TMouseButton; @@ -114,9 +112,7 @@ begin FMDIWorkArea.ActiveWindow := self; FIsMouseDown := True; FLastPos := Panel1.WindowToScreen(self, AMousePos); - {$IFDEF MSWINDOWS} - CaptureMouse; - {$ENDIF} + Panel1.CaptureMouse; end; procedure TfpgMDIChildForm.TitleMouseExit(Sender: TObject); |