Adds a skeleton for wsdialogs in LCL-CustomDrawn

git-svn-id: trunk@36395 -

.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

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.

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>