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

gtk intf: fixed sending LM_CHAR

Browse Source 
git-svn-id: trunk@10803 -
This commit is contained in:
mattias 2007-03-26 09:43:02 +00:00
parent 421093a69f
commit f107b6226b
2 changed files with 29 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/wincontrol.inc
View File

@ -5043,7 +5043,7 @@ end;
------------------------------------------------------------------------------}
procedure TWinControl.WMChar(var Message: TLMChar);
begin
//debugln('TWinControl.WMChar ',DbgSName(Self),' ',dbgs(Message.CharCode));
debugln('TWinControl.WMChar ',DbgSName(Self),' ',dbgs(Message.CharCode));
if SendDialogChar(Message) then
Message.Result := 1;
Assert(False, Format('Trace:[TWinControl.WMChar] %s', [ClassName]));

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

@ -2282,9 +2282,10 @@ begin
end;
// send keypresses
if not EventStopped and AHandleDown and ABeforeEvent then begin
if not EventStopped and AHandleDown then begin
// send the UTF8 keypress
if ABeforeEvent then begin
// try to get the UTF8 representation of the key
{$IFDEF GTK1}
Character := '';
@ -2312,6 +2313,7 @@ begin
then StopKeyEvent('key_press_event');
end;
end;
end;
// send a normal KeyPress Event for Delphi compatibility
if not EventStopped and CanSendChar
@ -2340,7 +2342,7 @@ begin
FillChar(Msg, SizeOf(Msg), 0);
Msg.KeyData := CommonKeyData;
Msg.msg := CHAR_MAP[SysKey, ABeforeEvent];
Msg.Msg := CHAR_MAP[SysKey, ABeforeEvent];
// send the (Sys)Char message directly (not queued) to the LCL
Msg.Result:=0;