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

fixed formresize from Micha

Browse Source 
git-svn-id: trunk@4328 -
This commit is contained in:
mattias 2003-06-27 21:41:14 +00:00
parent d454bbaa1a
commit d6126baede
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -477,7 +477,7 @@ Begin
End; End;
GetClientRect(Window, R); GetClientRect(Window, R);
SendMessage(Window, WM_MOVE, 0, MakeLParam(PWindowPos(LParam)^.x, PWindowPos(LParam)^.y)); SendMessage(Window, WM_MOVE, 0, MakeLParam(PWindowPos(LParam)^.x, PWindowPos(LParam)^.y));
SendMessage(Window, WM_SIZE, 0, MakeLParam(R.right-R.left, R.bottom-R.top)); // SendMessage(Window, WM_SIZE, 0, MakeLParam(R.right-R.left, R.bottom-R.top));
WinProcess:=false; WinProcess:=false;
End; End;
End; End;
@ -545,6 +545,9 @@ end;
{ {
$Log$ $Log$
Revision 1.28 2003/06/27 21:41:14 mattias
fixed formresize from Micha
Revision 1.27 2003/06/25 15:27:18 mattias Revision 1.27 2003/06/25 15:27:18 mattias
fixed timer calling conventions from Micha fixed timer calling conventions from Micha