feat: dfm to web

curtis

17小時前 713024ccb5056e76bcfc9389664981da68a5139f

 OldCaseInfo.pas

@@ -15,20 +15,20 @@
  TOldCaseInfoForm = class(TForm)
    Notebook1: TNotebook;
    Panel2: TPanel;
    ListView1: TListView;
    OldCaseLV: TListView;
    Panel1: TPanel;
    Panel3: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ImportBt: TBitBtn;
    ExitBt: TBitBtn;
    Panel4: TPanel;
    GroupBox1: TGroupBox;
    CaseListGB: TGroupBox;
    CheckListBox1: TCheckListBox;
    Panel5: TPanel;
    Panel6: TPanel;
    Panel7: TPanel;
    Splitter1: TSplitter;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    LoadBt: TBitBtn;
    OldExitBt: TBitBtn;
    ElMemoryCertStorage: TElMemoryCertStorage;
    ElWinCertStorage: TElWinCertStorage;
    Memo1: TMemo;
@@ -38,10 +38,10 @@
    ScrollBox1: TScrollBox;
    Edit1: TEdit;
    HTTPSClient: TElHTTPSClient;
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure OldExitBtClick(Sender: TObject);
    procedure ImportBtClick(Sender: TObject);
    procedure LoadBtClick(Sender: TObject);
    procedure ExitBtClick(Sender: TObject);
    procedure Panel1DblClick(Sender: TObject);
    procedure HTTPSClientCertificateValidate(Sender: TObject;
      X509Certificate: TElX509Certificate; var Validate: Boolean);
@@ -178,7 +178,7 @@
  iDocNo,iDocName,iDocDir :String;
  iDocPage : Integer;
begin
  GroupBox1.Caption :=Format('½s¸¹%s¥i¤Þ¥Î¤å¥ó',[UseCaseID]);
  CaseListGB.Caption :=Format(_Msg('½s¸¹%s¥i¤Þ¥Î¤å¥ó'),[UseCaseID]);
  CheckListBox1.Items.Clear;
  DocDirList := TStringlist.Create;
  try
@@ -401,7 +401,7 @@
          FileList.SaveToFile(iPath+'Context.dat',Tencoding.UTF8);
          DocDirList.Strings[n] := CDocNo;
          DocDirList.SaveToFile(iPath+'DocDir.dat',Tencoding.UTF8);
          FormCode_NameList.Strings[n] := CFormID+'_±ÂÅvÂà±b¬ù©w®Ñ';
          FormCode_NameList.Strings[n] := CFormID+'_'+_Msg('±ÂÅvÂà±b¬ù©w®Ñ');
          FormCode_NameList.SaveToFile(iPath+'FormCode_Name.dat',Tencoding.UTF8);
        end;
      end;
@@ -412,7 +412,7 @@
        //MoveFile(PWideChar(iPath),PWideChar(iiPath));
        DocNoList.Strings[i] := StringReplace(DocNoList.Strings[i],iDocNo,CDocNo,[rfReplaceAll]);
        DocNoList.SaveToFile(ImageSavePath+CaseID+'\'+UseCaseID+'\CaseDocNo.dat',Tencoding.UTF8);
        DocNo_NameList.Strings[i]:= CDocDir+'_±ÂÅvÂà±b¬ù©w®Ñ';
        DocNo_NameList.Strings[i]:= CDocDir+'_'+_Msg('±ÂÅvÂà±b¬ù©w®Ñ');
        DocNo_NameList.SaveToFile(ImageSavePath+CaseID+'\'+UseCaseID+'\DocNo_Name.dat',Tencoding.UTF8);
        //SetRecordEditedDocDir('A',CaseID,CDocNo);
      end;
@@ -732,7 +732,7 @@

end;

procedure TOldCaseInfoForm.BitBtn1Click(Sender: TObject);
procedure TOldCaseInfoForm.ImportBtClick(Sender: TObject);
var
  i,v,v1 : Integer;
  DocDir,DocName : String;
@@ -757,35 +757,35 @@
  end;
  if not HaveCase then
  begin
    Showmessage('©|¥¼¿ï¾Ü­n¤Þ¤Jªº¤å¥ó');
    Showmessage(_Msg('©|¥¼¿ï¾Ü­n¤Þ¤Jªº¤å¥ó'));
    Exit;
  end;
  //Showmessage(OldDocDirList.Text);
  ModalResult := MrOk;
end;

procedure TOldCaseInfoForm.BitBtn2Click(Sender: TObject);
procedure TOldCaseInfoForm.ExitBtClick(Sender: TObject);
begin
  Notebook1.ActivePage := 'CaseInfo';
end;

procedure TOldCaseInfoForm.BitBtn3Click(Sender: TObject);
procedure TOldCaseInfoForm.LoadBtClick(Sender: TObject);
var
  i : Integer;
  OldCaseInfoList,Caseinfolist : TStringlist;
  iCaseID,UseBS_No,UseIS_Old : String;
begin
  if ListView1.ItemIndex = -1 then
  if OldCaseLV.ItemIndex = -1 then
  begin
    Showmessage(_msg('©|¥¼¿ï¾Üñ³ø®Ñ½s¸¹'));
    Exit;
  end;
  GroupBox1.Caption :=Format('½s¸¹%s¥i¤Þ¥Î¤å¥ó',[UseCaseID]);
  CaseListGB.Caption :=Format(_Msg('½s¸¹%s¥i¤Þ¥Î¤å¥ó'),[UseCaseID]);
  CheckListBox1.Items.Clear;
  Notebook1.ActivePage := 'View';
  UseCaseID := ListView1.Selected.Caption;
  UseBS_No := ListView1.Selected.SubItems.Strings[1];
  UseIS_Old := UpperCase(ListView1.Selected.SubItems.Strings[2]);
  UseCaseID := OldCaseLV.Selected.Caption;
  UseBS_No := OldCaseLV.Selected.SubItems.Strings[1];
  UseIS_Old := UpperCase(OldCaseLV.Selected.SubItems.Strings[2]);
  OldCaseInfoList := TStringlist.Create;
  Caseinfolist := TStringlist.Create;
  try
@@ -837,7 +837,7 @@

end;

procedure TOldCaseInfoForm.BitBtn4Click(Sender: TObject);
procedure TOldCaseInfoForm.OldExitBtClick(Sender: TObject);
begin
  ModalResult := MrCancel;
end;