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

gtk2 for windows: reorder combobox event sequence

Browse Source 
git-svn-id: trunk@12589 -
This commit is contained in:
paul 2007-10-26 02:14:16 +00:00
parent fcf15718e0
commit 003f4e5ac2
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -877,6 +877,12 @@ begin
LCLSendCloseUpMsg(TControl(WidgetInfo^.LCLObject));
end;
function GtkPopupCloseUp(WidgetInfo: Pointer): gboolean; cdecl;
begin
LCLSendCloseUpMsg(TControl(PWidgetInfo(WidgetInfo)^.LCLObject));
Result := False;
end;
procedure GtkNotifyCB(AObject: PGObject; pspec: PGParamSpec; WidgetInfo: PWidgetInfo); cdecl;
var
AValue: TGValue;
@ -887,7 +893,7 @@ begin
g_value_init(@AValue, G_TYPE_BOOLEAN); // initialize for boolean
g_object_get_property(AObject, pspec^.name, @AValue); // get property value
if AValue.data[0].v_int = 0 then // if 0 = False then it is close up
LCLSendCloseUpMsg(TControl(WidgetInfo^.LCLObject))
g_idle_add(@GtkPopupCloseUp, WidgetInfo)
else // in other case it is drop down
LCLSendDropDownMsg(TControl(WidgetInfo^.LCLObject));
end;