* A slight fix for X11 resizing forms with the mouse and alignment processing.

2 files changed, 15 insertions, 1 deletions

diff --git a/src/corelib/gfx_widget.pas b/src/corelib/gfx_widget.pas
index 03df3577..d76e88cb 100644
--- a/src/corelib/gfx_widget.pas
+++ b/src/corelib/gfx_widget.pas
@@ -890,9 +890,15 @@ begin
 end;
 
 procedure TfpgWidget.MsgResize(var msg: TfpgMessageRec);
+var
+  dw: integer;
+  dh: integer;
 begin
 //  writeln('MsgResize - ', Classname);
+  dw      := msg.Params.rect.Width - FWidth;
+  dh      := msg.Params.rect.Height - FHeight;
   HandleResize(msg.Params.rect.Width, msg.Params.rect.Height);
+  HandleAlignments(dw, dh);
   if FFormDesigner <> nil then
   begin
     FFormDesigner.Dispatch(msg);
diff --git a/src/gui/gui_form.pas b/src/gui/gui_form.pas
index b75a5638..3227deef 100644
--- a/src/gui/gui_form.pas
+++ b/src/gui/gui_form.pas
@@ -321,6 +321,11 @@ begin
 end;
 
 procedure TfpgBaseForm.HandleShow;
+{$IFDEF LINUX}
+var
+  dw: integer;
+  dh: integer;
+{$ENDIF}
 begin
   inherited HandleShow;
   if Assigned(FOnShow) then
@@ -329,7 +334,10 @@ begin
   { 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);
+
+//  dw      := FPrevWidth - FWidth;
+//  dh      := FPrevHeight - FHeight;
+//  HandleAlignments(0, 0);
   {$ENDIF}
 end;