paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-05 18:58:11 +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

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

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