From e8c27c35d63d43402f40d858438c2e44600598ae Mon Sep 17 00:00:00 2001
From: doom4ster <doom4ster@gmail.com>
Date: 星期三, 02 八月 2017 16:57:52 +0800
Subject: [PATCH] CB_IMGPSScan.cab ver2.0.1.25 修改補件右鍵功能權限
---
CB_IMGPSScanImp.dfm | 2 --
CB_IMGPSScanImp.dcu | 0
CB_IMGPSScan.ocx | 0
CB_IMGPSScan.dproj | 4 ++--
CB_IMGPSScan.res | 0
CB_IMGPSScanImp.pas | 28 ++++++++++++++--------------
6 files changed, 16 insertions(+), 18 deletions(-)
diff --git a/CB_IMGPSScan.dproj b/CB_IMGPSScan.dproj
index d5e385b..8966053 100644
--- a/CB_IMGPSScan.dproj
+++ b/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"/>
diff --git a/CB_IMGPSScan.ocx b/CB_IMGPSScan.ocx
index 5b7107b..7d129f4 100644
--- a/CB_IMGPSScan.ocx
+++ b/CB_IMGPSScan.ocx
Binary files differ
diff --git a/CB_IMGPSScan.res b/CB_IMGPSScan.res
index 1677dbb..51e4d97 100644
--- a/CB_IMGPSScan.res
+++ b/CB_IMGPSScan.res
Binary files differ
diff --git a/CB_IMGPSScanImp.dcu b/CB_IMGPSScanImp.dcu
index 3afe0cc..0e4c4d6 100644
--- a/CB_IMGPSScanImp.dcu
+++ b/CB_IMGPSScanImp.dcu
Binary files differ
diff --git a/CB_IMGPSScanImp.dfm b/CB_IMGPSScanImp.dfm
index 78433e1..2d14c11 100644
--- a/CB_IMGPSScanImp.dfm
+++ b/CB_IMGPSScanImp.dfm
@@ -5166,8 +5166,6 @@
TabOrder = 0
OnClick = ISB1Click
OnEnter = ISB1Enter
- ExplicitLeft = 2
- ExplicitTop = 17
end
end
object Memo1: TMemo
diff --git a/CB_IMGPSScanImp.pas b/CB_IMGPSScanImp.pas
index 4794b82..6c41278 100644
--- a/CB_IMGPSScanImp.pas
+++ b/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
--
Gitblit v1.8.0