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

* fix range check problems and wrong uses of HEdit and HStatus handles

Browse Source
This commit is contained in:
pierre 2002-02-21 11:43:54 +00:00
parent d98022d88a
commit 75695f4d8f
1 changed files with 15 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
demo/win32/menu.pp
View File

@ -167,7 +167,7 @@ Begin
SendMessage(HEdit,WM_SetText,1,LongInt(Empty)); SendMessage(HEdit,WM_SetText,1,LongInt(Empty));
End; End;
Function WindowProc (Window:HWnd;AMessage,WParam,LParam:Longint): Longint; Function WindowProc (Window:HWnd;AMessage : UINT; WParam : WParam; LParam:LParam): LResult;
stdcall; stdcall;
export; export;
@ -196,11 +196,15 @@ Begin
End; End;
wm_Size: wm_Size:
Begin Begin
GetClientRect(HStatus,@R); if HStatus<>0 then
StatH := R.Bottom-R.Top; begin
GetClientRect(Window,@R); GetClientRect(HStatus,@R);
MoveWindow (hStatus,r.left,r.bottom-StatH,r.right,r.bottom,true); StatH := R.Bottom-R.Top;
MoveWindow (HEdit,0,0,r.right-r.left,r.bottom-r.top-StatH,true); GetClientRect(Window,@R);
MoveWindow (hStatus,r.left,r.bottom-StatH,r.right,r.bottom,true);
if HEdit<>0 then
MoveWindow (HEdit,0,0,r.right-r.left,r.bottom-r.top-StatH,true);
end;
End; End;
wm_Command: wm_Command:
Begin Begin
@ -336,10 +340,13 @@ End.
{ {
$Log$ $Log$
Revision 1.1 2001-05-03 21:39:34 peter Revision 1.2 2002-02-21 11:43:54 pierre
* fix range check problems and wrong uses of HEdit and HStatus handles
Revision 1.1 2001/05/03 21:39:34 peter
* moved to own module * moved to own module
Revision 1.2 2000/07/13 11:33:10 michael Revision 1.2 2000/07/13 11:33:10 michael
+ removed logs + removed logs
} }