From 1417561829894e9a1f1d877d7ab44ce797e48500 Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Fri, 11 Sep 2009 09:04:01 +0000
Subject: [PATCH] win32: better detect top level window in
 TWin32WidgetSet.GetWindowSize (fixes bug #0013921)

git-svn-id: trunk@21648 -
---
 lcl/interfaces/win32/win32winapi.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lcl/interfaces/win32/win32winapi.inc b/lcl/interfaces/win32/win32winapi.inc
index 5a0710aed4..13e2a26198 100644
--- a/lcl/interfaces/win32/win32winapi.inc
+++ b/lcl/interfaces/win32/win32winapi.inc
@@ -2338,7 +2338,7 @@ begin
 
   // if it is a top level window then you can't use the normal size:
   // maximized or aero snap windows will have problems
-  if GetParent(Handle) = 0 then
+  if (GetWindowLong(Handle, GWL_STYLE) and WS_CHILD = 0) then
   begin
     FillChar(Info, SizeOf(Info), 0);
     Info.cbSize := SizeOf(Info);