paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 20:59:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

Gtk3: fixed ownerdraw combobox.

Browse Source
This commit is contained in:
zeljan1 2025-01-19 21:38:31 +01:00
parent 24bf163157
commit baef5a1511
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/gtk3/gtk3widgets.pas
View File

@ -7533,6 +7533,10 @@ begin
// if combo doesnt use menu // if combo doesnt use menu
if PGtkComboBox(GetContainerWidget)^.priv3^.tree_view <> nil then if PGtkComboBox(GetContainerWidget)^.priv3^.tree_view <> nil then
g_object_set_data(PGObject(PGtkComboBox(GetContainerWidget)^.priv3^.tree_view), 'lclwidget', Self); g_object_set_data(PGObject(PGtkComboBox(GetContainerWidget)^.priv3^.tree_view), 'lclwidget', Self);
// real popup menu
if PGtkComboBox(GetContainerWidget)^.priv3^.box <> nil then
g_object_set_data(PGObject(PGtkComboBox(GetContainerWidget)^.priv3^.box), 'lclwidget', Self);
end; end;
function TGtk3ComboBox.GetDroppedDown: boolean; function TGtk3ComboBox.GetDroppedDown: boolean;