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;