92 lines
3.1 KiB
ObjectPascal
92 lines
3.1 KiB
ObjectPascal
unit U_BaseDataLink;
|
|
|
|
interface
|
|
|
|
uses
|
|
System.SysUtils,windows,forms, System.Classes, dxSkinsCore,
|
|
dxSkinsDefaultPainters, dxCore, cxClasses,
|
|
cxLookAndFeels, dxSkinsForm, cxContainer, cxEdit,
|
|
System.ImageList, Vcl.ImgList, Vcl.Controls, cxImageList, cxGraphics, cxStyles,
|
|
dxSkinBasic, dxSkinWXI, dxLayoutLookAndFeels,
|
|
cxLocalization, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel,
|
|
dxSkinCoffee, dxSkinDarkroom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
|
|
dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast,
|
|
dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky,
|
|
dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
|
|
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
|
|
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
|
|
dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
|
|
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinOffice2016Colorful,
|
|
dxSkinOffice2016Dark, dxSkinOffice2019Black, dxSkinOffice2019Colorful,
|
|
dxSkinOffice2019DarkGray, dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven,
|
|
dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver,
|
|
dxSkinSpringtime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
|
|
dxSkinTheBezier, dxSkinValentine, dxSkinVisualStudio2013Blue,
|
|
dxSkinVisualStudio2013Dark, dxSkinVisualStudio2013Light, dxSkinVS2010,
|
|
dxSkinWhiteprint, dxSkinXmas2008Blue;
|
|
|
|
type
|
|
TBaseDataLink = class(TDataModule)
|
|
dxSkinController1: TdxSkinController;
|
|
cxEditStyleController1: TcxEditStyleController;
|
|
ThreeLookAndFeelCol: TcxLookAndFeelController;
|
|
cxDefaultEditStyleController1: TcxDefaultEditStyleController;
|
|
cxImageList_bar: TcxImageList;
|
|
ThreeColorBase: TcxStyleRepository;
|
|
SHuangSe: TcxStyle;
|
|
SkyBlue: TcxStyle;
|
|
Default: TcxStyle;
|
|
QHuangSe: TcxStyle;
|
|
Red: TcxStyle;
|
|
FontBlue: TcxStyle;
|
|
TextSHuangSe: TcxStyle;
|
|
FonePurple: TcxStyle;
|
|
FoneClMaroon: TcxStyle;
|
|
FoneRed: TcxStyle;
|
|
RowColor: TcxStyle;
|
|
handBlack: TcxStyle;
|
|
cxBlue: TcxStyle;
|
|
SHuangSeCu: TcxStyle;
|
|
dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList;
|
|
dxLayoutSkinLookAndFeel1: TdxLayoutSkinLookAndFeel;
|
|
cxLocalizer1: TcxLocalizer;
|
|
procedure DataModuleCreate(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
BaseDataLink: TBaseDataLink;
|
|
|
|
implementation
|
|
|
|
{%CLASSGROUP 'Vcl.Controls.TControl'}
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure TBaseDataLink.DataModuleCreate(Sender: TObject);
|
|
var
|
|
str :String;
|
|
pathStr:String;
|
|
begin
|
|
RootLookAndFeel.NativeStyle := False;
|
|
// pathStr:=ExtractFilePath(Application.ExeName) + '\AllSkins.skinres';
|
|
// if FileExists(pathStr) then
|
|
// begin
|
|
// dxSkinsUserSkinLoadFromFile(pathStr, 'WXI');
|
|
// RootLookAndFeel.SkinName := sdxSkinsUserSkinName;
|
|
// end;
|
|
if (fileexists(ExtractFilePath(Application.ExeName) + 'devchs.ini') = true)
|
|
then
|
|
begin
|
|
cxLocalizer1.FileName := ExtractFilePath(Application.ExeName) +
|
|
'devchs.ini';
|
|
cxLocalizer1.Active := true;
|
|
cxLocalizer1.LanguageIndex := 1;
|
|
end;
|
|
end;
|
|
|
|
end.
|