2
*****************************************************************************
3
* CustomDrawnWSDialogs.pp *
7
*****************************************************************************
9
*****************************************************************************
11
* This file is part of the Lazarus Component Library (LCL) *
13
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
14
* for details about the copyright. *
16
* This program is distributed in the hope that it will be useful, *
17
* but WITHOUT ANY WARRANTY; without even the implied warranty of *
18
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. *
20
*****************************************************************************
22
unit CustomDrawnWSDialogs;
25
{$I customdrawndefines.inc}
31
SysUtils, Classes, Types,
32
// {$ifdef CD_Windows}Windows, customdrawn_WinProc,{$endif}
33
// {$ifdef CD_Cocoa}MacOSAll, CocoaAll, customdrawn_cocoaproc, CocoaGDIObjects,{$endif}
34
// {$ifdef CD_X11}X, XLib, XUtil, BaseUnix, customdrawn_x11proc,{$ifdef CD_UseNativeText}xft, fontconfig,{$endif}{$endif}
35
// {$ifdef CD_Android}customdrawn_androidproc, jni, bitmap, log, keycodes,{$endif}
38
LCLType, LCLProc, Dialogs, Controls, Forms, Graphics,
40
WSDialogs, WSLCLClasses,
41
customdrawncontrols, customdrawnwscontrols, customdrawnproc;
47
TCDWSCommonDialog = class(TWSCommonDialog)
49
{ class function CreateHandle(const ACommonDialog: TCommonDialog): THandle; override;
50
class procedure DestroyHandle(const ACommonDialog: TCommonDialog); override;
51
class procedure ShowModal(const ACommonDialog: TCommonDialog); override;}
56
TCDWSFileDialog = class(TWSFileDialog)
58
{ class function CreateHandle(const ACommonDialog: TCommonDialog): THandle; override;
59
class procedure ShowModal(const ACommonDialog: TCommonDialog); override;}
64
TCDWSOpenDialog = class(TWSOpenDialog)
70
TCDWSSaveDialog = class(TWSSaveDialog)
74
{ TCDWSSelectDirectoryDialog }
76
TCDWSSelectDirectoryDialog = class(TWSSelectDirectoryDialog)
78
{ class function CreateHandle(const ACommonDialog: TCommonDialog): THandle; override;
79
class procedure ShowModal(const ACommonDialog: TCommonDialog); override;}
84
TCDWSColorDialog = class(TWSColorDialog)
86
{ class function CreateHandle(const ACommonDialog: TCommonDialog): THandle; override;
87
class procedure ShowModal(const ACommonDialog: TCommonDialog); override;}
92
TCDWSColorButton = class(TWSColorButton)
98
TCDWSFontDialog = class(TWSFontDialog)
100
{ class function CreateHandle(const ACommonDialog: TCommonDialog): THandle; override;
101
class procedure ShowModal(const ACommonDialog: TCommonDialog); override;}