CB_IMGPSScan.cab ver2.0.1.29 掃描的檢核畫面需顯示"忽略"(若不可忽略按鈕會反灰)，"強制送件"更名為"全部忽略

doom4ster

2017-08-11 e8f20d33a0c39a24a3997c3d76e1f9475c8330ab

 ErrList.pas

@@ -180,27 +180,37 @@
  S := TStringlist.Create;
  S1 := TStringlist.Create;
  ini := Tinifile.Create(iniPath+'Checkerr.ini');

  try
    if FileExists(iniPath+'RemoveMemo.dat') then
      S.LoadFromFile(iniPath+'RemoveMemo.dat');
    ini.WriteBool(NowIndex,'Del',True);
    S.Add(ini.ReadString(NowIndex,'Reason',''));
    S.SaveToFile(iniPath+'RemoveMemo.dat');
    i := ErrListLV.ItemIndex;
    ErrListLV.Items.Delete(ErrListLV.ItemIndex);
    if ErrListLV.Items.Count = 0 then

    Ingnore := ini.ReadBool(NowIndex,'Ingnore',False);
    if True then
    begin
      ImmediateBt.Enabled := True;
      S1.Add('Y');
      S1.SaveToFile(iniPath+'OMRCheckOk.dat');
      ini.WriteBool(NowIndex,'Del',True);
      S.Add(ini.ReadString(NowIndex,'Reason',''));
      S.SaveToFile(iniPath+'RemoveMemo.dat');
      i := ErrListLV.ItemIndex;
      ErrListLV.Items.Delete(ErrListLV.ItemIndex);
      if ErrListLV.Items.Count = 0 then
      begin
        ImmediateBt.Enabled := True;
        S1.Add('Y');
        S1.SaveToFile(iniPath+'OMRCheckOk.dat');
      end
      else
      begin
        if i <= ErrListLV.Items.Count -1 then
        begin
          ErrListLV.ItemIndex := i;
          ErrListLVclick(nil);
        end;
      end;
    end
    else
    begin
      if i <= ErrListLV.Items.Count -1 then
      begin
        ErrListLV.ItemIndex := i;
        ErrListLVclick(nil);
      end;
      Showmessage(Format(_msg('%s¦³¤£¥i©¿²¤¶µ¥ØµLªk±j­¢°e¥ó'),['']));
    end;

  finally
@@ -239,7 +249,7 @@
        ErrListLV.Items.Delete(i);
        if ErrListLV.Items.Count = 0 then
        begin
          //ImmediateBt.Enabled := True;
          ImmediateBt.Enabled := True;
          S1.Add('Y');
          S1.SaveToFile(iniPath+'OMRCheckOk.dat');
        end;