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 interface
uses uses
System.SysUtils,windows,forms, System.Classes, System.SysUtils, windows, forms, System.Classes, dxCore, cxClasses,
dxCore, cxClasses, cxLookAndFeels, cxContainer, cxEdit, System.ImageList, Vcl.ImgList,
cxLookAndFeels, dxSkinsForm, cxContainer, cxEdit, Vcl.Controls, cxImageList, cxGraphics, cxStyles, dxLayoutLookAndFeels,
System.ImageList, Vcl.ImgList, Vcl.Controls, cxImageList, cxGraphics, cxStyles, cxLocalization, dxSkinsForm, dxSkinsDefaultPainters;
dxLayoutLookAndFeels,
cxLocalization;
type type
TBaseDataLink = class(TDataModule) TBaseDataLink = class(TDataModule)
@ -37,54 +35,52 @@ type
private private
{ Private declarations } { Private declarations }
public public
end; end;
var var
BaseDataLink: TBaseDataLink; BaseDataLink: TBaseDataLink;
implementation implementation
uses uses
U_globalVar,U_FormLayOutDesign; U_globalVar, U_FormLayOutDesign;
{%CLASSGROUP 'Vcl.Controls.TControl'} {%CLASSGROUP 'Vcl.Controls.TControl'}
{$R *.dfm} {$R *.dfm}
procedure TBaseDataLink.DataModuleCreate(Sender: TObject); procedure TBaseDataLink.DataModuleCreate(Sender: TObject);
var var
str :String; str: string;
pathStr:String; pathStr: string;
I: Integer; I: Integer;
begin begin
RootLookAndFeel.NativeStyle := False; RootLookAndFeel.NativeStyle := False;
gFontSize:=0; gFontSize := 0;
if (fileexists(ExtractFilePath(Application.ExeName) + 'devchs.ini') = true) if (fileexists(ExtractFilePath(Application.ExeName) + 'devchs.ini') = true) then
then begin
begin cxLocalizer1.FileName := ExtractFilePath(Application.ExeName) + 'devchs.ini';
cxLocalizer1.FileName := ExtractFilePath(Application.ExeName) + cxLocalizer1.Active := true;
'devchs.ini'; cxLocalizer1.LanguageIndex := 1;
cxLocalizer1.Active := true; end;
cxLocalizer1.LanguageIndex := 1;
end;
// //
if not isUseSkin() then if not isUseSkin() then
begin begin
dxSkinController1.UseSkins:=false; dxSkinController1.UseSkins := false;
dxSkinController1.SkinName:=''; dxSkinController1.SkinName := '';
end end
else else
begin begin
pathStr:=ExtractFilePath(Application.ExeName) + '\AllSkins.skinres'; pathStr := ExtractFilePath(Application.ExeName) + '\AllSkins.skinres';
if FileExists(pathStr) then if FileExists(pathStr) then
begin begin
dxSkinsUserSkinLoadFromFile(pathStr, 'WXI'); dxSkinsUserSkinLoadFromFile(pathStr, 'WXI');
RootLookAndFeel.SkinName := sdxSkinsUserSkinName; RootLookAndFeel.SkinName := sdxSkinsUserSkinName;
end; end;
end; end;
// gGridNativeSet:=isGridNativeSet(); // gGridNativeSet:=isGridNativeSet();
// //
end; end;
end. end.