paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-22 11:28:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

made some protected TCustomCombobox properties public, so they can be used by the win32 widget set.

Browse Source 
git-svn-id: trunk@6381 -
This commit is contained in:
vincents 2004-12-16 20:13:27 +00:00
parent 915ad368a1
commit 64233e8c71
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/stdctrls.pp
View File

@ -264,9 +264,7 @@ type
procedure KeyDown(var Key: Word; Shift: TShiftState); override; procedure KeyDown(var Key: Word; Shift: TShiftState); override;
property DropDownCount: Integer read FDropDownCount write SetDropDownCount default 8; property DropDownCount: Integer read FDropDownCount write SetDropDownCount default 8;
property Items: TStrings read FItems write SetItems;
property ItemHeight: Integer read GetItemHeight write SetItemHeight; property ItemHeight: Integer read GetItemHeight write SetItemHeight;
property ItemIndex: integer read GetItemIndex write SetItemIndex;
property ItemWidth: Integer read GetItemWidth write SetItemWidth; property ItemWidth: Integer read GetItemWidth write SetItemWidth;
property MaxLength: integer read GetMaxLength write SetMaxLength default -1; property MaxLength: integer read GetMaxLength write SetMaxLength default -1;
property OnChange: TNotifyEvent read FOnChange write FOnChange; property OnChange: TNotifyEvent read FOnChange write FOnChange;
@ -296,10 +294,13 @@ type
property ArrowKeysTraverseList: Boolean read FArrowKeysTraverseList property ArrowKeysTraverseList: Boolean read FArrowKeysTraverseList
write SetArrowKeysTraverseList default True; write SetArrowKeysTraverseList default True;
property Canvas: TCanvas read FCanvas; property Canvas: TCanvas read FCanvas;
property Items: TStrings read FItems write SetItems;
property ItemIndex: integer read GetItemIndex write SetItemIndex;
property SelLength: integer read GetSelLength write SetSelLength; property SelLength: integer read GetSelLength write SetSelLength;
property SelStart: integer read GetSelStart write SetSelStart; property SelStart: integer read GetSelStart write SetSelStart;
property SelText: String read GetSelText write SetSelText; property SelText: String read GetSelText write SetSelText;
property Style: TComboBoxStyle read FStyle write SetStyle; property Style: TComboBoxStyle read FStyle write SetStyle;
property Text;
published published
property TabStop default true; property TabStop default true;
end; end;
@ -1182,6 +1183,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.173 2004/12/16 20:13:27 vincents
made some protected TCustomCombobox properties public, so they can be used by the win32 widget set.
Revision 1.172 2004/12/13 16:43:37 mattias Revision 1.172 2004/12/13 16:43:37 mattias
fixed loading project flags and added RTTI example for readonly properties fixed loading project flags and added RTTI example for readonly properties