From 071670f0e23a49c499dedc098077cb7cff45b8c3 Mon Sep 17 00:00:00 2001 From: sgwp <63001967@qq.com> Date: Fri, 21 Feb 2025 17:06:12 +0800 Subject: [PATCH] 1 --- .../开发档案/Dp10RepoV1/public10/design/U_BaseList.pas | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/Delphi10/开发档案/Dp10RepoV1/public10/design/U_BaseList.pas b/Delphi10/开发档案/Dp10RepoV1/public10/design/U_BaseList.pas index a531d0a..b8a5a1e 100644 --- a/Delphi10/开发档案/Dp10RepoV1/public10/design/U_BaseList.pas +++ b/Delphi10/开发档案/Dp10RepoV1/public10/design/U_BaseList.pas @@ -8,7 +8,7 @@ uses Data.Win.ADODB, cxGraphics, U_WindowFormdesign, cxEdit, Vcl.ExtCtrls, cxControls, cxProgressBar, cxLookAndFeels, cxLookAndFeelPainters, cxContainer, dxSkinsCore, dxSkinsDefaultPainters, dxSkinWXI, dxSkinSharpPlus, - System.JSON, dxSkinMySkin_WXI, dxSkinOffice2013White; + System.JSON; type TfrmBaseList = class(TForm) @@ -73,8 +73,8 @@ 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]); - if Parameters1='ѯ' then - fParameters10:='ѯ' + if Parameters1=' ѯ' then + fParameters10:=' ѯ' else fParameters10:=''; finally @@ -82,7 +82,7 @@ begin end; end; - // + // if trim(formName)<>'' then self.Name:=self.Name+trim(formName); fFormId:= FormID ; @@ -119,7 +119,7 @@ begin self.Font.Size := gFontSize; if trim(gFontName)<>'' then self.Font.Name:=gFontName; - // ڱɫ + // ڱ ɫ fWindowDesign := TWindowFormdesign.Create(); end;