90 lines
2.4 KiB
ObjectPascal
90 lines
2.4 KiB
ObjectPascal
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.
|