2003.01.19 (日) 21:56:42 <Heracules> Other4タブの追加を行いました。
2003.01.19 (日) 21:57:07 <Heracules> b3_canclose変数の詳細は以下を参考にしてください。

shuusei21190:ウィンドウを閉じた際の処理の設定(source by Heracules)

参考:b3_canclose変数(Bool3)
True3  ウィンドウを閉じた際に終了
False3 ウィンドウを閉じた際に最小化してタスクバーに格納
0      ウィンドウを閉じた際にどう処理するかの選択ウィンドウを表示(初期値)
diff --dos -urN 21189/settings.pas 21190/settings.pas
--- 21189/settings.pas	Sun Jan 19 18:36:32 2003
+++ 21190/settings.pas	Sun Jan 19 21:11:02 2003
@@ -558,6 +558,8 @@
     Label148: TLabel;
     cb_inflections: TCheckBox;
     cb_l2b_log: TCheckBox;
+    sh_other4: TTabSheet;
+    cb_WindowClose: TCheckBox;
     procedure Panel3Resize(Sender: TObject);
     procedure headerPaint(Sender: TObject);
     procedure SetTopText(str: String);
@@ -627,6 +629,7 @@
     procedure cb_autoban_incompleteClick(Sender: TObject);
     procedure cb_loginblock_portClick(Sender: TObject);
     procedure cb_enable_ratingClick(Sender: TObject);
+    procedure sh_other4Show(Sender: TObject);
   private
     { Private declarations }
     procedure SetBanItems(control: TComboBox);
@@ -680,6 +683,7 @@
  DATA_DAGSTA        = pointer(28);
  DATA_OTHER2        = pointer(29);
  DATA_OTHER3        = pointer(30);
+ DATA_OTHER4        = pointer(31);
 
 procedure TSlavaNapSettings.CreateParams(Var params: TCreateParams);
 begin
@@ -859,6 +863,8 @@
        t.data:=DATA_OTHER2;
        t:=tree.Items.AddChild(item,'Other3');
        t.data:=DATA_OTHER3;
+       t:=tree.Items.AddChild(item,'Other4');
+       t.Data:=DATA_OTHER4;
  item.Expand(true);
  it1.Expand(true); // expand first item and focus it
 end;
@@ -919,6 +925,7 @@
  else if node.data=DATA_OTHER then pages.ActivePage:=sh_other
  else if node.Data=DATA_OTHER2 then pages.ActivePage:=sh_other2
  else if node.Data=DATA_OTHER3 then pages.ActivePage:=sh_other3
+ else if node.Data=DATA_OTHER4 then pages.ActivePage:=sh_other4
  else if node.data=DATA_REPORT then pages.ActivePage:=sh_report
  else if node.data=DATA_SHARE_MINSHARE then pages.ActivePage:=sh_minshare
  else if node.data=DATA_MOTD then pages.ActivePage:=sh_motd
@@ -1434,6 +1441,16 @@
   edit_rating_threshold.Visible:=cb_enable_rating.Checked;
 end;
 
+procedure TSlavaNapSettings.sh_other4Show(Sender: TObject);
+begin
+  SetTopText('ほかの設定3');
+  SetChange(true);
+  if b3_canclose=false3 then
+    cb_WindowClose.Checked:=true
+  else
+    cb_WindowClose.Checked:=false;
+end;
+
 procedure TSlavaNapSettings.sh_reportShow(Sender: TObject);
 begin
  SetTopText(GetLangI(LNG_S_TEXT_REPORT));
@@ -1906,6 +1923,18 @@
    if radio_wq_block.Checked then renqueue_taiou:='block'
    else if radio_wq_leech.Checked then renqueue_taiou:='leech'
    else if radio_wq_ban.Checked then renqueue_taiou:='ban';
+  except
+ end else if pages.ActivePage=sh_other4 then
+ try
+   if cb_WindowClose.Checked=true then
+   begin
+     b3_canclose:=false3;
+     closing:=false;
+   end else if cb_WindowClose.Checked=false then
+   begin
+     b3_canclose:=true3;
+     closing:=true;
+   end;
   except
  end else if pages.ActivePage=sh_report then
  try
diff --dos -urN 21189/settings.dfm 21190/settings.dfm
--- 21189/settings.dfm	Sun Jan 19 18:34:14 2003
+++ 21190/settings.dfm	Sun Jan 19 21:08:42 2003
@@ -1,11 +1,11 @@
 object SlavaNapSettings: TSlavaNapSettings
-  Left = 246
+  Left = 247
   Top = 176
   BorderIcons = [biSystemMenu, biMinimize]
   BorderStyle = bsSingle
   Caption = 'SlavaNapの設定'
   ClientHeight = 483
-  ClientWidth = 491
+  ClientWidth = 490
   Color = clBtnFace
   Font.Charset = SHIFTJIS_CHARSET
   Font.Color = clWindowText
@@ -152,7 +152,7 @@
   object Panel1: TPanel
     Left = 0
     Top = 422
-    Width = 491
+    Width = 490
     Height = 61
     Align = alBottom
     BevelOuter = bvNone
@@ -250,7 +250,7 @@
   object Panel2: TPanel
     Left = 126
     Top = 0
-    Width = 365
+    Width = 364
     Height = 422
     Align = alClient
     BevelOuter = bvNone
@@ -259,7 +259,7 @@
     object Panel3: TPanel
       Left = 0
       Top = 0
-      Width = 365
+      Width = 364
       Height = 38
       Align = alTop
       BevelOuter = bvNone
@@ -283,9 +283,9 @@
     object pages: TDFWPageControles
       Left = 0
       Top = 38
-      Width = 365
+      Width = 364
       Height = 384
-      ActivePage = sh_other3
+      ActivePage = sh_other4
       Align = alClient
       MultiLine = True
       OwnerDraw = True
@@ -967,7 +967,7 @@
           Left = 244
           Top = 0
           Width = 111
-          Height = 22
+          Height = 21
           MaxValue = 65535
           MinValue = 0
           TabOrder = 0
@@ -977,7 +977,7 @@
           Left = 244
           Top = 30
           Width = 111
-          Height = 22
+          Height = 21
           MaxValue = 2147483646
           MinValue = 0
           TabOrder = 1
@@ -987,7 +987,7 @@
           Left = 244
           Top = 66
           Width = 111
-          Height = 22
+          Height = 21
           MaxValue = 256
           MinValue = 0
           TabOrder = 2
@@ -997,7 +997,7 @@
           Left = 244
           Top = 96
           Width = 111
-          Height = 22
+          Height = 21
           MaxValue = 65535
           MinValue = 0
           TabOrder = 3
@@ -1007,7 +1007,7 @@
           Left = 244
           Top = 126
           Width = 111
-          Height = 22
+          Height = 21
           MaxValue = 255
           MinValue = 8
           TabOrder = 4
@@ -2323,7 +2323,7 @@
           Width = 111
           Height = 20
           Style = csDropDownList
-          ItemHeight = 0
+          ItemHeight = 12
           TabOrder = 1
         end
       end
@@ -5820,6 +5820,20 @@
           Height = 17
           Caption = 'local2globalのログを表示する'
           TabOrder = 17
+        end
+      end
+      object sh_other4: TTabSheet
+        Caption = 'sh_other4'
+        ImageIndex = 30
+        TabVisible = False
+        OnShow = sh_other4Show
+        object cb_WindowClose: TCheckBox
+          Left = 6
+          Top = 4
+          Width = 227
+          Height = 17
+          Caption = 'ウィンドウを閉じた際にタスクバーへ格納'
+          TabOrder = 0
         end
       end
     end