diff options
| author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-07-24 20:57:52 +0000 |
|---|---|---|
| committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-07-24 20:57:52 +0000 |
| commit | 05e93fa995cd6b0543001e4d70be59538dfcdbc7 (patch) | |
| tree | 0a5d2e74f99e04ad7d8c279f208bccd2b69192f4 /src/corelib/gdi | |
| parent | 38831e0bb35c193376aace81430507e07883c61c (diff) | |
| download | fpGUI-05e93fa995cd6b0543001e4d70be59538dfcdbc7.tar.xz | |
Replaced some code that got undone in the previous revision regarding modal forms.
Diffstat (limited to 'src/corelib/gdi')
| -rw-r--r-- | src/corelib/gdi/gfx_gdi.pas | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/src/corelib/gdi/gfx_gdi.pas b/src/corelib/gdi/gfx_gdi.pas index dca5ce15..6aa7f910 100644 --- a/src/corelib/gdi/gfx_gdi.pas +++ b/src/corelib/gdi/gfx_gdi.pas @@ -868,7 +868,8 @@ procedure TfpgWindowImpl.DoSetWindowVisible(const AValue: Boolean); var r: TRect; begin - if AValue then begin + if AValue then + begin BringWindowToTop(FWinHandle); if FWindowType in [wtPopup] then @@ -883,13 +884,10 @@ begin FLeft := r.Left; FTop := r.Top; end; - Windows.UpdateWindow(FWinHandle); end - else begin + else Windows.ShowWindow(FWinHandle, SW_HIDE); - end; - end; procedure TfpgWindowImpl.DoMoveWindow(const x: TfpgCoord; const y: TfpgCoord); |