From 10220027159dc90f19f7c62a7b84bb00c6453d4c Mon Sep 17 00:00:00 2001
From: curtis <curtis@i-mps.com>
Date: 星期一, 30 三月 2026 09:27:16 +0800
Subject: [PATCH] feat: spec 定義

---
 OldCaseInfo.pas |   46 +++++++++++++++++++++++-----------------------
 1 files changed, 23 insertions(+), 23 deletions(-)

diff --git a/OldCaseInfo.pas b/OldCaseInfo.pas
index e2cbf92..799e966 100644
--- a/OldCaseInfo.pas
+++ b/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;

--
Gitblit v1.8.0