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

lcl: set some defaults for TCombobox properties (by Alexander S. Klenin, issue #0013772)

Browse Source 
git-svn-id: trunk@20103 -
This commit is contained in:
paul 2009-05-21 12:20:11 +00:00
parent b74111c319
commit f8c5dc7b12
2 changed files with 17 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/include/customcombobox.inc
View File

@ -758,13 +758,14 @@ begin
SetInitialBounds(0,0,GetControlClassDefaultSize.X,GetControlClassDefaultSize.Y);
FItems := TStringlist.Create;
FItemIndex := -1;
FItemWidth := 0;
FMaxLength := 0;
FDropDownCount := 8;
FCanvas := TControlCanvas.Create;
TControlCanvas(FCanvas).Control := Self;
ArrowKeysTraverseList := True;
TabStop := true;
ParentColor := false;
TabStop := True;
ParentColor := False;
FAutoCompleteText := DefaultComboBoxAutoCompleteText;
FAutoSelect := False;
FAutoSelected := False;

5
lcl/stdctrls.pp
View File

@ -343,7 +343,7 @@ type
function SelectItem(const AnItem: String): Boolean;
property ItemHeight: Integer read GetItemHeight write SetItemHeight;
property ItemWidth: Integer read GetItemWidth write SetItemWidth;
property ItemWidth: Integer read GetItemWidth write SetItemWidth default 0;
property MaxLength: integer read GetMaxLength write SetMaxLength default 0;
property OnChange: TNotifyEvent read FOnChange write FOnChange;
property OnCloseUp: TNotifyEvent read FOnCloseUp write FOnCloseUp;
@ -370,7 +370,8 @@ type
property DroppedDown: Boolean read GetDroppedDown write SetDroppedDown;
procedure MeasureItem(Index: Integer; var TheHeight: Integer); virtual;
procedure SelectAll;
property AutoComplete: boolean read GetAutoComplete write SetAutoComplete;
property AutoComplete: boolean
read GetAutoComplete write SetAutoComplete default False;
property AutoCompleteText: TComboBoxAutoCompleteText
read FAutoCompleteText write FAutoCompleteText
default DefaultComboBoxAutoCompleteText;