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

(cherry picked from commit add8755ea8)
This commit is contained in:
Martin 2024-11-13 21:10:29 +01:00
parent c891537cc0
commit fe1284cb27

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;