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

gtk2: update combo text only if has a edit box

Browse Source 
git-svn-id: trunk@34414 -
This commit is contained in:
blikblum 2011-12-25 20:07:31 +00:00
parent fc8fddcc53
commit 2d40e8a38c
1 changed files with 2 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1937,22 +1937,14 @@ class procedure TGtk2WSCustomComboBox.SetText(const AWinControl: TWinControl;
var
WidgetInfo: PWidgetInfo;
Entry: PGtkWidget;
Index: Integer;
begin
WidgetInfo := GetWidgetInfo(Pointer(AWinControl.Handle));
// we use user ChangeLock to not signal onchange
Inc(WidgetInfo^.ChangeLock);
if gtk_is_combo_box_entry(WidgetInfo^.CoreWidget) then begin
if gtk_is_combo_box_entry(WidgetInfo^.CoreWidget) then
begin
Entry := GTK_BIN(WidgetInfo^.CoreWidget)^.child;
gtk_entry_set_text(PGtkEntry(Entry), PChar(AText));
end
else begin
// if not an entry it is a readonly list so we will try to comply by matching the text to an item
if AText = '' then
Index := -1
else
Index := TCustomComboBox(AWinControl).Items.IndexOf(AText);
SetItemIndex(TCustomComboBox(AWinControl), Index);
end;
Dec(WidgetInfo^.ChangeLock);
end;