paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-30 01:51:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: set default values for TListView.SortColumn, TListView.SortType, TListColumn.AutoSize

Browse Source 
git-svn-id: trunk@18931 -
This commit is contained in:
paul 2009-03-09 15:40:29 +00:00
parent b0938be4da
commit 80b7122c67
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/comctrls.pp
View File

@ -802,7 +802,7 @@ type
procedure Assign(ASource: TPersistent); override;
published
property Alignment: TAlignment read FAlignment write SetAlignment default taLeftJustify;
property AutoSize: Boolean read FAutoSize write SetAutoSize;
property AutoSize: Boolean read FAutoSize write SetAutoSize default False;
property Caption: TTranslateString read FCaption write SetCaption;
property ImageIndex: TImageIndex read FImageIndex write SetImageIndex default -1;
property MaxWidth: TWidth read FMaxWidth write SetMaxWidth default 0;
@ -1017,8 +1017,8 @@ type
property ShowColumnHeaders: Boolean index Ord(lvpShowColumnHeaders) read GetProperty write SetProperty default True;
property ShowWorkAreas: Boolean index Ord(lvpShowWorkAreas) read GetProperty write SetProperty default False;
property SmallImages: TCustomImageList index Ord(lvilSmall) read GetImageList write SetImageList;
property SortType: TSortType read FSortType write SetSortType;
property SortColumn: Integer read FSortColumn write SetSortColumn;
property SortType: TSortType read FSortType write SetSortType default stNone;
property SortColumn: Integer read FSortColumn write SetSortColumn default 0;
property StateImages: TCustomImageList index Ord(lvilState) read GetImageList write SetImageList;
property ToolTips: Boolean index Ord(lvpToolTips) read GetProperty write SetProperty default True;
property ViewStyle: TViewStyle read FViewStyle write SetViewStyle default vsList;