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

Keith: Fixed some bugs that were brought to my attention; fixed compilation problem.

Browse Source 
git-svn-id: trunk@1741 -
This commit is contained in:
lazarus 2002-06-08 19:18:34 +00:00
parent ed57800398
commit 3d24332fae
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -189,7 +189,7 @@ Begin
Begin Begin
With TLMKey(LMessage) Do With TLMKey(LMessage) Do
Begin Begin
Msg := LM_SYSKEYUP; Msg := LM_SYSKEYDOWN;
KeyData := LParam; KeyData := LParam;
CharCode := WParam; CharCode := WParam;
End; End;
@ -305,7 +305,7 @@ Begin
Msg := LM_MOVE; Msg := LM_MOVE;
MoveType := WParam; MoveType := WParam;
XPos := Lo(LParam); XPos := Lo(LParam);
YPos := Lo(LParam); YPos := Hi(LParam);
End; End;
End; End;
//TODO:LM_MOVEPAGE,LM_MOVETOROW,LM_MOVETOCOLUMN //TODO:LM_MOVEPAGE,LM_MOVETOROW,LM_MOVETOCOLUMN
@ -462,6 +462,9 @@ End;
{ {
$Log$ $Log$
Revision 1.13 2002/06/08 19:18:34 lazarus
Keith: Fixed some bugs that were brought to my attention; fixed compilation problem.
Revision 1.12 2002/05/10 07:43:48 lazarus Revision 1.12 2002/05/10 07:43:48 lazarus
MG: updated licenses MG: updated licenses