unit OldCaseInfo;

interface

uses
  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;

Const
  ISBName = 'PreViewISB';

type
  TOldCaseInfoForm = class(TForm)
    Notebook1: TNotebook;
    Panel2: TPanel;
    ListView1: TListView;
    Panel1: TPanel;
    Panel3: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Panel4: TPanel;
    GroupBox1: TGroupBox;
    CheckListBox1: TCheckListBox;
    Panel5: TPanel;
    Panel6: TPanel;
    Panel7: TPanel;
    Splitter1: TSplitter;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    HTTPSClient: TElHTTPSClient;
    ElMemoryCertStorage: TElMemoryCertStorage;
    ElWinCertStorage: TElWinCertStorage;
    Memo1: TMemo;
    Panel22: TPanel;
    Timer1: TTimer;
    ISB1: TImageScrollBox;
    ScrollBox1: TScrollBox;
    Edit1: TEdit;
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Panel1DblClick(Sender: TObject);
    procedure HTTPSClientCertificateValidate(Sender: TObject;
      X509Certificate: TElX509Certificate; var Validate: Boolean);
    procedure Timer1Timer(Sender: TObject);
    procedure CheckListBox1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    OldCaseID:String;
    HttpErrStr : String;
    DownImgStatus : String;
    SelectISB : TImageScrollBox;


    Function Down_Img(Path,CaseID:String):Boolean;
    Procedure DataLoading(Loading:Boolean;Msg:String);  //¸ê®Æ¸ü¤J¤¤­n°±¤îÂI¿ïªº°Ê§@
    Procedure LoadImg(Path:String);
    Function DocNoDir2DocNo(DocNoDir:String):String;
    Function DocNo2DocName(DocNo:String):String;
    Function Docdir2Pages(DocDir:String):Integer;
    Function DocNoIs_In_WH(DocNo:String):Boolean; //DocNo¬O§_¬°¤J®w¤å¥ó
    Function DocNoAppear(DocNo:String):Boolean;   //DocNo¬O§_¥i¥X²{
    Procedure ShowImage(DocDir:String);
    Function GetUseCase(Mode:Char;Path,DocDir:String):String;  //F:¨ú³Q¤Þ¥Î To:¤Þ¥Î

    Procedure ErrFormtoCurrentForm(UseCaseID,EFormID,CFormID:String);//±N®תº¿ù»~FormID§ï¥¿½TªºFormID
    Function FormCode2DocNo(FormCode:String):String;   //FormCodeÂàDocno
    Function FileName2FormCode(FileName:String):String; //±qÀɦW¨ú¥XFormCode

    Procedure CreatePreViewISB(Count:Integer);
    Procedure FreePreViewISB;
    Procedure FitPreViewISB;
    Procedure ISBClick(Sender : TObject);
    Procedure ISBMouseMove(Sender: TObject; Shift: TShiftState;
    X, Y: Integer);
    Procedure PaintShape(FromImg,ToImg:TImageScrollBox); //µe¦³³Q¿ï¨úªº¼v¹³
    Procedure FreeShapeobj(SelectISB : TImageScrollBox);
    procedure WMMOUSEWHEEL(var message: TWMMouseWheel); message WM_MOUSEWHEEL;
  public
    { Public declarations }
    ImageSavePath,CaseID,Fdata,FVerify,Furl,FReWrite,FOldCaseInfo:String;
    OldDocDirList,OldCopiesList,OldDocNameList,IN_WH_DocNoList : TStringlist;
    UseCaseID : String;
    FIs_In_Wh : String;
  end;

var
  OldCaseInfoForm: TOldCaseInfoForm;

implementation

{$R *.dfm}

Function TOldCaseInfoForm.Down_Img(Path,CaseID:String):Boolean;
var
  EnCodeDateTime : String;
  SendData : String;
  AttPath : String;
begin
  Result := True;
  //EnCodeDateTime := En_DecryptionStr_Base64('E',ServerDate+GetBalance2Time(Balance),Mpskey);
  ///service/slic/SLIC04/case?data=&verify=&case_no=&file=

  SendData := 'data='+HTTPEncode(UTF8Encode(FData))+'&verify='+FVerify+'&case_no='+CaseID+'&file=';

  if not dnFile_Get(HTTPSClient,Furl,'service/slic/SLIC04/case',SendData,Path+CaseID+'.zip',FReWrite,Memo1,False,DownImgStatus) then
  begin
    HttpErrStr := _Msg('¿ù»~¥N½X:')+Inttostr(HttpError.HttpErrorCode)+' '+HttpError.HttpReason;
    Result := False;
    Exit;
  end;
  if Memo1.Lines.Strings[0] = '1' then
  begin
    HttpErrStr :=_Msg('¿ù»~­ì¦]:')+memo1.Lines.Strings[1];
    Result := False;
    Exit;
  end
  Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
  begin
    HttpErrStr := _Msg('¿ù»~­ì¦]:')+_Msg('¶¢¸m¹L¤[©Î³Qµn¥X,½Ð­«·sµn¤J');
    Result := False;
    Exit;
  end;
  if FileExists(Path+CaseID+'.zip') then
  begin
    ExecuteUnZip(Path+CaseID+'.zip',Path,True);
    if FileExists(Path+'img.zip') then
    begin
      ExecuteUnZip(Path+'img.zip',Path,False);
    end;
  end
  Else
  begin
    HttpErrStr := _Msg('§ä¤£¨ì¼v¹³');
    Result := True;
    Exit;
  end;

end;

Procedure TOldCaseInfoForm.DataLoading(Loading:Boolean;Msg:String);  //¸ê®Æ¸ü¤J¤¤­n°±¤îÂI¿ïªº°Ê§@
begin
  If Loading Then
  begin
    Screen.Cursor := -11;
    Panel22.Caption := Msg;
    Panel22.Left := (Panel2.Width div 2) - (Panel22.Width div 2);
    Panel22.Top := (Panel2.Height div 2) - (Panel22.Height div 2);
    Panel22.Visible := True;
    Timer1.Enabled := True;
    Application.ProcessMessages;
    Panel1.Enabled := False;
    Panel2.Enabled := False;
  end
  Else
  begin
    //Timer3.Enabled := True;
    Panel22.Visible := False;
    Timer1.Enabled := False;
    Panel1.Enabled := True;
    Panel2.Enabled := True;
    Screen.Cursor := 0;
  end;

end;

Procedure TOldCaseInfoForm.LoadImg(Path:String);
var
  i : Integer;
  DocDirList : TStringlist;
  iDocNo,iDocName,iDocDir :String;
  iDocPage : Integer;
begin
  GroupBox1.Caption :=Format('½s¸¹%s¥i¤Þ¥Î¤å¥ó',[UseCaseID]);
  CheckListBox1.Items.Clear;
  DocDirList := TStringlist.Create;
  try
    if FileExists(ImageSavePath+CaseID+'\'+UseCaseID+'\CaseDocNo.dat') then
      DocDirList.LoadFromFile(ImageSavePath+CaseID+'\'+UseCaseID+'\CaseDocNo.dat');
    for i := 0 to DocDirList.Count - 1 do
    begin
      iDocDir := DocDirList.Strings[i];
      iDocNo := DocNoDir2DocNo(iDocDir);
      iDocName := DocNo2DocName(iDocNo);
      iDocPage := Docdir2Pages(iDocDir);
      if iDocPage > 0 then
      begin
        if not DocNoAppear(iDocNo) then Continue;
        if GetUseCase('T',ImageSavePath+CaseID+'\'+UseCaseID+'\',iDocDir) = '' then
          CheckListBox1.Items.Add(Format('%s{%s}-%d',[iDocDir,iDocName,iDocPage]));
      end;
    end;

  finally
  DocDirList.Free;
  end;
end;

Function TOldCaseInfoForm.DocNoDir2DocNo(DocNoDir:String):String;
var
  v,ln : Integer;
begin
  if DocNoDir <> 'Attach' then
  begin
    v := Pos('(',DocNoDir);
    if v > 0 then
      Result := Copy(DocNoDir,1,v-1)
    else
      Result := DocNoDir;
  end
  Else
    Result := DocNoDir
end;

Function TOldCaseInfoForm.DocNo2DocName(DocNo:String):String;
var
  i : Integer;
  v,ln : Integer;
  iDocNo,iDocName:String;
  iDoc_DocName : String;
  DocNo_DocNameList:TStringlist;
begin
  Result := '';
  DocNo_DocNameList := TStringlist.Create;
  try
    if FileExists(ImageSavePath+CaseID+'\'+UseCaseID+'\DocNo_Name.dat') then
      DocNo_DocNameList.LoadFromFile(ImageSavePath+CaseID+'\'+UseCaseID+'\DocNo_Name.dat',TEnCoding.UTF8);
    for i := 0 to DocNo_DocNameList.Count - 1 do
    begin
      iDoc_DocName := StringReplace(DocNo_DocNameList.Strings[i],'*','',[rfReplaceAll]);
      v := Pos('_',iDoc_DocName);
      ln := length(iDoc_DocName);
      iDocNo := Copy(iDoc_DocName,1,v-1);
      iDocName := Copy(iDoc_DocName,v+1,ln-v);
      if DocNo = iDocNo then
        Result := iDocName;
    end;

  finally
  DocNo_DocNameList.Free;
  end;
end;

Function TOldCaseInfoForm.Docdir2Pages(DocDir:String):Integer;
var
  i,Count : Integer;
  FileList : TStringlist;
  DocDirList : TStringlist;
begin
  Count := 0;
  FileList := TStringlist.Create;
  DocDirList := TStringlist.Create;
  try
    if FileExists(ImageSavePath+CaseID+'\'+UseCaseID+'\Context.dat') then
      FileList.LoadFromFile(ImageSavePath+CaseID+'\'+UseCaseID+'\Context.dat');
    if FileExists(ImageSavePath+CaseID+'\'+UseCaseID+'\DocDir.dat') then
      DocDirList.LoadFromFile(ImageSavePath+CaseID+'\'+UseCaseID+'\DocDir.dat');
    for i := 0 to DocDirList.Count - 1 do
    begin
      if DocDir = DocDirList.Strings[i] then
        inc(Count);
    end;
    Result := Count;

  finally
  FileList.Free;
  DocDirList.Free;
  end;
end;

Function TOldCaseInfoForm.DocNoIs_In_WH(DocNo:String):Boolean; //DocNo¬O§_¬°¤J®w¤å¥ó
var
  i : Integer;
begin
  Result := False;
  if (Copy(DocNo,1,5)='ZZZZZ') then //20140728 yuu »¡¦Û­q¤å¥ó¤]¬O¤J®w¤å¥ó
  begin
    Result := True;
    Exit;
  end;
  for i := 0 to IN_WH_DocNoList.Count -1 do
  begin
    if DocNo = IN_WH_DocNoList.Strings[i] then
    begin
      Result := True;
      Break;
    end;
  end;
end;

Function TOldCaseInfoForm.DocNoAppear(DocNo:String):Boolean;   //DocNo¬O§_¥i¥X²{
begin
  Result := True;
  if (((FIs_In_Wh  = 'Y') and (not DocNoIs_In_WH(DocNo)) or (DocNo ='S_Attach')) or   //¤J®w±½´y¤£¬Ý«D¤J®w¤å¥ó
     ((FIs_In_Wh  = 'N') and (DocNoIs_In_WH(DocNo)) or (DocNo ='Attach') )) {and      //«D¤J®w±½´y¤£¬Ý¤J®w¤å¥ó
     (Copy(DocNo,1,5)<>'ZZZZZ')} then
       Result := False;
end;

Procedure TOldCaseInfoForm.ShowImage(DocDir:String);
var
  i,ct : Integer;
  FileList : TStringlist;
  DocDirList : TStringlist;
  ISB : TImageScrollBox;
begin
  FileList := TStringlist.Create;
  DocDirList := TStringlist.Create;
  try
    if FileExists(ImageSavePath+CaseID+'\'+UseCaseID+'\Context.dat') then
      FileList.LoadFromFile(ImageSavePath+CaseID+'\'+UseCaseID+'\Context.dat');
    if FileExists(ImageSavePath+CaseID+'\'+UseCaseID+'\DocDir.dat') then
      DocDirList.LoadFromFile(ImageSavePath+CaseID+'\'+UseCaseID+'\DocDir.dat');
    Ct := 0;
    for i := 0 to DocDirList.Count - 1 do
    begin
      if DocDirList.Strings[i] = DocDir then
      begin
        inc(Ct);
        ISB := TImageScrollBox(FindComponent(ISBName+intToStr(Ct)));
        ISB.AntiAliased := True;
        if ISB.ZoomPercent > 100  then
          ISB.AntiAliased := False;

        ISB.LoadFromFile(ImageSavePath+CaseID+'\'+UseCaseID+'\'+FileList.Strings[i],1);
        DpiResize(ISB.Graphic,36);
      end;
    end;


  finally
  FileList.Free;
  DocDirList.Free;
  end;
end;

Function TOldCaseInfoForm.GetUseCase(Mode:Char;Path,DocDir:String):String;  //F:¨ú³Q¤Þ¥Î To:¤Þ¥Î
var
  ini : Tinifile;
begin
  ini := Tinifile.Create(Path+'UseCase.ini');
  try
    case Mode of
      'F':begin
            Result := ini.ReadString(DocDir,'FORM_CASEID','');
          end;
      'T':begin
            Result := ini.ReadString(DocDir,'TO_CASEID','');
          end;
    end;
  finally
  ini.Free;
  end;

end;


Procedure TOldCaseInfoForm.ErrFormtoCurrentForm(UseCaseID,EFormID,CFormID:String);//±N®תº¿ù»~FormID§ï¥¿½TªºFormID
var
  DocNoList,FileList,DocDirList,FormCode_NameList,DocNo_NameList :TStringlist;
  EDocNo,CDocNo,iDocNo,iFormID :String;
  EDocDir,CDocDir:String;
  OldFile,NewFile :String;
  iPath,iiPath : String;
  i,n : Integer;
begin
  EDocNo := FormCode2DocNo(EFormID);
  CDocNo := FormCode2DocNo(CFormID);
  DocNoList :=TStringlist.Create;
  FileList := TStringlist.Create;
  DocDirList := TStringlist.Create;
  FormCode_NameList := TStringlist.Create;
  DocNo_NameList := TStringlist.Create;
  try
    DocNoList.LoadFromFile(ImageSavePath+CaseID+'\'+UseCaseID+'\CaseDocNo.dat',Tencoding.UTF8);
    DocNo_NameList.LoadFromFile(ImageSavePath+CaseID+'\'+UseCaseID+'\DocNo_Name.dat',Tencoding.UTF8);
    for i := 0 to DocNoList.Count - 1 do
    begin
      EDocDir := DocNoList.Strings[i];
      iDocNo := DocNoDir2DocNo(DocNoList.Strings[i]);
      iPath := ImageSavePath+CaseID+'\'+UseCaseID+'\';
      FileList.LoadFromFile(iPath+'Context.dat',Tencoding.UTF8);
      DocDirList.LoadFromFile(iPath+'DocDir.dat',Tencoding.UTF8);
      FormCode_NameList.LoadFromFile(iPath+'FormCode_Name.dat',Tencoding.UTF8);
      for n := 0 to FileList.Count - 1 do
      begin
        iFormID := FileName2FormCode(FileList.Strings[n]);
        if iFormID = EFormID then
        begin
          OldFile := FileList.Strings[n];
          NewFile := StringReplace(FileList.Strings[n],iFormID,CFormID,[rfReplaceAll]);
          FileList.Strings[n] := NewFile;
          RenameFile(iPath+OldFile,iPath+NewFile);
          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.SaveToFile(iPath+'FormCode_Name.dat',Tencoding.UTF8);
        end;
      end;
      if iDocNo = EDocNo then
      begin
        CDocDir := StringReplace(EDocDir,EDocNo,CDocNo,[rfReplaceAll]);
        //iiPath := ImageSavePath+CaseID+'\'+UseCaseID+'\'+CDocDir+'\';
        //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.SaveToFile(ImageSavePath+CaseID+'\'+UseCaseID+'\DocNo_Name.dat',Tencoding.UTF8);
        //SetRecordEditedDocDir('A',CaseID,CDocNo);
      end;
    end;
  finally
  DocNoList.Free;
  FileList.Free;
  DocDirList.Free;
  FormCode_NameList.Free;
  DocNo_NameList.Free;
  end;
end;

Function TOldCaseInfoForm.FormCode2DocNo(FormCode:String):String;   //FormCodeÂàDocno
begin
  Result := Copy(FormCode,1,8);
end;

Function TOldCaseInfoForm.FileName2FormCode(FileName:String):String; //±qÀɦW¨ú¥XFormCode
var
  v,v1 : Integer;
begin
  FileName := ExtractFileName(FileName);
  v := Pos('_',FileName);
  v1 := Pos('.',FileName);
  if v > 0 then
  begin
    Result := Copy(FileName,v+1,v1-v-1);
  end
  Else     //ªþ¥ó
  begin
    Result := '';
  end;
end;


procedure TOldCaseInfoForm.CheckListBox1Click(Sender: TObject);
var
  v,i : Integer;
  DocDir,iDocDir : String;
begin
  DocDir := CheckListBox1.Items.Strings[CheckListBox1.ItemIndex];
  v := Pos('{',DocDir);
  DocDir := Copy(DocDir,1,v-1);
  for i := 0 to CheckListBox1.Items.Count - 1 do
  begin
    iDocDir := CheckListBox1.Items.Strings[i];
    v := Pos('{',iDocDir);
    iDocDir := Copy(iDocDir,1,v-1);
    if (DocNoDir2DocNo(iDocDir) = DocNoDir2DocNo(DocDir)) and  (i <> CheckListBox1.ItemIndex) then
      CheckListBox1.Checked[i] := CheckListBox1.Checked[CheckListBox1.ItemIndex];
  end;



  CreatePreViewISB(Docdir2Pages(DocDir));
  ShowImage(DocDir);
  FitPreViewISB;
end;

Procedure TOldCaseInfoForm.CreatePreViewISB(Count:Integer);
var
  ISB : TImageScrollBox;
  Panel : TPanel;
  i,W,H : Integer;
begin
  FreePreViewISB;
  ScrollBox1.HorzScrollBar.Visible := False;
  W := 150;
  H := 250;
  for I := 1 to Count do
  begin
    Panel := TPanel.Create(Self);
    Panel.Name := 'M_Pl'+inttostr(i);
    Panel.Left := 4;
    Panel.Top := (i-1)*H+(6*i);
    Panel.Height := H;
    Panel.Width := W;
    Panel.Parent := ScrollBox1;
    Panel.Caption :='';
    ISB := TImageScrollBox.Create(Self);
    ISB.Name := ISBName+inttostr(i);
    ISB.Parent := Panel;
    ISB.Align := alClient;
    ISB.ZoomMode := zmFullPage;
    ISB.DragMode := dmAutomatic;
    ISB.MouseMode := mmuser;
    ISB.OnImageClick := ISBClick;
    ISB.OnImageMouseMove := ISBMouseMove;
  end;

end;

Procedure TOldCaseInfoForm.FreePreViewISB;
var
  i : Integer;
begin
  For i:= ComponentCount -1 downto 0 do
  begin
    IF Components[i] is TImageScrollBox Then
    begin
      IF Pos(ISBName,Components[i].Name) > 0 Then
        Components[i].Free;
    end
    Else If Components[i] is TPanel Then
    begin
      IF Pos('M_Pl',Components[i].Name) > 0  Then
        Components[i].Free;
    end
    Else If Components[i] is TShape Then
    begin
      IF Pos('SP',Components[i].Name) > 0  Then
        Components[i].Free;
    end;
  end;
  Application.ProcessMessages;
  //showmessage(inttostr(Count));
end;

Procedure TOldCaseInfoForm.FitPreViewISB;
var
  i : Integer;
  iISB : TImageScrollBox;
  iPanel : TPanel;
  T,H : Integer;
begin
  T := 0;
  i := 1;

  while FindComponent(ISBName+inttostr(i)) <> nil do
  begin
    iISB := TImageScrollBox(FindComponent(ISBName+inttostr(i)));
    iISB.Parent.Height := 250;
    iISB.Parent.Top := T+4;
    iISB.Parent.Height := iISB.DisplayedGraphic.Height;
    H := iISB.Parent.Height;
    T := iISB.Parent.Top+H;
    inc(i);
  end;


  {For i:= 1 to Count do
  begin
    if TImageScrollBox(FindComponent(ISBName+inttostr(i))) = nil then Break;


    iISB := TImageScrollBox(FindComponent(ISBName+inttostr(i)));
    iISB.Parent.Height := H;
    iISB.Parent.Top := T+4;
    iISB.Parent.Height := iISB.DisplayedGraphic.Height;
    H := iISB.Parent.Height;
    T := iISB.Parent.Top+H;
  end;}

end;

procedure TOldCaseInfoForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  FreePreViewISB;
  FreeShapeobj(nil);
  //OldDocDirList.Free;
end;

procedure TOldCaseInfoForm.FormCreate(Sender: TObject);
begin
  //OldDocDirList := TStringlist.Create;
end;

Procedure TOldCaseInfoForm.ISBClick(Sender : TObject);
var
  v,ln:Integer;
begin
  FreeShapeobj(nil);
  SelectISB := TImageScrollBox(Sender);
  PaintShape(SelectISB,nil);

  v := length(ISBName);
  ln := length(SelectISB.Name);
  ISB1.ZoomMode := zmFittoPage;
  ISB1.LoadFromFile(SelectISB.FileName,1);
end;

Procedure TOldCaseInfoForm.ISBMouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
  Edit1.SetFocus;
end;

Procedure TOldCaseInfoForm.PaintShape(FromImg,ToImg:TImageScrollBox); //µe¦³³Q¿ï¨úªº¼v¹³
var
  i,F_No,T_No : Integer;
  SP : TShape;
  ISB : TImageScrollBox;
  Function GetImgNo(iISB:TImageScrollBox):Integer;
  begin
    Result := strtoint(Copy(iISB.Name,length(ISBName)+1,length(iISB.Name)-length(ISBName))); //'PreViewISB'
  end;
begin
  IF ToImg = nil Then   //¥uµe³æ¤@­Ó
  begin
    ISB := TImageScrollBox(FindComponent(ISBName+inttostr(GetImgNo(FromImg))));
    if TShape(FindComponent('SP'+inttostr(GetImgNo(FromImg)))) = nil then
    begin

    SP := TShape.Create(self);
    SP.Pen.Color := clblue;
    SP.Pen.Width := 3;
    SP.Parent := ScrollBox1;
    SP.Name := 'SP'+inttostr(GetImgNo(FromImg));
    SP.Left := ISB.Parent.Left-4;
    SP.Top := ISB.Parent.Top -4;
    SP.Width := ISB.Parent.Width + 8;
    SP.Height := ISB.Parent.Height + 8;
    end;
  end
  Else
  begin
    FreeShapeobj(nil);
    IF GetImgNo(FromImg) <= GetImgNo(ToImg) Then
    begin
      F_No := GetImgNo(FromImg);
      T_No := GetImgNo(ToImg);
    end
    Else
    begin
      F_No := GetImgNo(ToImg);
      T_No := GetImgNo(FromImg);
    end;
    For i := F_No to T_No do
    begin
      ISB := TImageScrollBox(FindComponent(ISBName+inttostr(i)));
      SP := TShape.Create(self);
      SP.Pen.Color := clblue;
      SP.Pen.Width := 3;
      SP.Parent := ScrollBox1;
      SP.Name := 'SP'+inttostr(i);
      SP.Left := ISB.Parent.Left-4;
      SP.Top := ISB.Parent.Top -4;
      SP.Width := ISB.Parent.Width + 8;
      SP.Height := ISB.Parent.Height + 8;
    end;
  end;
end;

Procedure TOldCaseInfoForm.FreeShapeobj(SelectISB : TImageScrollBox);
var
  i : Integer;
begin
  IF SelectISB = nil then //¥þFree;
  begin
    For i:= ComponentCount -1 downto 0 do
    begin
      IF Components[i] is TShape Then
      begin
        IF Pos('SP',Components[i].Name) > 0  Then
          Components[i].Free;
      end;
    end;
  end
  Else  //¥uFree«ü©wªº
  begin
    TShape(FindComponent('SP'+Copy(SelectISB.Name,length(ISBName)+1,length(SelectISB.Name)-length(ISBName)))).Free;
  end;
end;

procedure TOldCaseInfoForm.WMMOUSEWHEEL(var message: TWMMouseWheel);
begin
    inherited;

    if (message.WheelDelta = WHEEL_DELTA) Then begin
     if Edit1.Focused then
     begin
       ScrollBox1.VertScrollBar.Increment := 50;
       ScrollBox1.Perform(WM_VSCROLL, SB_LINEUP, 0);
     end;
     {else if DisplayISB.Focused then
     begin
       DisplayISB.VertScrollBar.Increment := 50;
       DisplayISB.Perform(WM_VSCROLL, SB_LINEUP, 0);
     end;}
     end else if (message.WheelDelta = -WHEEL_DELTA) then begin
     if Edit1.Focused then
     begin
       ScrollBox1.VertScrollBar.Increment := 50;
       ScrollBox1.Perform(WM_VSCROLL, SB_LINEDOWN, 0);
     end
     {else if DisplayISB.Focused then
     begin
       DisplayISB.VertScrollBar.Increment := 50;
       DisplayISB.Perform(WM_VSCROLL, SB_LINEDOWN, 0);
     end;}
    end;
end;

procedure TOldCaseInfoForm.HTTPSClientCertificateValidate(Sender: TObject;
  X509Certificate: TElX509Certificate; var Validate: Boolean);
begin
  Validate := True;
end;

procedure TOldCaseInfoForm.Panel1DblClick(Sender: TObject);
begin
  Memo1.Visible := not Memo1.Visible;
end;

procedure TOldCaseInfoForm.Timer1Timer(Sender: TObject);
begin
  if Copy(Panel22.Caption,length(Panel22.Caption)-6+1,6) = '......'  then
    Panel22.Caption := Copy(Panel22.Caption,1,length(Panel22.Caption)-6);
  Panel22.Caption := Panel22.Caption+'.';

end;

procedure TOldCaseInfoForm.BitBtn1Click(Sender: TObject);
var
  i,v,v1 : Integer;
  DocDir,DocName : String;
  HaveCase : Boolean;
begin
  OldDocDirList.Clear;
  OldDocNameList.Clear;
  HaveCase := False;
  for i := 0 to CheckListBox1.Count - 1 do
  begin
    if CheckListBox1.Checked[i] then
    begin
      DocDir := CheckListBox1.Items.Strings[i];
      v := pos('{',DocDir);
      v1 := PosEnd('}',DocDir);
      DocName := Copy(DocDir,v+1,v1-v-1);
      DocDir := Copy(DocDir,1,v-1);
      OldDocNameList.Add(DocName);
      OldDocDirList.Add(DocDir);
      HaveCase := True;
    end;
  end;
  if not HaveCase then
  begin
    Showmessage('©|¥¼¿ï¾Ü­n¤Þ¤Jªº¤å¥ó');
    Exit;
  end;
  //Showmessage(OldDocDirList.Text);
  ModalResult := MrOk;
end;

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

procedure TOldCaseInfoForm.BitBtn3Click(Sender: TObject);
var
  i : Integer;
  OldCaseInfoList,Caseinfolist : TStringlist;
  iCaseID,UseBS_No,UseIS_Old : String;
begin
  if ListView1.ItemIndex = -1 then
  begin
    Showmessage(_msg('©|¥¼¿ï¾Üñ³ø®Ñ½s¸¹'));
    Exit;
  end;
  GroupBox1.Caption :=Format('½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]);
  OldCaseInfoList := TStringlist.Create;
  Caseinfolist := TStringlist.Create;
  try
    OldCaseInfoList.StrictDelimiter := True;
    OldCaseInfoList.Delimiter := #9;
    OldCaseInfoList.DelimitedText := FOldCaseInfo;
    for i := 0 to OldCaseInfoList.Count - 1 do
    begin
      Caseinfolist:=SplitString('@#,',OldCaseInfoList.Strings[i]);
      //Caseinfolist.Delimiter := '_';
      //Caseinfolist.DelimitedText := OldCaseInfoList.Strings[i];
      iCaseID := Caseinfolist.Strings[0];
      if iCaseID = UseCaseID  then
      begin
        Fdata := Caseinfolist.Strings[4];
        FVerify := Caseinfolist.Strings[5];
      end;
    end;
  finally
  OldCaseInfoList.Free;
  Caseinfolist.Free;
  end;

  if not FileExists(imageSavePath+CaseID+'\'+UseCaseID+'\Context.dat') then
  begin
    if DirectoryExists(ImageSavePath+CaseID+'\'+UseCaseID) then
      _Deltree(ImageSavePath+CaseID+'\'+UseCaseID);
    MkDir(ImageSavePath+CaseID+'\'+UseCaseID);
    DataLoading(True,_msg('¼v¹³¤U¸ü¤¤'));
    If not Down_Img(ImageSavePath+CaseID+'\'+UseCaseID+'\',UseCaseID) then
    begin
      Showmessage(UseCaseID+_msg('¸ü¤J²§°Ê¼v¹³®É,ºô¸ôµo¥Í¿ù»~')+HttpErrStr);
      Exit;
    end;
  end;
  if (UseIS_Old = 'Y') and (UseBS_No='HLN') then
  begin

    ErrFormtoCurrentForm(UseCaseID,'10000001011112A','11000001011112A');  //´«±¼¿ùªºFormID
   // OldCasetoNewCase(FCaseID);

  end;


  LoadImg(ImageSavePath+CaseID+'\'+UseCaseID+'\');

  //Download2Case(ImageSavePath+FCaseID+'\Download\',ImageSavePath+FCaseID+'\');
  DataLoading(False,'');

end;

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

end.