paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 21:41:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: anchordocking: updating title on restore

Browse Source 
git-svn-id: trunk@14022 -
This commit is contained in:
mattias 2008-02-07 19:02:26 +00:00
parent 348cc7798a
commit 1337670e24
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/ldockctrl.pas
View File

@ -1007,6 +1007,7 @@ begin
else
ShrinkNeighbourhood(Layout,Control,[akTop,akBottom]);
FixControlBounds(Layout,Control);
Manager.Manager.UpdateTitlePosition(Control);
finally
Neighbours.Free;

2
lcl/ldocktree.pas
View File

@ -174,7 +174,6 @@ type
procedure DeleteDockForm(ADockForm: TLazDockForm);
function GetAnchorDepth(AControl: TControl; Side: TAnchorKind): Integer;
function GetPreferredTitlePosition(AWidth, AHeight: integer): TAnchorKind;
procedure UpdateTitlePosition(Control: TControl);
public
constructor Create;
procedure BeginUpdate; override;
@ -197,6 +196,7 @@ type
property SplitterSize: integer read FSplitterSize write FSplitterSize default 5;
property TitleWidth: integer read FTitleWidth write FTitleWidth default 20;
property TitleHeight: integer read FTitleHeight write FTitleHeight default 20;
procedure UpdateTitlePosition(Control: TControl);
procedure LoadFromStream(Stream: TStream); override;// not implemented
procedure PaintSite(DC: HDC); override;// not implemented