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.