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

sort combobox items in own stringlist when no handle allocated yet

Browse Source 
git-svn-id: trunk@6993 -
This commit is contained in:
micha 2005-03-19 12:40:42 +00:00
parent 69ff42b3ae
commit 212edd1edb
1 changed files with 17 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lcl/include/customcombobox.inc
View File

@ -799,15 +799,30 @@ end;
procedure TCustomComboBox.UpdateSorted;
------------------------------------------------------------------------------}
procedure TCustomComboBox.UpdateSorted;
var
lText: string;
begin
if not HandleAllocated then exit;
TWSCustomComboBoxClass(WidgetSetClass).Sort(Self, Items, FSorted);
if HandleAllocated then
TWSCustomComboBoxClass(WidgetSetClass).Sort(Self, Items, FSorted)
else if FItems is TStringList then
begin
if FSorted then
begin
// remember text
lText := Text;
TStringList(FItems).Sorted := FSorted;
ItemIndex := FItems.IndexOf(lText);
end;
end;
end;
// included by stdctrls.pp
{
$Log$
Revision 1.59 2005/03/19 12:40:42 micha
sort combobox items in own stringlist when no handle allocated yet
Revision 1.58 2005/03/10 09:02:11 mattias
handle tab key in ControlKeyDown in TCustomEdit and TCustomComboBox