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

gtk2: clear content of combobox when setting ItemIndex to -1

Browse Source 
git-svn-id: trunk@34097 -
This commit is contained in:
blikblum 2011-12-10 21:41:49 +00:00
parent 14c6d767c7
commit b360e5a0bf
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/interfaces/gtk2/gtk2wsstdctrls.pp
View File

@ -1769,6 +1769,9 @@ begin
Inc(WidgetInfo^.ChangeLock);
gtk_combo_box_set_active(PGtkComboBox(p), NewIndex);
if (NewIndex = -1) and gtk_is_combo_box_entry(p) then
gtk_entry_set_text(PGtkEntry(GTK_BIN(p)^.child), PChar(''));
LCLIndex := WidgetInfo^.UserData;
if not Assigned(LCLIndex) then
begin