* Temporary workaround for TfpgForm under X11 fixing Alignment components. See comment in code for details.

1 files changed, 6 insertions, 0 deletions

diff --git a/src/gui/gui_form.pas b/src/gui/gui_form.pas
index 843345d1..438a675b 100644
--- a/src/gui/gui_form.pas
+++ b/src/gui/gui_form.pas
@@ -293,6 +293,12 @@ begin
   inherited HandleShow;
   if Assigned(FOnShow) then
     FOnShow(self);
+  {$IFDEF UNIX}
+  { TODO : A temporary work-around because XLib doesn't sent a Resize event
+    when the form is created. It's clever enough to size the form beforehand,
+    but without this call the Alignment code doesn't execute. }
+  inherited HandleResize(FWidth, FHeight);
+  {$ENDIF}
 end;
 
 procedure TfpgForm.HandleMove(x, y: TfpgCoord);