From a83839e2935c06f2a70ee1f2be40caca54f42aaf Mon Sep 17 00:00:00 2001
From: Hong <chlin1022@i-mps.com>
Date: 星期一, 25 五月 2020 11:19:57 +0800
Subject: [PATCH] Ver 2,0,1,72
---
OldCaseInfo.pas | 14 +++++++++++---
1 files changed, 11 insertions(+), 3 deletions(-)
diff --git a/OldCaseInfo.pas b/OldCaseInfo.pas
index ce23d02..e2cbf92 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';
@@ -29,7 +29,6 @@
Splitter1: TSplitter;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
- HTTPSClient: TElHTTPSClient;
ElMemoryCertStorage: TElMemoryCertStorage;
ElWinCertStorage: TElWinCertStorage;
Memo1: TMemo;
@@ -38,6 +37,7 @@
ISB1: TImageScrollBox;
ScrollBox1: TScrollBox;
Edit1: TEdit;
+ HTTPSClient: TElHTTPSClient;
procedure BitBtn4Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
@@ -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;
@@ -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;
@@ -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;
--
Gitblit v1.8.0