From 9b90a3164af2997eb141c5c15e3bc1038e31e27b Mon Sep 17 00:00:00 2001
From: doom4ster <doom4ster@gmail.com>
Date: 星期二, 09 一月 2018 17:07:40 +0800
Subject: [PATCH] CB_IMGPSScan.cab ver2.0.1.63 修改 CheckCaseDocNoPage 問題
---
DocList.pas | 3 ++-
1 files changed, 2 insertions(+), 1 deletions(-)
diff --git a/DocList.pas b/DocList.pas
index c96e8f3..477cb37 100644
--- a/DocList.pas
+++ b/DocList.pas
@@ -16,6 +16,7 @@
Panel3: TPanel;
Edit1: TEdit;
IndexLB: TLabel;
+ CheckBox1: TCheckBox;
procedure OkBtClick(Sender: TObject);
procedure CancelBtClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
@@ -111,7 +112,7 @@
procedure TDocListForm.OkBtClick(Sender: TObject);
begin
- if DocLV.Selected = nil then
+ if (DocLV.Selected = nil) and (not CheckBox1.Checked) then
begin
Showmessage(_Msg('�|������k�ɤ��'));
Exit;
--
Gitblit v1.8.0