diff options
| author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-02-26 12:42:11 +0000 |
|---|---|---|
| committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-02-26 12:42:11 +0000 |
| commit | 1ee3c9f9b3a5955330648cec0a6e779f27761979 (patch) | |
| tree | df223cba25238e20f6e5fc4ff92ada44262228cd | |
| parent | e31752284d78a71eb5c68cad677eedc0df227f04 (diff) | |
| download | fpGUI-1ee3c9f9b3a5955330648cec0a6e779f27761979.tar.xz | |
Minor GDI fix for popup windows.
| -rw-r--r-- | src/corelib/gdi/gfx_gdi.pas | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/corelib/gdi/gfx_gdi.pas b/src/corelib/gdi/gfx_gdi.pas index 09802c57..05ed1af2 100644 --- a/src/corelib/gdi/gfx_gdi.pas +++ b/src/corelib/gdi/gfx_gdi.pas @@ -808,8 +808,8 @@ begin writeln(' Blockmsg = True (part 1) : ' + PopupListFirst.ClassName); {$ENDIF} // This is ugly but needed for now to get TfpgCombobox to work -// if PopupListFirst.ClassName <> 'TDropDownWindow' then - if not (PopupListFirst is TfpgPopupWindow) then + if (PopupListFirst.ClassName <> 'TDropDownWindow') then +// if not (PopupListFirst is TfpgPopupWindow) then blockmsg := True; end else if (wapplication.TopModalForm <> nil) then |