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

translate and route WM_SYSCHAR messages, fix WM_SYSKEYDOWN and WM_SYSKEYUP messages

Browse Source 
git-svn-id: trunk@6724 -
This commit is contained in:
micha 2005-02-03 15:06:30 +00:00
parent 7f1e74218c
commit b89a0ffc98
2 changed files with 35 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1080,6 +1080,18 @@ Begin
SW_SHOW) SW_SHOW)
end; end;
End; End;
WM_SYSCHAR:
Begin
PLMsg:=@LMChar;
With LMChar Do
Begin
Msg := CN_SYSCHAR;
KeyData := LParam;
CharCode := Word(WParam);
Assert(False,Format('WM_CHAR KeyData= %d CharCode= %d ',[KeyData,CharCode]));
End;
WinProcess := false;
End;
WM_SYSKEYDOWN: WM_SYSKEYDOWN:
Begin Begin
NotifyUserInput := True; NotifyUserInput := True;
@ -1253,14 +1265,14 @@ Begin
WinProcess := true; WinProcess := true;
end; end;
CN_CHAR: CN_CHAR, CN_SYSCHAR:
begin begin
// if key not yet processed, let windows process it // if key not yet processed, let windows process it
WinProcess := LMChar.CharCode <> VK_UNKNOWN; WinProcess := LMChar.CharCode <> VK_UNKNOWN;
WParam := LMChar.CharCode; WParam := LMChar.CharCode;
end; end;
CN_KEYDOWN, CN_KEYUP: CN_KEYDOWN, CN_KEYUP, CN_SYSKEYDOWN, CN_SYSKEYUP:
begin begin
// if key not yet processed, let windows process it // if key not yet processed, let windows process it
WinProcess := LMKey.CharCode <> VK_UNKNOWN; WinProcess := LMKey.CharCode <> VK_UNKNOWN;
@ -1284,7 +1296,8 @@ Begin
PLMsg^.Result := CallDefaultWindowProc(Window, Msg, WParam, LParam); PLMsg^.Result := CallDefaultWindowProc(Window, Msg, WParam, LParam);
case Msg of case Msg of
WM_CHAR, WM_KEYDOWN, WM_KEYUP: WM_CHAR, WM_KEYDOWN, WM_KEYUP,
WM_SYSCHAR, WM_SYSKEYDOWN, WM_SYSKEYUP:
begin begin
case Msg of case Msg of
WM_CHAR: WM_CHAR:
@ -1292,6 +1305,11 @@ Begin
LMChar.CharCode := Word(WParam); LMChar.CharCode := Word(WParam);
LMChar.Msg := LM_CHAR; LMChar.Msg := LM_CHAR;
end; end;
WM_SYSCHAR:
begin
LMChar.CharCode := Word(WParam);
LMChar.Msg := LM_SYSCHAR;
end;
WM_KEYDOWN: WM_KEYDOWN:
begin begin
LMKey.CharCode := Word(WParam); LMKey.CharCode := Word(WParam);
@ -1302,6 +1320,16 @@ Begin
LMKey.CharCode := Word(WParam); LMKey.CharCode := Word(WParam);
LMKey.Msg := LM_KEYUP; LMKey.Msg := LM_KEYUP;
end; end;
WM_SYSKEYDOWN:
begin
LMKey.CharCode := Word(WParam);
LMKey.Msg := LM_SYSKEYDOWN;
end;
WM_SYSKEYUP:
begin
LMKey.CharCode := Word(WParam);
LMKey.Msg := LM_SYSKEYUP;
end;
end; end;
case WParam of case WParam of
VK_RETURN: VK_RETURN:
@ -1528,6 +1556,9 @@ end;
{ {
$Log$ $Log$
Revision 1.187 2005/02/03 15:06:30 micha
translate and route WM_SYSCHAR messages, fix WM_SYSKEYDOWN and WM_SYSKEYUP messages
Revision 1.186 2005/02/01 15:48:03 vincents Revision 1.186 2005/02/01 15:48:03 vincents
fixed handling WM_MOUSEWHEEL in designer form (bug 647). fixed handling WM_MOUSEWHEEL in designer form (bug 647).

2
lcl/interfaces/win32/win32wsforms.pp
View File

@ -314,7 +314,7 @@ begin
} }
else else
iconHandle := Windows.LoadIcon(MainInstance, 'MAINICON'); iconHandle := Windows.LoadIcon(MainInstance, 'MAINICON');
SendMessage(AForm.Handle, WM_SETICON, ICON_BIG, iconHandle); SendMessage(winHandle, WM_SETICON, ICON_BIG, iconHandle);
end; end;
procedure TWin32WSCustomForm.ShowModal(const ACustomForm: TCustomForm); procedure TWin32WSCustomForm.ShowModal(const ACustomForm: TCustomForm);