2003.03.22 (土) 12:55:11 <u*j*2*6*> shuusei21190とおなじです
shuusei24143:「閉じる」ボタンの動作を設定で指定できるようにする(source by Heracules)

diff --dos -wurN 24142/constants.pas 24143/constants.pas
--- 24142/constants.pas	Sat Mar 22 11:50:46 2003
+++ 24143/constants.pas	Sat Mar 22 12:32:26 2003
@@ -27,7 +27,7 @@
  SLAVANAP_VERSION             = '2.4.1';
  SLAVANAP_BUILD               = '108';
  SLAVANAP_BUILD_DATE          = '24 January 2003';
- SLAVANAP_SHUUSEI             = '42';
+ SLAVANAP_SHUUSEI             = '43';
  SLAVANAP_SHUUSEI_DATE        = '22 March 2003';
  SLAVANAP_VERSION_SHORT       = SLAVANAP_TITLE+' '+SLAVANAP_VERSION;
  SLAVANAP_FULL                = SLAVANAP_TITLE+' '+SLAVANAP_VERSION+
diff --dos -wurN 24142/settings.dfm 24143/settings.dfm
--- 24142/settings.dfm	Sat Mar 22 11:24:22 2003
+++ 24143/settings.dfm	Sat Mar 22 12:28:10 2003
@@ -6165,6 +6165,19 @@
           TabOrder = 11
           Value = 30
           Visible = False
+        end
+        object rd_xbutton_attr: TRadioGroup
+          Left = 8
+          Top = 224
+          Width = 129
+          Height = 65
+          Caption = '「閉じる」ボタンの動作'
+          ItemIndex = 0
+          Items.Strings = (
+            'あとで決める'
+            'シャットダウン'
+            '最小化')
+          TabOrder = 12
         end
       end
     end
diff --dos -wurN 24142/settings.pas 24143/settings.pas
--- 24142/settings.pas	Sat Mar 22 11:43:38 2003
+++ 24143/settings.pas	Sat Mar 22 12:29:26 2003
@@ -597,6 +597,7 @@
     cb_refresh_servers: TCheckBox;
     edit_servreftime: TSpinEdit;
     Label159: TLabel;
+    rd_xbutton_attr: TRadioGroup;
     procedure Panel3Resize(Sender: TObject);
     procedure headerPaint(Sender: TObject);
     procedure SetTopText(str: String);
@@ -1554,6 +1555,11 @@
  edit_servreftime.Value:=SlavaNapWindow.Timer3.Interval div 1000;
  edit_servreftime.Visible:=cb_refresh_servers.Checked;
  Label159.Visible:=cb_refresh_servers.Checked;
+ case b3_canclose of
+   Unknown3: rd_xbutton_attr.ItemIndex:=0;
+   True3:    rd_xbutton_attr.ItemIndex:=1;
+   False3:   rd_xbutton_attr.ItemIndex:=2;
+ end;
 end;
 
 procedure TSlavaNapSettings.sh_reportShow(Sender: TObject);
@@ -2116,6 +2122,11 @@
      cb_servers_refresh.Checked:=cb_refresh_servers.Checked;
      Timer3.Interval:=edit_servreftime.Value*1000;
      cb_servers_refresh.Caption:=GetLangI(LNG_SBTN_AUTOREFRESH,edit_servreftime.Value);
+   end;
+   case rd_xbutton_attr.ItemIndex of
+     0: b3_canclose:=Unknown3;
+     1: b3_canclose:=True3;
+     2: b3_canclose:=False3;
    end;
   except
  end;