RTFormwork/public10/design/U_BaseDataLink.pas

unit U_BaseDataLink;

interface

uses
  System.SysUtils,windows,forms, System.Classes,
   dxSkinsDefaultPainters, dxCore, cxClasses,
  cxLookAndFeels, dxSkinsForm, cxContainer, cxEdit,
  System.ImageList, Vcl.ImgList, Vcl.Controls, cxImageList, cxGraphics, cxStyles,
    dxLayoutLookAndFeels,cxLocalization;

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;
  thread:Tthread;
begin

          RootLookAndFeel.NativeStyle := false;
           gFontSize:=0;

           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
           else
           begin
              pathStr:=ExtractFilePath(Application.ExeName) + '\AllSkins.skinres';
              if FileExists(pathStr) then
              begin
                dxSkinsUserSkinLoadFromFile(pathStr, 'WXI');
                RootLookAndFeel.SkinName := sdxSkinsUserSkinName;
              end;
           end;
  end;


end.