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

AnchorDocking: Ensure splitters are in the parents clientrect.

Browse Source 
Workaround for:
- Splitters at the far right/bottom use "splitter left side"=99.99% which move the splitter out, if the main window shrinks
- Issue #41178
This commit is contained in:
Martin 2024-11-20 13:44:33 +01:00
parent 107d8dbeae
commit 2031d9ec48
1 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
components/anchordocking/anchordocking.pas
View File

@ -243,6 +243,7 @@ type
property DockParentClientSize: TSize read FDockParentClientSize;
procedure UpdateDockBounds;
property AsyncUpdateDockBounds: boolean read FAsyncUpdateDockBounds write SetAsyncUpdateDockBounds;
procedure ConstrainBounds(var ALeft, ATop, AWidth, AHeight: integer);
procedure SetBounds(ALeft, ATop, AWidth, AHeight: integer); override; // any normal movement sets the DockBounds
procedure SetBoundsPercentually;
procedure SetBoundsKeepDockBounds(ALeft, ATop, AWidth, AHeight: integer); // movement for scaling keeps the DockBounds
@ -7974,6 +7975,24 @@ begin
UpdatePercentPosition;
end;
procedure TAnchorDockSplitter.ConstrainBounds(var ALeft, ATop, AWidth, AHeight: integer);
begin
if Parent = nil then
exit;
if not (akRight in Anchors) then begin
if ALeft + AWidth > Parent.ClientWidth then
ALeft := Parent.ClientWidth - AWidth;
if ALeft < 0 then
ALeft := 0;
end;
if not (akBottom in Anchors) then begin
if ATop + AHeight > Parent.ClientHeight then
ATop := Parent.ClientHeight - AHeight;
if ATop < 0 then
ATop := 0;
end;
end;
procedure TAnchorDockSplitter.UpdatePercentPosition;
begin
case ResizeAnchor of
@ -8004,6 +8023,7 @@ procedure TAnchorDockSplitter.SetBounds(ALeft, ATop, AWidth, AHeight: integer);
begin
DisableAutoSizing{$IFDEF DebugDisableAutoSizing}('TAnchorDockSplitter.SetBounds'){$ENDIF};
try
ConstrainBounds(ALeft, ATop, AWidth, AHeight);
inherited SetBounds(ALeft, ATop, AWidth, AHeight);
UpdateDockBounds;
finally
@ -8013,6 +8033,7 @@ end;
procedure TAnchorDockSplitter.SetBoundsKeepDockBounds(ALeft, ATop, AWidth, AHeight: integer);
begin
ConstrainBounds(ALeft, ATop, AWidth, AHeight);
inherited SetBounds(ALeft,ATop,AWidth,AHeight);
end;