paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 09:59:23 +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 public
// standard properties, which should be supported by all descendants // standard properties, which should be supported by all descendants
property Action: TBasicAction read GetAction write SetAction; 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 Anchors: TAnchors read FAnchors write SetAnchors stored IsAnchorsStored;
property AnchorSide[Kind: TAnchorKind]: TAnchorSide read GetAnchorSide; property AnchorSide[Kind: TAnchorKind]: TAnchorSide read GetAnchorSide;
property AutoSize: Boolean read FAutoSize write SetAutoSize default False; property AutoSize: Boolean read FAutoSize write SetAutoSize default False;

3
lcl/forms.pp
View File

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