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

1

Browse Source
This commit is contained in:
sgwp 2025-02-21 17:06:12 +08:00
parent e29ce4d9df
commit 071670f0e2
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
Delphi10/开发档案/Dp10RepoV1/public10/design/U_BaseList.pas
View File

@ -8,7 +8,7 @@ uses
Data.Win.ADODB, cxGraphics, U_WindowFormdesign, cxEdit, Vcl.ExtCtrls, Data.Win.ADODB, cxGraphics, U_WindowFormdesign, cxEdit, Vcl.ExtCtrls,
cxControls, cxProgressBar, cxLookAndFeels, cxLookAndFeelPainters, cxContainer, cxControls, cxProgressBar, cxLookAndFeels, cxLookAndFeelPainters, cxContainer,
dxSkinsCore, dxSkinsDefaultPainters, dxSkinWXI, dxSkinSharpPlus, dxSkinsCore, dxSkinsDefaultPainters, dxSkinWXI, dxSkinSharpPlus,
System.JSON, dxSkinMySkin_WXI, dxSkinOffice2013White; System.JSON;
type type
TfrmBaseList = class(TForm) TfrmBaseList = class(TForm)
@ -73,8 +73,8 @@ begin
fModuleId:=StringReplace(Trim(jsonObject.GetValue('moduleId').ToString),'"','',[rfReplaceAll]); fModuleId:=StringReplace(Trim(jsonObject.GetValue('moduleId').ToString),'"','',[rfReplaceAll]);
fModuleSubId:=StringReplace(trim(jsonObject.GetValue('moduleSubId').ToString),'"','',[rfReplaceAll]); fModuleSubId:=StringReplace(trim(jsonObject.GetValue('moduleSubId').ToString),'"','',[rfReplaceAll]);
gTeamWorker:=StringReplace(trim(jsonObject.GetValue('teamWorkerId').ToString),'"','',[rfReplaceAll]); gTeamWorker:=StringReplace(trim(jsonObject.GetValue('teamWorkerId').ToString),'"','',[rfReplaceAll]);
if Parameters1='²éѯ' then if Parameters1=' ѯ' then
fParameters10:='²éѯ' fParameters10:=' ѯ'
else else
fParameters10:=''; fParameters10:='';
finally finally
@ -82,7 +82,7 @@ begin
end; end;
end; end;
//ÖØÃüÃû´°¿Ú //
if trim(formName)<>'' then if trim(formName)<>'' then
self.Name:=self.Name+trim(formName); self.Name:=self.Name+trim(formName);
fFormId:= FormID ; fFormId:= FormID ;
@ -119,7 +119,7 @@ begin
self.Font.Size := gFontSize; self.Font.Size := gFontSize;
if trim(gFontName)<>'' then if trim(gFontName)<>'' then
self.Font.Name:=gFontName; self.Font.Name:=gFontName;
// ´°¿Ú±³¾°É« // ڱ ɫ
fWindowDesign := TWindowFormdesign.Create(); fWindowDesign := TWindowFormdesign.Create();
end; end;