paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-01 16:33:09 +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
With TLMKey(LMessage) Do
Begin
Msg := LM_SYSKEYUP;
Msg := LM_SYSKEYDOWN;
KeyData := LParam;
CharCode := WParam;
End;
@ -305,7 +305,7 @@ Begin
Msg := LM_MOVE;
MoveType := WParam;
XPos := Lo(LParam);
YPos := Lo(LParam);
YPos := Hi(LParam);
End;
End;
//TODO:LM_MOVEPAGE,LM_MOVETOROW,LM_MOVETOCOLUMN
@ -462,6 +462,9 @@ End;
{
$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
MG: updated licenses