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

Gtk2: fixed assertion from gtk2 library. issue #23099

Browse Source 
git-svn-id: trunk@39035 -
This commit is contained in:
zeljko 2012-10-10 10:14:01 +00:00
parent d433d82e1c
commit a81d9e96aa
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1956,7 +1956,6 @@ var
Entry: PGtkWidget;
begin
WidgetInfo := GetWidgetInfo({%H-}Pointer(ACustomComboBox.Handle));
if gtk_is_combo_box_entry(WidgetInfo^.CoreWidget) then
begin
Entry := GTK_BIN(WidgetInfo^.CoreWidget)^.child;
@ -1968,9 +1967,13 @@ begin
else
if (PGtkEntry(Entry)^.flag0 and $1) = Ord(NewReadOnly) then
ReCreateCombo(ACustomCombobox, not NewReadOnly, WidgetInfo);
end
else
ReCreateCombo(ACustomCombobox, not NewReadOnly, WidgetInfo);
end else
begin
if ACustomComboBox.Style in [csOwnerDrawFixed, csOwnerDrawVariable] then
ReCreateCombo(ACustomCombobox, False, WidgetInfo)
else
ReCreateCombo(ACustomCombobox, not NewReadOnly, WidgetInfo);
end;
end;
class function TGtk2WSCustomComboBox.GetItems(