mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-09 20:38:29 +02:00
added ShowWindow
git-svn-id: trunk@2493 -
This commit is contained in:
parent
5094446efb
commit
bb2571e0cf
@ -974,6 +974,11 @@ begin
|
|||||||
Result := InterfaceObject.ShowScrollBar(Handle, wBar, bShow);
|
Result := InterfaceObject.ShowScrollBar(Handle, wBar, bShow);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
function ShowWindow(hWnd: HWND; nCmdShow: Integer): Boolean;
|
||||||
|
begin
|
||||||
|
Result := InterfaceObject.ShowWindow(hWnd,nCmdShow);
|
||||||
|
end;
|
||||||
|
|
||||||
procedure Sleep(dwMilliseconds: DWORD);
|
procedure Sleep(dwMilliseconds: DWORD);
|
||||||
begin
|
begin
|
||||||
InterfaceObject.Sleep(dwMilliseconds);
|
InterfaceObject.Sleep(dwMilliseconds);
|
||||||
@ -1563,6 +1568,9 @@ end;
|
|||||||
{ =============================================================================
|
{ =============================================================================
|
||||||
|
|
||||||
$Log$
|
$Log$
|
||||||
|
Revision 1.73 2003/02/28 19:54:05 mattias
|
||||||
|
added ShowWindow
|
||||||
|
|
||||||
Revision 1.72 2003/02/28 10:14:29 mattias
|
Revision 1.72 2003/02/28 10:14:29 mattias
|
||||||
started package system (packager)
|
started package system (packager)
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user