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

rtticontrols: using new tcombobox.getItems

Browse Source 
git-svn-id: trunk@16315 -
This commit is contained in:
mattias 2008-08-30 21:26:34 +00:00
parent 0970d289f0
commit 23049dc161
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/rtticontrols/rttictrls.pas
View File

@ -464,7 +464,7 @@ Type
procedure LinkSaveToProperty(Sender: TObject); virtual; procedure LinkSaveToProperty(Sender: TObject); virtual;
procedure LinkEditorChanged(Sender: TObject); virtual; procedure LinkEditorChanged(Sender: TObject); virtual;
function LinkTestEditing(Sender: TObject): boolean; function LinkTestEditing(Sender: TObject): boolean;
procedure DropDown; override; procedure GetItems; override;
procedure DrawItem(Index: Integer; ARect: TRect; State: TOwnerDrawState); override; procedure DrawItem(Index: Integer; ARect: TRect; State: TOwnerDrawState); override;
public public
constructor Create(TheOwner: TComponent); override; constructor Create(TheOwner: TComponent); override;
@ -507,6 +507,7 @@ Type
property OnEditingDone; property OnEditingDone;
property OnEnter; property OnEnter;
property OnExit; property OnExit;
property OnGetItems;
property OnKeyDown; property OnKeyDown;
property OnKeyPress; property OnKeyPress;
property OnKeyUp; property OnKeyUp;
@ -2352,7 +2353,7 @@ begin
FLink.AssignCollectedAliasValuesTo(Items); FLink.AssignCollectedAliasValuesTo(Items);
end; end;
procedure TTICustomComboBox.DropDown; procedure TTICustomComboBox.GetItems;
var var
MaxItemWidth: LongInt; MaxItemWidth: LongInt;
Cnt: LongInt; Cnt: LongInt;