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

LCL: Adding default values for properties of the THeaderSection class

Browse Source
This commit is contained in:
n7800 2024-09-27 01:56:32 +05:00 committed by Juha Manninen
parent 6a9198033c
commit c0b0fb81df
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/comctrls.pp
View File

@ -3984,13 +3984,13 @@ type
//index which doesn't change when the user reorders the sections //index which doesn't change when the user reorders the sections
property OriginalIndex: Integer read FOriginalIndex; property OriginalIndex: Integer read FOriginalIndex;
published published
property Alignment: TAlignment read FAlignment write SetAlignment; property Alignment: TAlignment read FAlignment write SetAlignment default taLeftJustify;
property ImageIndex: TImageIndex read FImageIndex write SetImageIndex default -1; property ImageIndex: TImageIndex read FImageIndex write SetImageIndex default -1;
property MaxWidth: Integer read FMaxWidth write SetMaxWidth default 10000; property MaxWidth: Integer read FMaxWidth write SetMaxWidth default 10000;
property MinWidth: Integer read FMinWidth write SetMinWidth default 0; property MinWidth: Integer read FMinWidth write SetMinWidth default 0;
property Text: TCaption read FText write SetText; property Text: TCaption read FText write SetText;
property Width: Integer read GetWidth write SetWidth; property Width: Integer read GetWidth write SetWidth;
property Visible: Boolean read FVisible write SetVisible; property Visible: Boolean read FVisible write SetVisible default true;
end; end;
THeaderSectionClass = class of THeaderSection; THeaderSectionClass = class of THeaderSection;