diff options
| author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-01-21 14:48:49 +0000 |
|---|---|---|
| committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-01-21 14:48:49 +0000 |
| commit | 1952a8ae0c2b5351939d663fd62e0d9069c93559 (patch) | |
| tree | 2f7e022025be955e436241764da026a94a9c5989 /src/corelib/gdi | |
| parent | 8d23789d877af358edb1aeca75e42e6953f0179f (diff) | |
| download | fpGUI-1952a8ae0c2b5351939d663fd62e0d9069c93559.tar.xz | |
* GDI: Fixed index out of bounds errors in ComboBox.
* GDI: Mouse up/down click now works similar to X11.
* GDI: I still have prenty of debug writeln() statements
and will only remove them once my testing is complete.
Diffstat (limited to 'src/corelib/gdi')
| -rw-r--r-- | src/corelib/gdi/gfx_gdi.pas | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/corelib/gdi/gfx_gdi.pas b/src/corelib/gdi/gfx_gdi.pas index bb89c8d2..e0f44349 100644 --- a/src/corelib/gdi/gfx_gdi.pas +++ b/src/corelib/gdi/gfx_gdi.pas @@ -533,7 +533,9 @@ begin pw := mw; while (pw <> nil) and (pw.Parent <> nil) do pw := TfpgWindowImpl(pw.Parent); - if ((pw = nil) or (PopupListFind(pw.WinHandle) = nil)) and (not PopupDontCloseWidget(TfpgWidget(mw))) and + + if ((pw = nil) or (PopupListFind(pw.WinHandle) = nil)) and + (not PopupDontCloseWidget(TfpgWidget(mw))) and ((uMsg = WM_LBUTTONDOWN) or (uMsg = WM_LBUTTONUP)) then begin ClosePopups; |