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

lcl: set default value for TStatusPanel.Alignment

Browse Source 
git-svn-id: trunk@17726 -
This commit is contained in:
paul 2008-12-08 10:27:07 +00:00
parent 910cfc5b20
commit 3596127a45
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/comctrls.pp
View File

@ -88,7 +88,7 @@ type
procedure Assign(Source: TPersistent); override;
function StatusBar: TStatusBar;
published
property Alignment: TAlignment read FAlignment write SetAlignment;
property Alignment: TAlignment read FAlignment write SetAlignment default taLeftJustify;
property Bevel: TStatusPanelBevel read FBevel write SetBevel default pbLowered;
property Style: TStatusPanelStyle read FStyle write SetStyle default psText;
property Text: string read FText write SetText;