Ver 2,0,1,72

Hong

2020-05-25 a83839e2935c06f2a70ee1f2be40caca54f42aaf

 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;