From 050883f91c3eef6168cfa461546e21ffe727da59 Mon Sep 17 00:00:00 2001
From: sekelsenmat <sekelsenmat@lazarus-ide.org>
Date: Wed, 28 Mar 2012 14:13:19 +0000
Subject: [PATCH] Adds a skeleton for wsdialogs in LCL-CustomDrawn

git-svn-id: trunk@36395 -
---
 .gitattributes                                |   1 +
 .../customdrawn/customdrawnwsdialogs.pas      | 107 ++++++++++++++++++
 lcl/interfaces/lcl.lpk                        |   7 +-
 3 files changed, 114 insertions(+), 1 deletion(-)
 create mode 100644 lcl/interfaces/customdrawn/customdrawnwsdialogs.pas

diff --git a/.gitattributes b/.gitattributes
index 3a3f0039de..97ac20f71e 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -5641,6 +5641,7 @@ lcl/interfaces/customdrawn/customdrawnwsarrow.pas svneol=native#text/plain
 lcl/interfaces/customdrawn/customdrawnwsbuttons.pas svneol=native#text/pascal
 lcl/interfaces/customdrawn/customdrawnwscomctrls.pas svneol=native#text/pascal
 lcl/interfaces/customdrawn/customdrawnwscontrols.pp svneol=native#text/plain
+lcl/interfaces/customdrawn/customdrawnwsdialogs.pas svneol=native#text/pascal
 lcl/interfaces/customdrawn/customdrawnwsextctrls.pas svneol=native#text/pascal
 lcl/interfaces/customdrawn/customdrawnwsfactory.pas svneol=native#text/pascal
 lcl/interfaces/customdrawn/customdrawnwsforms.pp svneol=native#text/plain
diff --git a/lcl/interfaces/customdrawn/customdrawnwsdialogs.pas b/lcl/interfaces/customdrawn/customdrawnwsdialogs.pas
new file mode 100644
index 0000000000..019bb757f4
--- /dev/null
+++ b/lcl/interfaces/customdrawn/customdrawnwsdialogs.pas
@@ -0,0 +1,107 @@
+{
+ *****************************************************************************
+ *                          CustomDrawnWSDialogs.pp                          *
+ *                              --------------                               * 
+ *                                                                           *
+ *                                                                           *
+ *****************************************************************************
+
+ *****************************************************************************
+ *                                                                           *
+ *  This file is part of the Lazarus Component Library (LCL)                 *
+ *                                                                           *
+ *  See the file COPYING.modifiedLGPL.txt, included in this distribution,    * 
+ *  for details about the copyright.                                         *
+ *                                                                           *
+ *  This program is distributed in the hope that it will be useful,          *
+ *  but WITHOUT ANY WARRANTY; without even the implied warranty of           *
+ *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.                     *
+ *                                                                           *
+ *****************************************************************************
+}
+unit CustomDrawnWSDialogs;
+
+{$mode objfpc}{$H+}
+{$I customdrawndefines.inc}
+
+interface
+
+uses
+  // RTL
+  SysUtils, Classes, Types,
+//  {$ifdef CD_Windows}Windows, customdrawn_WinProc,{$endif}
+//  {$ifdef CD_Cocoa}MacOSAll, CocoaAll, customdrawn_cocoaproc, CocoaGDIObjects,{$endif}
+//  {$ifdef CD_X11}X, XLib, XUtil, BaseUnix, customdrawn_x11proc,{$ifdef CD_UseNativeText}xft, fontconfig,{$endif}{$endif}
+//  {$ifdef CD_Android}customdrawn_androidproc, jni, bitmap, log, keycodes,{$endif}
+  // LCL
+  // RTL + LCL
+  LCLType, LCLProc, Dialogs, Controls, Forms, Graphics,
+  // Widgetset
+  WSDialogs, WSLCLClasses,
+  customdrawncontrols, customdrawnwscontrols, customdrawnproc;
+
+type
+
+  { TCDWSCommonDialog }
+
+  TCDWSCommonDialog = class(TWSCommonDialog)
+  published
+{    class function CreateHandle(const ACommonDialog: TCommonDialog): THandle; override;
+    class procedure DestroyHandle(const ACommonDialog: TCommonDialog); override;
+    class procedure ShowModal(const ACommonDialog: TCommonDialog); override;}
+  end;
+
+  { TCDWSFileDialog }
+
+  TCDWSFileDialog = class(TWSFileDialog)
+  published
+{    class function CreateHandle(const ACommonDialog: TCommonDialog): THandle; override;
+    class procedure ShowModal(const ACommonDialog: TCommonDialog); override;}
+  end;
+
+  { TCDWSOpenDialog }
+
+  TCDWSOpenDialog = class(TWSOpenDialog)
+  published
+  end;
+
+  { TCDWSSaveDialog }
+
+  TCDWSSaveDialog = class(TWSSaveDialog)
+  published
+  end;
+
+  { TCDWSSelectDirectoryDialog }
+
+  TCDWSSelectDirectoryDialog = class(TWSSelectDirectoryDialog)
+  published
+{    class function CreateHandle(const ACommonDialog: TCommonDialog): THandle; override;
+    class procedure ShowModal(const ACommonDialog: TCommonDialog); override;}
+  end;
+
+  { TCDWSColorDialog }
+
+  TCDWSColorDialog = class(TWSColorDialog)
+  published
+{    class function CreateHandle(const ACommonDialog: TCommonDialog): THandle; override;
+    class procedure ShowModal(const ACommonDialog: TCommonDialog); override;}
+  end;
+
+  { TCDWSColorButton }
+
+  TCDWSColorButton = class(TWSColorButton)
+  published
+  end;
+
+  { TCDWSFontDialog }
+
+  TCDWSFontDialog = class(TWSFontDialog)
+  published
+{    class function CreateHandle(const ACommonDialog: TCommonDialog): THandle; override;
+    class procedure ShowModal(const ACommonDialog: TCommonDialog); override;}
+  end;
+
+
+implementation
+
+end.
diff --git a/lcl/interfaces/lcl.lpk b/lcl/interfaces/lcl.lpk
index d91c4a8973..5bf6ed476a 100644
--- a/lcl/interfaces/lcl.lpk
+++ b/lcl/interfaces/lcl.lpk
@@ -113,7 +113,7 @@ end;"/>
     <License Value="modified LGPL-2
 "/>
     <Version Major="1" Release="1"/>
-    <Files Count="397">
+    <Files Count="398">
       <Item1>
         <Filename Value="carbon/agl.pp"/>
         <AddToUsesPkgSection Value="False"/>
@@ -1965,6 +1965,11 @@ end;"/>
         <AddToUsesPkgSection Value="False"/>
         <UnitName Value="customdrawnwsbuttons"/>
       </Item397>
+      <Item398>
+        <Filename Value="customdrawn/customdrawnwsdialogs.pas"/>
+        <AddToUsesPkgSection Value="False"/>
+        <UnitName Value="QtWSDialogs"/>
+      </Item398>
     </Files>
     <LazDoc Paths="../../docs/xml/lcl"/>
     <i18n>