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

Patch from Martin for reszing windows

Browse Source 
git-svn-id: trunk@3693 -
This commit is contained in:
mattias 2002-12-09 17:53:22 +00:00
parent c788144e44
commit c62603e8e6
1 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -291,14 +291,13 @@ Begin
End; End;
WM_MOVE: WM_MOVE:
Begin Begin
Windows.GetWindowRect(Window, @R);
With TLMMove(LMessage) Do With TLMMove(LMessage) Do
Begin Begin
Msg := LM_MOVE; Msg := LM_MOVE;
// MoveType := WParam; WParam is not defined! // MoveType := WParam; WParam is not defined!
MoveType := 0; MoveType := 0;
XPos := R.Left; XPos := LoWord(LParam);
YPos := R.Top; YPos := HiWord(LParam);
End; End;
End; End;
//TODO:LM_MOVEPAGE,LM_MOVETOROW,LM_MOVETOCOLUMN //TODO:LM_MOVEPAGE,LM_MOVETOROW,LM_MOVETOCOLUMN
@ -375,13 +374,12 @@ Begin
End; End;
WM_SIZE: WM_SIZE:
Begin Begin
Windows.GetClientRect(Window, @R);
With TLMSize(LMessage) Do With TLMSize(LMessage) Do
Begin Begin
Msg := LM_SIZE; Msg := LM_SIZE;
SizeType := WParam; SizeType := WParam;
Width := R.Right - R.Left; Width := LoWord(LParam);
Height := R.Bottom - R.Top; Height := HiWord(LParam);
End; End;
End; End;
WM_SYSKEYDOWN: WM_SYSKEYDOWN:
@ -426,6 +424,10 @@ Begin
Unused := WParam; Unused := WParam;
WindowPos := PWindowPos(LParam); WindowPos := PWindowPos(LParam);
End; End;
GetClientRect(Window, R);
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));
WinProcess:=false;
End; End;
End; End;
@ -477,6 +479,9 @@ end;
{ {
$Log$ $Log$
Revision 1.20 2002/12/09 17:53:22 mattias
Patch from Martin for reszing windows
Revision 1.19 2002/12/04 20:39:16 mattias Revision 1.19 2002/12/04 20:39:16 mattias
patch from Vincent: clean ups and fixed crash on destroying window patch from Vincent: clean ups and fixed crash on destroying window