summaryrefslogtreecommitdiff
path: root/gfx/gdi
diff options
context:
space:
mode:
authorGraeme Geldenhuys <graemeg@users.sourceforge.net>2006-11-30 08:47:06 +0000
committerGraeme Geldenhuys <graemeg@users.sourceforge.net>2006-11-30 08:47:06 +0000
commit76ba9feaf442b63dae84269918aafa18934671f8 (patch)
tree8f5b98deb54191099a31ab3238d3aeb00244b00b /gfx/gdi
parent5ac16e54f84f95b0319680e4a5630329391d5ec7 (diff)
downloadfpGUI-76ba9feaf442b63dae84269918aafa18934671f8.tar.xz
TGDIWindow.Show now recursively calls the Show method of all ChildWindows. This is not needed under X11. This fixes the bug in prototype/multihandle in r38.
Diffstat (limited to 'gfx/gdi')
-rw-r--r--gfx/gdi/gfx_gdi.pas4
1 files changed, 4 insertions, 0 deletions
diff --git a/gfx/gdi/gfx_gdi.pas b/gfx/gdi/gfx_gdi.pas
index 8a258a03..58b13f63 100644
--- a/gfx/gdi/gfx_gdi.pas
+++ b/gfx/gdi/gfx_gdi.pas
@@ -1442,9 +1442,13 @@ end;
procedure TGDIWindow.Show;
+var
+ i: integer;
begin
Windows.ShowWindow(Handle, SW_SHOWNORMAL);
Windows.UpdateWindow(Handle);
+ for i := 0 to Pred(ChildWindows.Count) do
+ TGDIWindow(ChildWindows.Items[i]).Show;
end;