From a9c170f28dba6612b955de310b7572d3a46ae4ea Mon Sep 17 00:00:00 2001
From: dmitry <dmitry@lazarus-ide.org>
Date: Thu, 2 Jul 2009 12:29:27 +0000
Subject: [PATCH] fix improper windows class selected for bsDialog border

git-svn-id: trunk@20783 -
---
 lcl/interfaces/carbon/carbonprivatewindow.inc | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/lcl/interfaces/carbon/carbonprivatewindow.inc b/lcl/interfaces/carbon/carbonprivatewindow.inc
index 8b5c07ae2d..f20ebc247c 100644
--- a/lcl/interfaces/carbon/carbonprivatewindow.inc
+++ b/lcl/interfaces/carbon/carbonprivatewindow.inc
@@ -1123,10 +1123,17 @@ begin
       NewWindowClass := kDocumentWindowClass;
       Attributes := kWindowInWindowMenuAttribute;
     end;
-
+    case (LCLObject as TCustomForm).BorderStyle of
+    bsDialog:
+      begin
+        NewWindowClass := kMovableModalWindowClass;
+        Attributes := 0;
+      end;
+    end;
     Attributes := Attributes or
       GetBorderWindowAttrs((LCLObject as TCustomForm).BorderStyle,
         (LCLObject as TCustomForm).BorderIcons);
+
   end;
 
   //DebugLn('TCarbonWindow.CreateWidget ' + DbgS(ParamsToCarbonRect(AParams)));