CB_IMGPSScan.cab ver2.0.1.25 修改補件右鍵功能權限

doom4ster

2017-08-02 e8c27c35d63d43402f40d858438c2e44600598ae

CB_IMGPSScan.cab ver2.0.1.25 修改補件右鍵功能權限

 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">24</VersionInfo>
                        <VersionInfo Name="Build">25</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.24</VersionInfoKeys>
                        <VersionInfoKeys Name="FileVersion">2.0.1.25</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.dfm

@@ -5166,8 +5166,6 @@
                TabOrder = 0
                OnClick = ISB1Click
                OnEnter = ISB1Enter
                ExplicitLeft = 2
                ExplicitTop = 17
              end
            end
            object Memo1: TMemo

 CB_IMGPSScanImp.pas

@@ -3271,7 +3271,7 @@

    if FMode='ESCAN' then
    begin
      PM101.Visible := False;
      PM101.Visible := True;
    end;
  end
  Else if TreeView1.Selected = MyTreeNode1 then    //案件層
@@ -3293,7 +3293,7 @@
    end;
    if FMode='ESCAN' then
    begin
      PM101.Visible := False;
      PM101.Visible := True;
    end;
  end
  Else if TreeView1.Selected = MyTreeNode2 then    //文件層
@@ -3313,7 +3313,7 @@
      PM102.Visible := True;   //修改案件編號
    if FMode='ESCAN' then
    begin
      PM101.Visible := False;
      PM101.Visible := True;
    end;
  end
  Else if TreeView1.Selected = MyTreeNode3 then    //表單層
@@ -3348,9 +3348,9 @@

    if FMode='ESCAN' then
    begin
      PM101.Visible := False;
      PM108.Visible := False;
      PM110.Visible := False;
      PM101.Visible := True;
      PM108.Visible := True;
      PM110.Visible := True;
    end;
  end;

@@ -3417,14 +3417,14 @@
  PM604.Visible := False;  //歪斜矯正
  PM605.Visible := True;  //刪除

  if FMode='ESCAN' then
  begin
    PM601.Visible := False;  //歸類
    PM602.Visible := False;  //自行定義文件名稱
    PM603.Visible := False;  //掃描替換此頁
    PM604.Visible := False;  //歪斜矯正
    PM605.Visible := False;  //刪除
  end;
//  if FMode='ESCAN' then
//  begin
//    PM601.Visible := False;  //歸類
//    PM602.Visible := False;  //自行定義文件名稱
//    PM603.Visible := False;  //掃描替換此頁
//    PM604.Visible := False;  //歪斜矯正
//    PM605.Visible := False;  //刪除
//  end;

  if ((NowDocNo = 'Attach') or (NowDocNo = 'S_Attach')) and (FCustDocYN <> 'N') then
  begin