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

修改兼容以前版本的按钮权限

Browse Source
This commit is contained in:
sgwp 2025-02-08 16:17:57 +08:00
parent 0aceb04245
commit f019d87649
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -7,7 +7,8 @@ uses
System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB,
Data.Win.ADODB, cxGraphics, U_WindowFormdesign, cxEdit, Vcl.ExtCtrls,
cxControls, cxProgressBar, cxLookAndFeels, cxLookAndFeelPainters, cxContainer,
dxSkinsCore, dxSkinsDefaultPainters, dxSkinWXI, dxSkinSharpPlus,System.JSON;
dxSkinsCore, dxSkinsDefaultPainters, dxSkinWXI, dxSkinSharpPlus,
dxSkinMySkin_WXI, System.JSON;
type
TfrmBaseList = class(TForm)
@ -72,6 +73,7 @@ begin
fModuleId:=StringReplace(Trim(jsonObject.GetValue('moduleId').ToString),'"','',[rfReplaceAll]);
fModuleSubId:=StringReplace(trim(jsonObject.GetValue('moduleSubId').ToString),'"','',[rfReplaceAll]);
gTeamWorker:=StringReplace(trim(jsonObject.GetValue('teamWorkerId').ToString),'"','',[rfReplaceAll]);
fParameters10:='';
finally
jsonValue.Free;
end;
@ -111,7 +113,7 @@ begin
self.Font.Size := gFontSize;
if trim(gFontName)<>'' then
self.Font.Name:=gFontName;
// ڱ ɫ
// ´°¿Ú±³¾°É«
fWindowDesign := TWindowFormdesign.Create();
end;