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

lcl: add comments why Left, Top, Height, Width have no default values

Browse Source 
git-svn-id: trunk@19632 -
This commit is contained in:
paul 2009-04-26 12:54:56 +00:00
parent 78973488a9
commit 670a37d8c4
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/controls.pp
View File

@ -1357,11 +1357,11 @@ type
property AnchorSideRight: TAnchorSide index 2 read GetAnchorSideIndex write SetAnchorSideIndex;
property AnchorSideBottom: TAnchorSide index 3 read GetAnchorSideIndex write SetAnchorSideIndex;
property Cursor: TCursor read GetCursor write SetCursor default crDefault;
property Left: Integer read FLeft write SetLeft;
property Height: Integer read FHeight write SetHeight;
property Left: Integer read FLeft write SetLeft; // no default value - controls usually placed to different positions
property Height: Integer read FHeight write SetHeight; // no default value - controls usually have differnt sizes
property Hint: TTranslateString read FHint write SetHint stored IsHintStored;
property Top: Integer read FTop write SetTop;
property Width: Integer read FWidth write SetWidth;
property Top: Integer read FTop write SetTop; // no default value - controls usually placed to different positions
property Width: Integer read FWidth write SetWidth; // no default value - controls usually have differnt sizes
property HelpType: THelpType read FHelpType write FHelpType default htContext;
property HelpKeyword: String read FHelpKeyword write SetHelpKeyword stored IsHelpKeyWordStored;
property HelpContext: THelpContext read FHelpContext write SetHelpContext stored IsHelpContextStored default 0;