From f019d876493d2dd61997de7aa023612243327ccb Mon Sep 17 00:00:00 2001 From: sgwp <63001967@qq.com> Date: Sat, 8 Feb 2025 16:17:57 +0800 Subject: [PATCH] =?UTF-8?q?=E4=BF=AE=E6=94=B9=E5=85=BC=E5=AE=B9=E4=BB=A5?= =?UTF-8?q?=E5=89=8D=E7=89=88=E6=9C=AC=E7=9A=84=E6=8C=89=E9=92=AE=E6=9D=83?= =?UTF-8?q?=E9=99=90?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Delphi10/开发档案/Dp10RepoV1/public10/design/U_BaseList.pas | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/Delphi10/开发档案/Dp10RepoV1/public10/design/U_BaseList.pas b/Delphi10/开发档案/Dp10RepoV1/public10/design/U_BaseList.pas index 1a0f3a9..b91d529 100644 --- a/Delphi10/开发档案/Dp10RepoV1/public10/design/U_BaseList.pas +++ b/Delphi10/开发档案/Dp10RepoV1/public10/design/U_BaseList.pas @@ -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;