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

1 files changed, 6 insertions, 0 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);