From 234062f2837a5d707611ea0a54d2fcb4a5b93db1 Mon Sep 17 00:00:00 2001
From: sekelsenmat <sekelsenmat@ae50a9b5-8222-0410-bf8d-8a13f76226bf>
Date: Fri, 13 Jul 2007 05:48:52 +0000
Subject: Added some more properties/methods to TFWindow

---
 gfx/gdi/gfx_gdi.pas | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

(limited to 'gfx/gdi')

diff --git a/gfx/gdi/gfx_gdi.pas b/gfx/gdi/gfx_gdi.pas
index b1b21ec2..3a567547 100644
--- a/gfx/gdi/gfx_gdi.pas
+++ b/gfx/gdi/gfx_gdi.pas
@@ -223,6 +223,7 @@ type
     procedure   SetClientSize(const ASize: TSize); override;
     procedure   SetMinMaxClientSize(const AMinSize, AMaxSize: TSize); override;
     procedure   Show; override;
+    procedure   Hide; override;
     procedure   Invalidate; override;
     procedure   CaptureMouse; override;
     procedure   ReleaseMouse; override;
@@ -1432,11 +1433,24 @@ begin
   Windows.ShowWindow(Handle, SW_SHOWNORMAL);
   Windows.UpdateWindow(Handle);
   Windows.SetForegroundWindow(Handle);
+
+  { Show all child windows }
   for i := 0 to Pred(ChildWindows.Count) do
     TGDIWindow(ChildWindows.Items[i]).Show;
 end;
 
+procedure TGDIWindow.Hide;
+var
+  i: integer;
+begin
+  Windows.ShowWindow(Handle, SW_HIDE);
+
+  { Hide all child windows }
+  for i := 0 to Pred(ChildWindows.Count) do
+    TGDIWindow(ChildWindows.Items[i]).Hide;
+end;
 
+{ Invalidates the entire window }
 procedure TGDIWindow.Invalidate;
 begin
   Windows.InvalidateRect(Handle, nil, True);
-- 
cgit v1.2.3-70-g09d2