diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-05-17 09:40:33 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-05-17 09:40:33 +0200 |
| commit | 8572cf76297b7085f002c3fcb776b003eb4a233e (patch) | |
| tree | 7a8f0e6b84d16bfedaa8868410aad400aa560a28 | |
| parent | 8aa1bb16011e625e672ff832b4c3456fa68049e9 (diff) | |
| download | fpGUI-8572cf76297b7085f002c3fcb776b003eb4a233e.tar.xz | |
GDI: did not handle waBorderLess window attribute.
| -rw-r--r-- | src/corelib/gdi/fpg_gdi.pas | 3 | ||||
| -rw-r--r-- | src/corelib/x11/fpg_x11.pas | 1 |
2 files changed, 4 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); diff --git a/src/corelib/x11/fpg_x11.pas b/src/corelib/x11/fpg_x11.pas index 24c5d3c3..26c61a69 100644 --- a/src/corelib/x11/fpg_x11.pas +++ b/src/corelib/x11/fpg_x11.pas @@ -1398,6 +1398,7 @@ begin end; AdjustWindowStyle; + wh := XCreateWindow(xapplication.Display, pwh, FLeft, FTop, FWidth, FHeight, 0, CopyFromParent, |