Fixed the confirmation message in InsertCue

diff --git a/bottleclient/MainForm.pas b/bottleclient/MainForm.pas
index ee16066..d18d9dc 100755 (executable)
--- a/bottleclient/MainForm.pas
+++ b/bottleclient/MainForm.pas
@@ -2356,13 +2356,20 @@ var InsertItem: TLogItem;
     i: integer;
     Log: TBottleLogList;
 begin
-  if FBottleSstp.CueCount > 0 then
-    actClearBottlesExecute(self); // \8dÄ\91\97\83L\83\85\81[\82ð\88ê\92U\83N\83\8a\83A\82·\82é\82©\82Ç\82¤\82©\8am\94F
+  if FBottleSstp.CueCount > 0 then begin
+    if MessageDlg(Format('\8c»\8dÝ\8dÄ\91\97\83L\83\85\81[\82É\93ü\82Á\82Ä\82¢\82é%d\8c\8f\82Ì\96¢\94z\91\97\83{\83g\83\8b\82ð\83N\83\8a\83A\82µ\82Ä\81A'+
+      '\83\8d\83O\83E\83B\83\93\83h\83E\82É\82 \82é\83{\83g\83\8b\82ð\98A\91±\8dÄ\90¶\82µ\82Ü\82·\81B'#13#10+
+      '\90V\92\85\83\81\83b\83Z\81[\83W\82Í\82»\82Ì\8cã\82É\8dÄ\90¶\82³\82ê\82Ü\82·\81B', [FBottleSstp.CueCount]),
+      mtWarning, mbOkCancel, 0) = mrCancel then Exit;
+  end;
+  FBottleSstp.Clear;
+  frmLog.AllBottleOpened;
   if frmLog.lvwLog.Selected = nil then Exit;
   Log := frmLog.SelectedBottleLog;
   if Log = nil then Exit;
   FBottleSSTP.OnResendCountChange := nil;
   for i := frmLog.lvwLog.Selected.Index downto 0 do begin
+    if (Log[i] as TLogItem).LogType <> ltBottle then Continue;
     InsertItem := TLogItem.Create(Log[i] as TLogItem);
     try
       FBottleSSTP.Push(InsertItem);