RTFormwork/public10/design/U_BaseDataLink.pas

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.