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
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,13 +35,13 @@ type
private
{ Private declarations }
public
end;
var
BaseDataLink: TBaseDataLink;
implementation
uses
U_globalVar, U_FormLayOutDesign;
{%CLASSGROUP 'Vcl.Controls.TControl'}
@ -52,18 +50,16 @@ uses
procedure TBaseDataLink.DataModuleCreate(Sender: TObject);
var
str :String;
pathStr:String;
str: string;
pathStr: string;
I: Integer;
begin
RootLookAndFeel.NativeStyle := False;
gFontSize := 0;
if (fileexists(ExtractFilePath(Application.ExeName) + 'devchs.ini') = true)
then
if (fileexists(ExtractFilePath(Application.ExeName) + 'devchs.ini') = true) then
begin
cxLocalizer1.FileName := ExtractFilePath(Application.ExeName) +
'devchs.ini';
cxLocalizer1.FileName := ExtractFilePath(Application.ExeName) + 'devchs.ini';
cxLocalizer1.Active := true;
cxLocalizer1.LanguageIndex := 1;
end;
@ -86,5 +82,5 @@ begin
//
end;
end.