87 lines
2.2 KiB
ObjectPascal
87 lines
2.2 KiB
ObjectPascal
unit U_BaseDataLink;
|
|
|
|
interface
|
|
|
|
uses
|
|
System.SysUtils, windows, forms, System.Classes, dxCore, cxClasses,
|
|
cxLookAndFeels, cxContainer, cxEdit, System.ImageList, Vcl.ImgList,
|
|
Vcl.Controls, cxImageList, cxGraphics, cxStyles, dxLayoutLookAndFeels,
|
|
cxLocalization, dxSkinsForm, dxSkinsDefaultPainters;
|
|
|
|
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;
|
|
|
|
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;
|
|
// gGridNativeSet:=isGridNativeSet();
|
|
//
|
|
end;
|
|
|
|
end.
|
|
|