1

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;