paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-19 23:49:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

DockedFormEditor: FIX: wrong form height with MainMenu on Gtk2 (#38701 #40077)

Browse Source
This commit is contained in:
rich2014 2023-02-02 23:16:53 +08:00 committed by Maxim Ganetsky
parent 0ff3bc177c
commit b4e78b4349
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/dockedformeditor/source/dockedresizecontrol.pas
View File

@ -105,6 +105,7 @@ begin
+ Abs(FDesignForm.Form.Left)
+ FDesignForm.ClientOffset.X;
LHeight := FDesignForm.Form.Height
+ FakeMenu.Height
+ Abs(FDesignForm.Form.Top)
+ FDesignForm.ClientOffset.Y;
FormContainer.SetBounds(LLeft, LTop, LWidth, LHeight);
@ -422,7 +423,7 @@ var
begin
if FDesignForm = nil then Exit;
LWidth := FDesignForm.Width + 2 * SizerGripSize;
LHeight := FDesignForm.Height + 2 * SizerGripSize;
LHeight := FDesignForm.Height + 2 * SizerGripSize + FakeMenu.Height;
{$IFDEF DEBUGDOCKEDFORMEDITOR} DebugLn('TResizeControl.AdjustBounds: New ResizeControl Width:', DbgS(Width), ' Height: ', DbgS(Height)); {$ENDIF}
FResizeContainer.SetBounds(-ScrollOffset.x, -ScrollOffset.y, LWidth, LHeight);
AdjustFormContainer;
@ -436,11 +437,11 @@ begin
if FormClient.Visible then
begin
FNewFormSize.X := FormClient.Width;
FNewFormSize.Y := FormClient.Height + FakeMenu.Height;
FNewFormSize.Y := FormClient.Height;
end else if AnchorContainer.Visible then
begin
FNewFormSize.X := AnchorContainer.Width;
FNewFormSize.Y := AnchorContainer.Height + FakeMenu.Height;
FNewFormSize.Y := AnchorContainer.Height;
end;
end;