Modified to view channels and ghosts

diff --git a/bottleclient/SendConfirm.dfm b/bottleclient/SendConfirm.dfm
index 2a6bf6d..1303816 100755 (executable)
--- a/bottleclient/SendConfirm.dfm
+++ b/bottleclient/SendConfirm.dfm
@@ -208,17 +208,33 @@ object frmConfirmSend: TfrmConfirmSend
     Left = 80
     Top = 8
     Width = 281
-    Height = 73
+    Height = 25
     Anchors = [akLeft, akTop, akRight, akBottom]
     BorderStyle = bsNone
     Color = clBtnFace
     Lines.Strings = (
       #12371#12398#12513#12483#12475#12540#12472#12434#36865#20449#12375#12414#12377#12290
-      #36865#20449#21069#12395#12289#12473#12463#12522#12503#12488#12434#12525#12540#12459#12523#30906#35469#12375#12390#12367#12384#12373#12356#12290
-      ''
-      #12481#12515#12531#12493#12523#21517#65306' %channel'
-      #12468#12540#12473#12488#65306' %ghost')
+      #36865#20449#21069#12395#12289#12473#12463#12522#12503#12488#12434#12525#12540#12459#12523#30906#35469#12375#12390#12367#12384#12373#12356#12290)
     ReadOnly = True
     TabOrder = 3
   end
+  object memInfo: TMemo
+    Left = 80
+    Top = 40
+    Width = 289
+    Height = 41
+    BevelOuter = bvNone
+    BorderStyle = bsNone
+    Font.Charset = SHIFTJIS_CHARSET
+    Font.Color = clBlue
+    Font.Height = -12
+    Font.Name = #65325#65331' '#65328#12468#12471#12483#12463
+    Font.Style = [fsBold]
+    Lines.Strings = (
+      #12481#12515#12531#12493#12523#21517#65306' %channel'
+      #12468#12540#12473#12488#65306' %ghost')
+    ParentColor = True
+    ParentFont = False
+    TabOrder = 4
+  end
 end

diff --git a/bottleclient/SendConfirm.pas b/bottleclient/SendConfirm.pas
index beb9e1d..c4a10c3 100755 (executable)
--- a/bottleclient/SendConfirm.pas
+++ b/bottleclient/SendConfirm.pas
@@ -38,6 +38,7 @@ begin
     try
       cbxDontAlertAnyMore.Checked := Pref.NoConfirm;
       Result := Execute(Channel, Ghost);
+      Pref.NoConfirm := cbxDontAlertAnyMore.Checked;
     finally
       Release;
     end;