ツールボタンに、名前欄とメール欄を記憶するトグルボタン追加

diff --git a/Editor.dfm b/Editor.dfm
index 07e6ef3..e5e35fd 100644 (file)
--- a/Editor.dfm
+++ b/Editor.dfm
@@ -1,6 +1,6 @@
 object EditorForm: TEditorForm
-  Left = 294
-  Top = 149
+  Left = 332
+  Top = 174
   Width = 640
   Height = 449
   HorzScrollBar.Visible = False
@@ -58,10 +58,10 @@ object EditorForm: TEditorForm
     Top = 30
     Width = 632
     Height = 354
-    ActivePage = RocalRuleTab
+    ActivePage = EditorTab
     Align = alClient
     MultiLine = True
-    TabIndex = 4
+    TabIndex = 0
     TabOrder = 0
     OnChange = EditorPageChange
     object EditorTab: TTabSheet
@@ -169,12 +169,12 @@ object EditorForm: TEditorForm
         Left = 0
         Top = 0
         Width = 624
-        Height = 319
+        Height = 327
         Align = alClient
         TabOrder = 0
         OnStatusTextChange = BrowserStatusTextChange
         ControlData = {
-          4C0000007E400000F82000000000000000000000000000000000000000000000
+          4C0000007E400000CC2100000000000000000000000000000000000000000000
           000000004C000000000000000000000001000000E0D057007335CF11AE690800
           2B2E126208000000000000004C0000000114020000000000C000000000000046
           8000000000000000000000000000000000000000000000000000000000000000
@@ -188,7 +188,7 @@ object EditorForm: TEditorForm
         Left = 0
         Top = 0
         Width = 624
-        Height = 319
+        Height = 327
         Align = alClient
         ReadOnly = True
         ScrollBars = ssVertical
@@ -202,11 +202,11 @@ object EditorForm: TEditorForm
         Left = 0
         Top = 0
         Width = 624
-        Height = 319
+        Height = 327
         Align = alClient
         TabOrder = 0
         ControlData = {
-          4C0000007E400000F82000000000000000000000000000000000000000000000
+          4C0000007E400000CC2100000000000000000000000000000000000000000000
           000000004C000000000000000000000001000000E0D057007335CF11AE690800
           2B2E126208000000000000004C0000000114020000000000C000000000000046
           8000000000000000000000000000000000000000000000000000000000000000
@@ -323,6 +323,20 @@ object EditorForm: TEditorForm
       Top = 0
       Action = AbortAction
     end
+    object ToolButton6: TToolButton
+      Left = 231
+      Top = 0
+      Width = 8
+      Caption = 'ToolButton6'
+      ImageIndex = 10
+      Style = tbsSeparator
+    end
+    object ToolButton4: TToolButton
+      Left = 239
+      Top = 0
+      Action = SaveNameMailAction
+      Style = tbsCheck
+    end
   end
   object MainMenu: TMainMenu
     Left = 8
@@ -443,7 +457,7 @@ object EditorForm: TEditorForm
     Left = 72
     Top = 124
     Bitmap = {
-      494C010109000E00040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
+      494C01010A000E00040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
       0000000000003600000028000000400000004000000001001000000000000020
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
@@ -514,52 +528,52 @@ object EditorForm: TEditorForm
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000010421042
-      1042104210421042000000000000000000000000000000000000000000000000
+      1042104210421042000000000000000000000000000000000000000000004208
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000001042104210421042
-      1042104210421042104210420000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
+      1042104210421042104210420000000000000000000000000000B556630C4208
+      0000420800000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000010421042104210421042
-      1042104210421042104210421042000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
+      1042104210421042104210421042000000000000000000004208DE7B08218410
+      4208420800004208000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000010421042104210421042
-      1042104210421042104210421042000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
+      1042104210421042104210421042000000000000000042083967FF7FBD77D65A
+      E71C841042084208000042080000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000104210421042104210421042
-      1042104210421042104210421042104200000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
+      1042104210421042104210421042104200000000B556EF3DBD77BD77FF7FDE7B
+      9C73734EA5148410210442080000420800000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       00000000000000000000000000000000000000001042104210421042FF7FFF7F
-      10421042FF7FFF7F104210421042104200000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
+      10421042FF7FFF7F104210421042104200004208FF7FDE7B7B6FFF7FFF7FDE7B
+      DE7BDE7B7B6F734EA51484102104420800000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       000000000000000000000000000000000000000010421042104210421042FF7F
-      FF7FFF7FFF7F1042104210421042104200000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
+      FF7FFF7FFF7F1042104210421042104200004208FF7FFF7FFF7FFF7FDE7BDE7B
+      DE7BBD77BD777B6F5A6B31468410630C00000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000104210421042104210421042
-      FF7FFF7F10421042104210421042104200000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
+      FF7FFF7F1042104210421042104210420000000042085A6BDE7BDE7BDE7BDE7B
+      BD77BD77BD779C735A6B5A6B1863CE3900000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       000000000000000000000000000000000000000010421042104210421042FF7F
-      FF7FFF7FFF7F1042104210421042104200000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
+      FF7FFF7FFF7F10421042104210421042000000000000000042085A6BDE7BDE7B
+      BD779C739C735A6B5A6B39671863000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       00000000000000000000000000000000000000001042104210421042FF7FFF7F
-      10421042FF7FFF7F104210421042104200000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
+      10421042FF7FFF7F104210421042104200000000000000000000000042083967
+      9C737B6F5A6B5A6B396718630000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000010421042104210421042
       1042104210421042104210421042000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
+      420818635A6B3967396700000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000010421042104210421042
       1042104210421042104210421042000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
+      000000004208F75E000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000001042104210421042
       1042104210421042104210420000000000000000000000000000000000000000
@@ -707,11 +721,11 @@ object EditorForm: TEditorForm
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
-      00000000000000000000000000000000F81F000000000000E007000000000000
-      C003000000000000800100000000000080010000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      000000000000000080010000000000008001000000000000C003000000000000
-      E007000000000000F81F000000000000FFFFFFFFFFFFFFFFFFFFFE00FFFFFFFF
+      00000000000000000000000000000000F81FFFFF00000000E007FDFF00000000
+      C003F17F000000008001E05F000000008001C017000000000000800500000000
+      0000000100000000000000010000000000008001000000000000E00100000000
+      0000F803000000008001FE07000000008001FF8F00000000C003FFFF00000000
+      E007FFFF00000000F81FFFFF00000000FFFFFFFFFFFFFFFFFFFFFE00FFFFFFFF
       FE00C000F000F000FE008000F000F000FE008000F000F0008000800000000000
       8000800070000000800080017000000080008001700000008001800170000000
       8003800170000000800780017FDF001F807F8001001F001F80FFC003001F001F
@@ -797,52 +811,52 @@ object EditorForm: TEditorForm
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000400040
-      0040004000400040000000000000000000000000000000000000000000000000
+      0040004000400040000000000000000000000000000000000000000000000821
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000040004000400040
-      0040004000400040004000400000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
+      0040004000400040004000400000000000000000000000000000524A0821E71C
+      0000E71C00000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000400040004000400040
-      0040004000400040004000400040000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
+      004000400040004000400040004000000000000000000000E71C3A6B8C314929
+      0821082100000821000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000400040004000400040
-      0040004000400040004000400040000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
+      00400040004000400040004000400000000000000000E71C94527B6F3767714E
+      8B2D49290821E71C0000E71C0000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000004000400040004000400040
-      0040004000400040004000400040004000000000000000000000000000000000
-      0000000000000000000010000000000000000000000000000000000000000000
+      004000400040004000400040004000400000630C524AEF3D186318635A6B3967
+      F55E30466A294829E71C08210000082100000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       00000000000000000000000000000000000000000040004000400040FF7FFF7F
-      00400040FF7FFF7F004000400040004000000000000010001000100010001000
-      0000000000000000000010000000000000000000000000000000000000000000
+      00400040FF7FFF7F0040004000400040000008215A6B5A6BB5565A6B5A6B3967
+      39671863D55E30466A294829E71C082100000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       000000000000000000000000000000000000000000400040004000400040FF7F
-      FF7FFF7FFF7F0040004000400040004000000000000010001000100010000000
-      0000000000000000000000001000000000000000000000000000000000000000
+      FF7FFF7FFF7F00400040004000400040000008219D777B6F7B6F5A6B5A6B3967
+      3967F862F75EB65AB4562F464925282500000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000004000400040004000400040
-      FF7FFF7F00400040004000400040004000000000000010001000100000000000
-      0000000000000000000000001000000000000000000000000000000000000000
+      FF7FFF7F004000400040004000400040000000000821B3565A6B5A6B39671967
+      1863F75EF75ED65AB556955692520E4200000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       000000000000000000000000000000000000000000400040004000400040FF7F
-      FF7FFF7FFF7F0040004000400040004000000000000010001000000010000000
-      0000000000000000000000001000000000000000000000000000000000000000
+      FF7FFF7FFF7F0040004000400040004000000000000000000821B35639671967
+      F862D75ED65AB55695569452734E841000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       00000000000000000000000000000000000000000040004000400040FF7FFF7F
-      00400040FF7FFF7F004000400040004000000000000010000000000000001000
-      1000000000000000000010000000000000000000000000000000000000000000
+      00400040FF7FFF7F004000400040004000000000000000000000000008219352
+      D75EB65AB556B556945274528410000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000400040004000400040
       0040004000400040004000400040000000000000000000000000000000000000
-      0000100010001000100000000000000000000000000000000000000000000000
+      08219252B55694529452A5140000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000400040004000400040
       0040004000400040004000400040000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
+      000000000821724EA51400000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000040004000400040
       0040004000400040004000400000000000000000000000000000000000000000
@@ -990,10 +1004,10 @@ object EditorForm: TEditorForm
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
-      00000000000000000000000000000000F81FFFFF00000000E007FFFF00000000
-      C003FFFF000000008001FFFF000000008001FFFF000000000000FFF700000000
-      0000C1F7000000000000C3FB000000000000C7FB000000000000CBFB00000000
-      0000DCF7000000008001FF0F000000008001FFFF00000000C003FFFF00000000
+      00000000000000000000000000000000F81FFFFF00000000E007FDFF00000000
+      C003F17F000000008001E05F000000008001C017000000000000000500000000
+      0000000100000000000000010000000000008001000000000000E00100000000
+      0000F803000000008001FE07000000008001FF8F00000000C003FFFF00000000
       E007FFFF00000000F81FFFFF00000000FFFFFFFFFFFFFFFFFFFFFE00FFFFFFFF
       FE00C000F000F000FE008000F000F000FE008000F000F0008000800000000000
       8000800070000000800080017000000080008001700000008001800170000000
@@ -1172,6 +1186,13 @@ object EditorForm: TEditorForm
       Hint = #23481#37327#12398#21462#24471
       OnExecute = CalcCapacityActionExecute
     end
+    object SaveNameMailAction: TAction
+      Category = #32232#38598
+      Caption = #36865#20449#12375#12383#12524#12473#12398#21517#21069#27396#12392#12513#12540#12523#27396#12434#35352#25014#12377#12427
+      Hint = #36865#20449#12375#12383#12524#12473#12398#21517#21069#27396#12392#12513#12540#12523#27396#12434#35352#25014#12377#12427
+      ImageIndex = 9
+      OnExecute = SaveNameMailActionExecute
+    end
   end
   object IdLogDebug: TIdLogDebug
     OnReceive = IdLogDebugReceive

diff --git a/Editor.pas b/Editor.pas
index 526a635..162d969 100644 (file)
--- a/Editor.pas
+++ b/Editor.pas
@@ -119,6 +119,9 @@ type
     LocalEdit: TMemo;
     N6: TMenuItem;
     LocalRuleBrowse: TMenuItem;
+    ToolButton4: TToolButton;
+    ToolButton6: TToolButton;
+    SaveNameMailAction: TAction;
 
                procedure EditorPageChange(Sender: TObject);
                procedure FormCreate(Sender: TObject);
@@ -168,6 +171,7 @@ type
     procedure LocalRuleClick(Sender: TObject);
     procedure FormDeactivate(Sender: TObject);
     procedure LocalRuleBrowseClick(Sender: TObject);
+    procedure SaveNameMailActionExecute(Sender: TObject);
        private
                FThreadItem: TThreadItem;
                FBoard: TBoard;
@@ -416,7 +420,7 @@ begin
                MouseGesture.OnGestureEnd := OnGestureEnd;
                MouseGesture.SetHook( Handle );
        end;
-
+       SaveNameMailAction.Checked := True;
 end;
 
 procedure TEditorForm.SetBoard(Item: TBoard);
@@ -695,13 +699,15 @@ end;
 
 procedure TEditorForm.SetNameList(sName, sMail: string);
 begin
-       if Trim(sName) <> '' then begin
-               if GikoSys.Setting.NameList.IndexOf(sName) = -1 then
-                       GikoSys.Setting.NameList.Insert(0, sName);
-       end;
-       if Trim(sMail) <> '' then begin
-               if GikoSys.Setting.MailList.IndexOf(sMail) = -1 then
-                       GikoSys.Setting.MailList.Insert(0, sMail);
+       if SaveNameMailAction.Checked then begin
+               if Trim(sName) <> '' then begin
+                       if GikoSys.Setting.NameList.IndexOf(sName) = -1 then
+                               GikoSys.Setting.NameList.Insert(0, sName);
+               end;
+               if Trim(sMail) <> '' then begin
+                       if GikoSys.Setting.MailList.IndexOf(sMail) = -1 then
+                               GikoSys.Setting.MailList.Insert(0, sMail);
+               end;
        end;
 end;
 
@@ -1181,7 +1187,7 @@ begin
                end;
 
                SetNameList(NameComboBox.Text, MailComboBox.Text);
-               if KotehanCheckBox.Checked then begin
+               if (KotehanCheckBox.Enabled) and (KotehanCheckBox.Checked) then begin
                        Board.KotehanName := NameComboBox.Text;
                        Board.KotehanMail := MailComboBox.Text;
                end;
@@ -2007,4 +2013,10 @@ begin
         GikoSys.OpenBrowser(URL, gbtAuto);
 end;
 
+procedure TEditorForm.SaveNameMailActionExecute(Sender: TObject);
+begin
+       SaveNameMailAction.Checked := not SaveNameMailAction.Checked;
+       KotehanCheckBox.Enabled := SaveNameMailAction.Checked;
+end;
+
 end.