From f577443b19a16ee59a8ac5cc8f4745c09108d3e2 Mon Sep 17 00:00:00 2001
From: Hong-Dell\Hong <chlin1022@i-mps.com>
Date: 星期四, 14 三月 2024 17:56:53 +0800
Subject: [PATCH] Ver 2,0,1,78
---
OldCaseInfo.pas | 60 ++++++++++++++++++++++++++++++++++--------------------------
1 files changed, 34 insertions(+), 26 deletions(-)
diff --git a/OldCaseInfo.pas b/OldCaseInfo.pas
index ce23d02..799e966 100644
--- a/OldCaseInfo.pas
+++ b/OldCaseInfo.pas
@@ -6,7 +6,7 @@
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, CheckLst, Buttons, ComCtrls,IISUnit,IIS_File2Web,IIS_ImageProcess,
HTTPApp, SBWinCertStorage, SBX509, SBCustomCertStorage, SBSimpleSSL,
- SBHTTPSClient, EnImgScr,inifiles;
+ SBHTTPSClient, EnImgScr,inifiles, SBSocket;
Const
ISBName = 'PreViewISB';
@@ -15,21 +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;
- HTTPSClient: TElHTTPSClient;
+ LoadBt: TBitBtn;
+ OldExitBt: TBitBtn;
ElMemoryCertStorage: TElMemoryCertStorage;
ElWinCertStorage: TElWinCertStorage;
Memo1: TMemo;
@@ -38,10 +37,11 @@
ISB1: TImageScrollBox;
ScrollBox1: TScrollBox;
Edit1: TEdit;
- procedure BitBtn4Click(Sender: TObject);
- procedure BitBtn1Click(Sender: TObject);
- procedure BitBtn3Click(Sender: TObject);
- procedure BitBtn2Click(Sender: TObject);
+ HTTPSClient: TElHTTPSClient;
+ 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);
@@ -49,6 +49,8 @@
procedure CheckListBox1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
+ procedure HTTPSClientRedirection(Sender: TObject; const OldURL: string;
+ var NewURL: string; var AllowRedirection: Boolean);
private
{ Private declarations }
OldCaseID:String;
@@ -176,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
@@ -328,7 +330,7 @@
ISB.AntiAliased := False;
ISB.LoadFromFile(ImageSavePath+CaseID+'\'+UseCaseID+'\'+FileList.Strings[i],1);
- DpiResize(ISB.Graphic,36);
+ DpiResize(ISB.Graphic,36,False);
end;
end;
@@ -399,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;
@@ -410,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;
@@ -711,6 +713,12 @@
Validate := True;
end;
+procedure TOldCaseInfoForm.HTTPSClientRedirection(Sender: TObject;
+ const OldURL: string; var NewURL: string; var AllowRedirection: Boolean);
+begin
+ AllowRedirection := True;
+end;
+
procedure TOldCaseInfoForm.Panel1DblClick(Sender: TObject);
begin
Memo1.Visible := not Memo1.Visible;
@@ -724,7 +732,7 @@
end;
-procedure TOldCaseInfoForm.BitBtn1Click(Sender: TObject);
+procedure TOldCaseInfoForm.ImportBtClick(Sender: TObject);
var
i,v,v1 : Integer;
DocDir,DocName : String;
@@ -749,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
@@ -829,7 +837,7 @@
end;
-procedure TOldCaseInfoForm.BitBtn4Click(Sender: TObject);
+procedure TOldCaseInfoForm.OldExitBtClick(Sender: TObject);
begin
ModalResult := MrCancel;
end;
--
Gitblit v1.8.0