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

LCL-GTK2: Support SynEdit keystrokes over VNC. Issue #14716, patch from Martin/Graeme.

Browse Source 
git-svn-id: trunk@52799 -
This commit is contained in:
juha 2016-08-13 11:27:36 +00:00
parent 801a0ccb5c
commit 6c306c9322
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/interfaces/gtk2/gtk2proc.pp
View File

@ -864,6 +864,7 @@ type
window: PGdkWindow; window: PGdkWindow;
send_event: gint8; send_event: gint8;
time: guint32; time: guint32;
keyval: guint;
constructor Create(Event: PGdkEventKey); constructor Create(Event: PGdkEventKey);
function IsEqual(Event: PGdkEventKey): boolean; function IsEqual(Event: PGdkEventKey): boolean;
end; end;
@ -879,6 +880,7 @@ begin
window:=Event^.window; window:=Event^.window;
send_event:=Event^.send_event; send_event:=Event^.send_event;
time:=Event^.time; time:=Event^.time;
keyval:=Event^.keyval;
end; end;
function TLCLHandledKeyEvent.IsEqual(Event: PGdkEventKey): boolean; function TLCLHandledKeyEvent.IsEqual(Event: PGdkEventKey): boolean;
@ -886,7 +888,8 @@ begin
Result:=(gdk_event_get_type(Event)=thetype) Result:=(gdk_event_get_type(Event)=thetype)
and (window=Event^.window) and (window=Event^.window)
and (send_event=Event^.send_event) and (send_event=Event^.send_event)
and (time=Event^.time); and (time=Event^.time)
and (keyval=Event^.keyval);
end; end;
var var