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;

type
  TBaseDataLink = class(TDataModule)
    dxSkinController1: TdxSkinController;
    cxEditStyleController1: TcxEditStyleController;
    ThreeLookAndFeelCol: TcxLookAndFeelController;
    cxDefaultEditStyleController1: TcxDefaultEditStyleController;
    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;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public

  end;

var
  BaseDataLink: TBaseDataLink;

implementation
uses
  U_globalVar;
{%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;
  end;


end.