mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-09-21 13:00:01 +02:00
MG: fixed resetting comobobox text
git-svn-id: trunk@874 -
This commit is contained in:
parent
c3a37da303
commit
5f5ad40a22
@ -88,8 +88,11 @@ begin
|
|||||||
SavedText:=nil;
|
SavedText:=nil;
|
||||||
gtk_object_set_data(PgtkObject(ComboWidget),'LCLOldText',SavedText);
|
gtk_object_set_data(PgtkObject(ComboWidget),'LCLOldText',SavedText);
|
||||||
// set new text
|
// set new text
|
||||||
|
//writeln('SetComboBoxText: "',NewText,'"');
|
||||||
if NewText<>nil then
|
if NewText<>nil then
|
||||||
gtk_entry_set_text(PGtkEntry(ComboWidget^.entry), NewText);
|
gtk_entry_set_text(PGtkEntry(ComboWidget^.entry), NewText)
|
||||||
|
else
|
||||||
|
gtk_entry_set_text(PGtkEntry(ComboWidget^.entry), #0);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
{------------------------------------------------------------------------------
|
{------------------------------------------------------------------------------
|
||||||
@ -2633,6 +2636,9 @@ end;
|
|||||||
{ =============================================================================
|
{ =============================================================================
|
||||||
|
|
||||||
$Log$
|
$Log$
|
||||||
|
Revision 1.81 2002/08/31 07:58:22 lazarus
|
||||||
|
MG: fixed resetting comobobox text
|
||||||
|
|
||||||
Revision 1.80 2002/08/30 12:32:23 lazarus
|
Revision 1.80 2002/08/30 12:32:23 lazarus
|
||||||
MG: MoveWindowOrgEx, Splitted FWinControls/FControls, TControl drawing, Better DesignerDrawing, ...
|
MG: MoveWindowOrgEx, Splitted FWinControls/FControls, TControl drawing, Better DesignerDrawing, ...
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user