From fe1284cb27a5a908c67ec207a98708f3181b104e Mon Sep 17 00:00:00 2001
From: Martin <laz.git@mfriebe.de>
Date: Wed, 13 Nov 2024 21:10:29 +0100
Subject: [PATCH] DockedFormEditor: Adjust scrollbar for "fake" main-menu. Pull
 Request !380

(cherry picked from commit add8755ea8f390b1f3ebabdaeecc2c480a200623)
---
 components/dockedformeditor/source/dockedresizer.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/components/dockedformeditor/source/dockedresizer.pas b/components/dockedformeditor/source/dockedresizer.pas
index 07b9eeac06..7749d373f3 100644
--- a/components/dockedformeditor/source/dockedresizer.pas
+++ b/components/dockedformeditor/source/dockedresizer.pas
@@ -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;