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

anchordocking: fixed header align

Browse Source 
git-svn-id: trunk@26057 -
This commit is contained in:
mattias 2010-06-12 12:08:07 +00:00
parent df6be380e3
commit 0ee2f904ac
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
examples/anchordocking/anchordocking.pas
View File

@ -517,14 +517,14 @@ procedure TAnchorDockMaster.SetHeaderAlignLeft(const AValue: integer);
begin
if FHeaderAlignLeft=AValue then exit;
FHeaderAlignLeft:=AValue;
FHeaderAlignTop:=Max(FHeaderAlignLeft+1,FHeaderAlignTop);
FHeaderAlignTop:=Min(FHeaderAlignLeft-1,FHeaderAlignTop);
end;
procedure TAnchorDockMaster.SetHeaderAlignTop(const AValue: integer);
begin
if FHeaderAlignTop=AValue then exit;
FHeaderAlignTop:=AValue;
FHeaderAlignLeft:=Min(FHeaderAlignTop-1,FHeaderAlignLeft);
FHeaderAlignLeft:=Max(FHeaderAlignTop+1,FHeaderAlignLeft);
end;
function TAnchorDockMaster.CloseUnneededControls(Tree: TAnchorDockLayoutTree