paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-28 01:10:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

DockedFormEditor: Adjust scrollbar for "fake" main-menu. Pull Request !380

Browse Source
This commit is contained in:
Martin 2024-11-13 21:10:29 +01:00
parent d461637604
commit add8755ea8
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/dockedformeditor/source/dockedresizer.pas
View File

@ -257,7 +257,7 @@ begin
end;
LWidth := FDesignForm.Width + 2 * ResizeControl.SizerGripSize;
LHeight := FDesignForm.Height + 2 * ResizeControl.SizerGripSize;
LHeight := FDesignForm.Height + 2 * ResizeControl.SizerGripSize + ResizeControl.FakeMenu.Height;
{$IFDEF DEBUGDOCKEDFORMEDITOR} DebugLn('TResizer.AdjustResizer Resizer Width:', DbgS(LWidth), ' Height:', DbgS(LHeight)); {$ENDIF}
FPostponedAdjustResizeControl := True;