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

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

Browse Source 
(cherry picked from commit add8755ea8)
This commit is contained in:
Martin 2024-11-13 21:10:29 +01:00
parent c891537cc0
commit fe1284cb27
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;