paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-06 11:47:32 +01:00
Code Issues Packages Projects Releases Wiki Activity

LCL-GTK3: Fix calling button handler. Issue #37804, patch from Anton Kavalenka.

Browse Source 
git-svn-id: trunk@63919 -
This commit is contained in:
juha 2020-09-24 09:07:03 +00:00
parent 5d132a7330
commit 36dd059fc3
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1224,6 +1224,7 @@ begin
// GDK_BUTTON_RELEASE: // GDK_BUTTON_RELEASE:
7: 7:
begin begin
if not (csClickEvents in TGtk3Widget(Data).LCLObject.ControlStyle) then
Result := TGtk3Widget(Data).GtkEventMouse(Widget , Event); Result := TGtk3Widget(Data).GtkEventMouse(Widget , Event);
end; end;
@ -6923,7 +6924,13 @@ end;
function TGtk3Window.GetTitle: String; function TGtk3Window.GetTitle: String;
begin begin
Result:=PGtkWindow(FWidget)^.get_title(); if Gtk3IsGtkWindow(fWidget) then
Result:=PGtkWindow(fWidget)^.get_title()
{else
if Gtk3IsWIdget(fWidget) then
Result:='widget'}
else
Result:=''
end; end;
procedure TGtk3Window.SetIcon(AValue: PGdkPixBuf); procedure TGtk3Window.SetIcon(AValue: PGdkPixBuf);
@ -6957,7 +6964,8 @@ end;
procedure TGtk3Window.SetTitle(const AValue: String); procedure TGtk3Window.SetTitle(const AValue: String);
begin begin
PGtkWindow(FWidget)^.set_title(PGChar(AValue)); if Gtk3IsGtkWindow(fWidget) then
PGtkWindow(FWidget)^.set_title(PGChar(AValue))
end; end;
function Gtk3WindowState(AWidget: PGtkWidget; AEvent: PGdkEvent; AData: gPointer): GBoolean; cdecl; function Gtk3WindowState(AWidget: PGtkWidget; AEvent: PGdkEvent; AData: gPointer): GBoolean; cdecl;