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

24
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,13 +35,13 @@ 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'}
@ -52,18 +50,16 @@ uses
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) + cxLocalizer1.FileName := ExtractFilePath(Application.ExeName) + 'devchs.ini';
'devchs.ini';
cxLocalizer1.Active := true; cxLocalizer1.Active := true;
cxLocalizer1.LanguageIndex := 1; cxLocalizer1.LanguageIndex := 1;
end; end;
@ -86,5 +82,5 @@ begin
// //
end; end;
end. end.