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

fixed combobox createhandle

Browse Source 
git-svn-id: trunk@3646 -
This commit is contained in:
mattias 2002-11-17 00:18:11 +00:00
parent eb3bfa8718
commit 1b360dd18f
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/include/customcombobox.inc
View File

@ -27,7 +27,9 @@
Create the underlying interface-object.
------------------------------------------------------------------------------}
procedure TCustomComboBox.CreateHandle;
var NewStrings : TStrings;
var
NewStrings: TStrings;
OldText: string;
begin
inherited CreateHandle;
@ -35,7 +37,9 @@ begin
NewStrings:= TStrings(Pointer(CNSendMessage(LM_GETITEMS, Self, nil)));
// then delete internal list
if (FItems<>NewStrings) and (FItems<>nil) then begin
OldText:=Text;
NewStrings.Assign(FItems);
Text:=OldText;
FItems.Free;
end;
// and use the interface based list
@ -723,6 +727,9 @@ end;
{
$Log$
Revision 1.22 2002/11/17 00:18:11 mattias
fixed combobox createhandle
Revision 1.21 2002/11/15 23:40:40 mattias
added combobox createhandle old list assign