paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-28 09:03:50 +02: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 LinkEditorChanged(Sender: TObject); virtual;
function LinkTestEditing(Sender: TObject): boolean;
procedure DropDown; override;
procedure GetItems; override;
procedure DrawItem(Index: Integer; ARect: TRect; State: TOwnerDrawState); override;
public
constructor Create(TheOwner: TComponent); override;
@ -507,6 +507,7 @@ Type
property OnEditingDone;
property OnEnter;
property OnExit;
property OnGetItems;
property OnKeyDown;
property OnKeyPress;
property OnKeyUp;
@ -2352,7 +2353,7 @@ begin
FLink.AssignCollectedAliasValuesTo(Items);
end;
procedure TTICustomComboBox.DropDown;
procedure TTICustomComboBox.GetItems;
var
MaxItemWidth: LongInt;
Cnt: LongInt;