diff options
| author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-03-20 12:06:24 +0000 |
|---|---|---|
| committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-03-20 12:06:24 +0000 |
| commit | 0e49b0dfcd4143988b7c5cd6094f821b709e36bd (patch) | |
| tree | 2a3874116cdaf2f539d79d8c504009e3eb907d79 /src/corelib/gdi | |
| parent | 1f7bbc75ab6a277868fe9ef7594e015db6295a45 (diff) | |
| download | fpGUI-0e49b0dfcd4143988b7c5cd6094f821b709e36bd.tar.xz | |
* Finally fixed the Windows bug in the UI Designer when you move components quickly in the design form. * Undone some changes I accidentily checked in in revision 634 regarding the newformdesigner.pas unit.
Diffstat (limited to 'src/corelib/gdi')
| -rw-r--r-- | src/corelib/gdi/gfx_gdi.pas | 20 |
1 files changed, 14 insertions, 6 deletions
diff --git a/src/corelib/gdi/gfx_gdi.pas b/src/corelib/gdi/gfx_gdi.pas index a1358b4b..d77c27c6 100644 --- a/src/corelib/gdi/gfx_gdi.pas +++ b/src/corelib/gdi/gfx_gdi.pas @@ -664,9 +664,14 @@ begin {$IFDEF DEBUG} writeln('fpGFX/GDI:', w.ClassName + ': MouseButtonDown event'); {$ENDIF} + // This is temporary and we should try and move it to + // the UI Designer code instead. + if (uMsg = WM_LBUTTONDOWN) and (w is TfpgWidget) then + begin + if TfpgWidget(w).FormDesigner <> nil then + w.CaptureMouse; + end; mcode := FPGM_MOUSEDOWN; -// if PopupListFirst = nil then -// SetCapture(w.WinHandle); end; WM_LBUTTONUP, @@ -676,12 +681,15 @@ begin {$IFDEF DEBUG} writeln('fpGFX/GDI:', w.ClassName + ': MouseButtonUp event'); {$ENDIF} + // This is temporary and we should try and move it to + // the UI Designer code instead. + if (uMsg = WM_LBUTTONUP) and (w is TfpgWidget) then + begin + if TfpgWidget(w).FormDesigner <> nil then + w.ReleaseMouse; + end; mcode := FPGM_MOUSEUP; -// if PopupListFirst = nil then -// ReleaseCapture; end; - //WM_LBUTTONDBLCLK: - //mcode := FPGM_DOUBLECLICK; else mcode := 0; end; |