CB_IMGPSScan.cab ver2.0.1.61 灰階影像轉向

doom4ster

2017-12-22 6ec6a43ac4d28c2e548d4df3d728ee36d7208cec

 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;