paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 05:19:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

fix win32 keyhandling, send cn_char

Browse Source 
git-svn-id: trunk@5729 -
This commit is contained in:
micha 2004-08-04 07:32:01 +00:00
parent 6a261b4580
commit 5d5266b9f3
2 changed files with 23 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/include/wincontrol.inc
View File

@ -3062,9 +3062,7 @@ end;
------------------------------------------------------------------------------}
procedure TWinControl.CNChar(var Message: TLMKeyUp);
begin
{$IFNDEF Win32}
if not DoKeyPress(Message) then {inherited}; // there is nothing to inherit
{$ENDIF}
end;
{------------------------------------------------------------------------------
@ -3165,9 +3163,6 @@ end;
procedure TWinControl.WMChar(var Message: TLMChar);
begin
Assert(False, Format('Trace:[TWinControl.WMChar] %s', [ClassName]));
{$IFDEF Win32}
if not DoKeyPress(Message) then {inherited}; // there is nothing to inherit
{$ENDIF}
end;
{------------------------------------------------------------------------------
@ -3796,6 +3791,9 @@ end;
{ =============================================================================
$Log$
Revision 1.259 2004/08/04 07:32:01 micha
fix win32 keyhandling, send cn_char
Revision 1.258 2004/08/03 09:01:54 mattias
LCL now handles for non win32 CN_CHAR

25
lcl/interfaces/win32/win32callback.inc
View File

@ -390,7 +390,7 @@ Begin
PLMsg:=@LMChar;
With LMChar Do
Begin
Msg := LM_CHAR;
Msg := CN_CHAR;
KeyData := LParam;
CharCode := Word(WParam);
Assert(False,Format('WM_CHAR KeyData= %d CharCode= %d ',[KeyData,CharCode]));
@ -555,7 +555,7 @@ Begin
End;
WM_GETDLGCODE:
Begin
LMessage.Msg := LM_GETDLGCODE;
Result := DLGC_WANTALLKEYS;
WinProcess := false;
End;
WM_KEYDOWN:
@ -1073,8 +1073,21 @@ Begin
WM_CHAR, WM_KEYDOWN, WM_KEYUP:
begin
case Msg of
WM_CHAR: CharCode := LMChar.CharCode;
WM_KEYDOWN, WM_KEYUP: CharCode := LMKey.CharCode;
WM_CHAR:
begin
CharCode := LMChar.CharCode;
LMChar.Msg := LM_CHAR;
end;
WM_KEYDOWN:
begin
CharCode := LMKey.CharCode;
LMKey.Msg := LM_KEYDOWN;
end;
WM_KEYUP:
begin
CharCode := LMKey.CharCode;
LMKey.Msg := LM_KEYUP;
end;
end;
case CharCode of
VK_RETURN:
@ -1087,7 +1100,6 @@ Begin
if (DlgCode = 0) or ((DlgCode and CallDefaultWindowProc(Window, WM_GETDLGCODE, 0, 0)) = 0) then
begin
// windows didn't want the key
PLMsg^.Msg := LM_CHAR;
DeliverMessage(OwnerObject, PLMsg^);
end;
end;
@ -1302,6 +1314,9 @@ end;
{
$Log$
Revision 1.131 2004/08/04 07:32:01 micha
fix win32 keyhandling, send cn_char
Revision 1.130 2004/08/01 14:21:06 micha
better pre/post-intf key handling