diff options
Diffstat (limited to 'src/corelib/gdi/fpg_gdi.pas')
| -rw-r--r-- | src/corelib/gdi/fpg_gdi.pas | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/corelib/gdi/fpg_gdi.pas b/src/corelib/gdi/fpg_gdi.pas index 0b4ab441..df10d0a6 100644 --- a/src/corelib/gdi/fpg_gdi.pas +++ b/src/corelib/gdi/fpg_gdi.pas @@ -1403,6 +1403,9 @@ begin AdjustWindowStyle; + if ((WindowType = wtWindow) or (WindowType = wtModalForm)) and (waBorderLess in FWindowAttributes) then + FWinStyle := WS_POPUP; // this is different to wtPopop (toolwindow, hint window) because it can steal focus like a normal form + if waAutoPos in FWindowAttributes then begin FLeft := TfpgCoord(CW_USEDEFAULT); |