paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 15:30:52 +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. Create the underlying interface-object.
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
procedure TCustomComboBox.CreateHandle; procedure TCustomComboBox.CreateHandle;
var NewStrings : TStrings; var
NewStrings: TStrings;
OldText: string;
begin begin
inherited CreateHandle; inherited CreateHandle;
@ -35,7 +37,9 @@ begin
NewStrings:= TStrings(Pointer(CNSendMessage(LM_GETITEMS, Self, nil))); NewStrings:= TStrings(Pointer(CNSendMessage(LM_GETITEMS, Self, nil)));
// then delete internal list // then delete internal list
if (FItems<>NewStrings) and (FItems<>nil) then begin if (FItems<>NewStrings) and (FItems<>nil) then begin
OldText:=Text;
NewStrings.Assign(FItems); NewStrings.Assign(FItems);
Text:=OldText;
FItems.Free; FItems.Free;
end; end;
// and use the interface based list // and use the interface based list
@ -723,6 +727,9 @@ end;
{ {
$Log$ $Log$
Revision 1.22 2002/11/17 00:18:11 mattias
fixed combobox createhandle
Revision 1.21 2002/11/15 23:40:40 mattias Revision 1.21 2002/11/15 23:40:40 mattias
added combobox createhandle old list assign added combobox createhandle old list assign