From d1e9068de2ec918f581e43e5f076a083083d5f9f Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Thu, 17 Jan 2013 11:33:34 +0000
Subject: [PATCH] LCL: do not move maximized form due to Form.Position

git-svn-id: trunk@39873 -
---
 lcl/include/customform.inc | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/lcl/include/customform.inc b/lcl/include/customform.inc
index 96ce25f60a..1438791a1d 100644
--- a/lcl/include/customform.inc
+++ b/lcl/include/customform.inc
@@ -1271,6 +1271,8 @@ var
 begin
   if (Parent <> nil) or (ParentWindow <> 0) then exit;
 
+  if not (WindowState in [wsNormal,wsMinimized]) then exit;
+
   // first make sure X and Y are assigned
   X := Left;
   Y := Top;