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

lcl: set default values for some properties

Browse Source 
git-svn-id: trunk@17403 -
This commit is contained in:
paul 2008-11-16 02:21:19 +00:00
parent a024e783ba
commit 0392c33c7f
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/controls.pp
View File

@ -1238,7 +1238,7 @@ type
public
// standard properties, which should be supported by all descendants
property Action: TBasicAction read GetAction write SetAction;
property Align: TAlign read FAlign write SetAlign;
property Align: TAlign read FAlign write SetAlign default alNone;
property Anchors: TAnchors read FAnchors write SetAnchors stored IsAnchorsStored;
property AnchorSide[Kind: TAnchorKind]: TAnchorSide read GetAnchorSide;
property AutoSize: Boolean read FAutoSize write SetAutoSize default False;

3
lcl/forms.pp
View File

@ -562,7 +562,7 @@ type
stored IsHelpFileStored;
property Icon: TIcon read FIcon write SetIcon stored IsIconStored;
property KeyPreview: Boolean read FKeyPreview write FKeyPreview
stored IsKeyPreviewStored;
stored IsKeyPreviewStored default False;
property Menu : TMainMenu read FMenu write SetMenu;
property ModalResult : TModalResult read FModalResult write SetModalResult;
property OnActivate: TNotifyEvent read FOnActivate write FOnActivate;
@ -580,6 +580,7 @@ type
property OnShow: TNotifyEvent read FOnShow write FOnShow;
property OnWindowStateChange: TNotifyEvent
read fOnWindowStateChange write fOnWindowStateChange;
property ParentFont default False;
property PixelsPerInch: Longint read GetPixelsPerInch write FPixelsPerInch stored False;
property Position: TPosition read FPosition write SetPosition default poDesigned;
property RestoredLeft: integer read GetRestoredLeft;