103 lines
3.3 KiB
ObjectPascal
103 lines
3.3 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, dxSkinHighContrast, dxSkinBlack, dxSkinBlue, dxSkinBlueprint,
|
|
dxSkinCaramel, dxSkinCoffee, dxSkinDarkroom, dxSkinDarkSide,
|
|
dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
|
|
dxSkinGlassOceans, 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;
|
|
cxImageList_bar: TcxImageList;
|
|
ThreeColorBase: TcxStyleRepository;
|
|
dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList;
|
|
dxLayoutSkinLookAndFeel1: TdxLayoutSkinLookAndFeel;
|
|
cxLocalizer1: TcxLocalizer;
|
|
grid_head_blue: TcxStyle;
|
|
grid_head_red: TcxStyle;
|
|
grid_head_green: TcxStyle;
|
|
grid_head_yellow: TcxStyle;
|
|
grid_head_cyan: TcxStyle;
|
|
grid_head_purple: TcxStyle;
|
|
grid_black_blue: TcxStyle;
|
|
grid_black_pink: TcxStyle;
|
|
grid_black_grey: TcxStyle;
|
|
grid_black_green: TcxStyle;
|
|
grid_black_yellow: TcxStyle;
|
|
grid_black_cyan: TcxStyle;
|
|
grid_head_black: TcxStyle;
|
|
procedure DataModuleCreate(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
|
|
end;
|
|
|
|
var
|
|
BaseDataLink: TBaseDataLink;
|
|
|
|
implementation
|
|
uses
|
|
U_globalVar,U_FormLayOutDesign;
|
|
{%CLASSGROUP 'Vcl.Controls.TControl'}
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure TBaseDataLink.DataModuleCreate(Sender: TObject);
|
|
var
|
|
str :String;
|
|
pathStr:String;
|
|
I: Integer;
|
|
begin
|
|
RootLookAndFeel.NativeStyle := False;
|
|
gFontSize:=0;
|
|
// 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;
|
|
//
|
|
if not isUseSkin() then
|
|
begin
|
|
dxSkinController1.UseSkins:=false;
|
|
dxSkinController1.SkinName:='';
|
|
end;
|
|
// gGridNativeSet:=isGridNativeSet();
|
|
//
|
|
end;
|
|
|
|
|
|
end.
|