paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-04 10:58:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

Adds a skeleton for wsdialogs in LCL-CustomDrawn

Browse Source 
git-svn-id: trunk@36395 -
This commit is contained in:
sekelsenmat 2012-03-28 14:13:19 +00:00
parent c1eb17e8e9
commit 050883f91c
3 changed files with 114 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -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

107
lcl/interfaces/customdrawn/customdrawnwsdialogs.pas Normal file
View File

@ -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.

7
lcl/interfaces/lcl.lpk
View File

@ -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>