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

fix changing key in OnKeyPress event.

Browse Source 
git-svn-id: trunk@6238 -
This commit is contained in:
vincents 2004-11-12 15:33:13 +00:00
parent 94e6f139bd
commit 0f1ee72347
1 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -135,7 +135,7 @@ Var
NotifyUserInput: Boolean;
OverlayWindow: HWND;
TargetWindow: HWND;
DlgCode, CharCode: dword;
DlgCode: dword;
eraseBkgndCommand: TEraseBkgndCommand;
winClassName: array[0..19] of char;
WindowInfo: PWindowInfo;
@ -1191,12 +1191,14 @@ Begin
begin
// if key not yet processed, let windows process it
WinProcess := LMChar.CharCode <> VK_UNKNOWN;
WParam := LMChar.CharCode;
end;
CN_KEYDOWN, CN_KEYUP:
begin
// if key not yet processed, let windows process it
WinProcess := LMKey.CharCode <> VK_UNKNOWN;
WParam := LMChar.CharCode;
end;
else
@ -1223,21 +1225,21 @@ Begin
case Msg of
WM_CHAR:
begin
CharCode := LMChar.CharCode;
LMChar.CharCode := Word(WParam);
LMChar.Msg := LM_CHAR;
end;
WM_KEYDOWN:
begin
CharCode := LMKey.CharCode;
LMKey.CharCode := Word(WParam);
LMKey.Msg := LM_KEYDOWN;
end;
WM_KEYUP:
begin
CharCode := LMKey.CharCode;
LMKey.CharCode := Word(WParam);
LMKey.Msg := LM_KEYUP;
end;
end;
case CharCode of
case WParam of
VK_RETURN:
DlgCode := DLGC_WANTALLKEYS;
VK_TAB:
@ -1452,6 +1454,9 @@ end;
{
$Log$
Revision 1.160 2004/11/12 15:33:13 vincents
fix changing key in OnKeyPress event.
Revision 1.159 2004/11/12 15:30:30 vincents
send CM_TEXTCHANGED for TCustomMemo