rtgit/RTFormwork
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2

Browse Source
This commit is contained in:
“ddf” 2024-11-15 17:26:46 +08:00
parent f2a94cb7b0
commit d1b82e4288
1 changed files with 31 additions and 35 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

66
public10/design/U_BaseDataLink.pas
View File

@ -3,12 +3,10 @@ unit U_BaseDataLink;
interface
uses
System.SysUtils,windows,forms, System.Classes,
dxCore, cxClasses,
cxLookAndFeels, dxSkinsForm, cxContainer, cxEdit,
System.ImageList, Vcl.ImgList, Vcl.Controls, cxImageList, cxGraphics, cxStyles,
dxLayoutLookAndFeels,
cxLocalization;
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)
@ -37,54 +35,52 @@ type
private
{ Private declarations }
public
end;
var
BaseDataLink: TBaseDataLink;
implementation
uses
U_globalVar,U_FormLayOutDesign;
U_globalVar, U_FormLayOutDesign;
{%CLASSGROUP 'Vcl.Controls.TControl'}
{$R *.dfm}
procedure TBaseDataLink.DataModuleCreate(Sender: TObject);
var
str :String;
pathStr:String;
str: string;
pathStr: string;
I: Integer;
begin
RootLookAndFeel.NativeStyle := False;
gFontSize:=0;
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 (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;
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;
end.