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

anchordocking: make DockBounds and DockParentClientSize read-only. They should not be written directly but only through UpdateDockBounds.

Browse Source 
git-svn-id: trunk@51384 -
This commit is contained in:
ondrej 2016-01-23 10:04:58 +00:00
parent 9f13b0b11a
commit aac3b6bdd8
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/anchordocking/anchordocking.pas
View File

@ -180,8 +180,8 @@ type
procedure MoveSplitter(Offset: integer); override; procedure MoveSplitter(Offset: integer); override;
public public
constructor Create(TheOwner: TComponent); override; constructor Create(TheOwner: TComponent); override;
property DockBounds: TRect read FDockBounds write FDockBounds; property DockBounds: TRect read FDockBounds;
property DockParentClientSize: TSize read FDockParentClientSize write FDockParentClientSize; property DockParentClientSize: TSize read FDockParentClientSize;
procedure UpdateDockBounds; procedure UpdateDockBounds;
procedure SetBounds(ALeft, ATop, AWidth, AHeight: integer); override; // any normal movement sets the DockBounds procedure SetBounds(ALeft, ATop, AWidth, AHeight: integer); override; // any normal movement sets the DockBounds
procedure SetBoundsPercentually; procedure SetBoundsPercentually;