paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-01 10:12:50 +02:00
Code Issues Packages Projects Releases Wiki Activity

added ShowWindow

Browse Source 
git-svn-id: trunk@3886 -
This commit is contained in:
mattias 2003-02-28 19:54:05 +00:00
parent 55408cc264
commit d3ce1ad3d2
2 changed files with 32 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lcl/include/customform.inc
View File

@ -801,10 +801,16 @@ end;
{ TCustomForm SetWindowState }
{------------------------------------------------------------------------------}
Procedure TCustomForm.SetWindowState(Value : TWindowState);
Begin
//TODO: Finish SETWINDOWSTATE
FWindowState := Value;
Assert(False, 'Trace:TODO: [TCustomForm.SetWindowState]');
const
ShowCommands: array[TWindowState] of Integer =
(SW_SHOWNORMAL, SW_MINIMIZE, SW_SHOWMAXIMIZED);
begin
if FWindowState <> Value then
begin
FWindowState := Value;
if not (csDesigning in ComponentState) and Showing then
ShowWindow(Handle, ShowCommands[Value]);
end;
end;
{------------------------------------------------------------------------------}
@ -1296,6 +1302,9 @@ end;
{ =============================================================================
$Log$
Revision 1.86 2003/02/28 19:54:05 mattias
added ShowWindow
Revision 1.85 2003/02/04 11:44:13 mattias
fixed modified and loading xpms for button glyphs

19
lcl/lcltype.pp
View File

@ -645,6 +645,22 @@ const
HWND_TOPMOST = HWND(-1);
HWND_NOTOPMOST = HWND(-2);
{ ShowWindow() Commands }
SW_HIDE = 0;
SW_SHOWNORMAL = 1;
SW_NORMAL = 1;
SW_SHOWMINIMIZED = 2;
SW_SHOWMAXIMIZED = 3;
SW_MAXIMIZE = 3;
SW_SHOWNOACTIVATE = 4;
SW_SHOW = 5;
SW_MINIMIZE = 6;
SW_SHOWMINNOACTIVE = 7;
SW_SHOWNA = 8;
SW_RESTORE = 9;
SW_SHOWDEFAULT = 10;
SW_MAX = 10;
const
{ DIB color table identifiers }
@ -1775,6 +1791,9 @@ end.
{
$Log$
Revision 1.33 2003/02/28 19:54:05 mattias
added ShowWindow
Revision 1.32 2003/02/26 12:44:52 mattias
readonly flag is now only saved if user set