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

gtk2 intf: fixed compilation

Browse Source 
git-svn-id: trunk@10352 -
This commit is contained in:
mattias 2006-12-27 18:20:53 +00:00
parent dc52f9f953
commit d9c4bfc71b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/gtk/gtkproc.inc
View File

@ -2269,10 +2269,10 @@ var
// => emulate it // => emulate it
if GtkWidgetIsA(TargetWidget,gtk_type_entry) if GtkWidgetIsA(TargetWidget,gtk_type_entry)
and (gdk_event_get_type(Event)=GDK_KEY_PRESS) and (gdk_event_get_type(Event)=GDK_KEY_PRESS)
and (VKey.VKey=13) then begin and (VKey^.VKey=13) then begin
//DebugLn(['EmulateKeysEatenByGtk ']); //DebugLn(['EmulateKeysEatenByGtk ']);
FillChar(Msg,SizeOf(Msg),0); FillChar(Msg,SizeOf(Msg),0);
Msg.CharCode := VKey.VKey; Msg.CharCode := VKey^.VKey;
if SysKey then if SysKey then
Msg.msg := LM_SYSKEYDOWN Msg.msg := LM_SYSKEYDOWN
else else