X11: fake a Resize event after the window is mapped (shown).

X11 seems too efficient, so one the initial mapping of the window
to the display, no resize event needs to occur, and it doesn't.
This screws with Align property which expects as Resize event (like
Windows GDI). So we fake a resize event.

1 files changed, 9 insertions, 0 deletions

diff --git a/src/corelib/x11/fpg_x11.pas b/src/corelib/x11/fpg_x11.pas
index 24fa599c..a5fb68e0 100644
--- a/src/corelib/x11/fpg_x11.pas
+++ b/src/corelib/x11/fpg_x11.pas
@@ -1902,6 +1902,15 @@ begin
           w := FindWindowByHandle(ev.xmap.window);
           if w <> nil then
             Include(w.FWinFlags, xwsfMapped);
+
+          { X11 is too efficient, so new windows don't need a OnResize when mapped,
+            but because Windows GDI does so, we want the same events under X11.
+            Lets fake one. }
+          msgp.rect.Left   := w.Left;
+          msgp.rect.Top    := w.Top;
+          msgp.rect.Width  := w.Width;
+          msgp.rect.Height := w.Height;
+          fpgPostMessage(nil, w, FPGM_RESIZE, msgp);
         end;
 
     X.UnmapNotify: