CB_IMGPSScan.cab ver2.0.1.22 修正縮圖影像在補件中刪除問題

doom4ster

2017-07-14 b59678b87404226862ef6af36038ca3c0b19ae89

CB_IMGPSScan.cab ver2.0.1.22  修正縮圖影像在補件中刪除問題

 CB_IMGPSScan.dproj

@@ -94,7 +94,7 @@
                        <VersionInfo Name="MajorVer">2</VersionInfo>
                        <VersionInfo Name="MinorVer">0</VersionInfo>
                        <VersionInfo Name="Release">1</VersionInfo>
                        <VersionInfo Name="Build">21</VersionInfo>
                        <VersionInfo Name="Build">22</VersionInfo>
                        <VersionInfo Name="Debug">False</VersionInfo>
                        <VersionInfo Name="PreRelease">False</VersionInfo>
                        <VersionInfo Name="Special">False</VersionInfo>
@@ -106,7 +106,7 @@
                    <VersionInfoKeys>
                        <VersionInfoKeys Name="CompanyName"/>
                        <VersionInfoKeys Name="FileDescription"/>
                        <VersionInfoKeys Name="FileVersion">2.0.1.21</VersionInfoKeys>
                        <VersionInfoKeys Name="FileVersion">2.0.1.22</VersionInfoKeys>
                        <VersionInfoKeys Name="InternalName"/>
                        <VersionInfoKeys Name="LegalCopyright"/>
                        <VersionInfoKeys Name="LegalTrademarks"/>

 CB_IMGPSScan.ocx

Binary files differ

 CB_IMGPSScan.res

Binary files differ

 CB_IMGPSScanImp.dcu

Binary files differ

 CB_IMGPSScanImp.pas

@@ -3362,11 +3362,13 @@
  PM604.Visible := False;  //歪斜矯正
  PM605.Visible := False;  //刪除
  if ((NowDocNo = 'Attach') or (NowDocNo = 'S_Attach')) and (FCustDocYN <> 'N') then
  begin
    PM602.Visible := True;  //自行定義文件名稱
  //PM603.Visible := True;  //掃描替換此頁
  PM604.Visible := True;  //歪斜矯正
  PM601.Visible := True;  //歸類
  PM605.Visible := True;  //刪除
  end;

  if CheckSelectImg_UseCase(DisplayPath,NowCaseNo) then //選擇的影像不可有引用的
  begin
@@ -3378,6 +3380,17 @@
    PM601.Enabled := True;  //歸類
    PM605.Enabled := True;  //刪除
  end;

  if FMode='ESCAN' then
  begin
    PM605.Enabled:=False;
  end;

  if FImgDelete='Y' then
  begin
    PM605.Enabled:=True;
  end;

end;

procedure TCB_IMGPSScanX.PrePageBtnClick(Sender: TObject);