2003.03.22 (土) 12:01:50 <u*j*2*6*> shuusei21191とおなじです。間隔は1〜3600秒の間で指定できます
2003.03.22 (土) 12:05:53 <u*j*2*6*> lngファイルの[Servers]→SBTN_AUTOREFRESHの値を「$1秒ごとに自動更新」にするといいとおもいます
2003.03.22 (土) 12:06:16 <u*j*2*6*> ↑しなくてもとくに困りませんが
shuusei24142:サーバーリストの自動更新間隔を指定(source by Heracules)

diff --dos -wurN 24141/constants.pas 24142/constants.pas
--- 24141/constants.pas	Sat Mar 22 06:29:46 2003
+++ 24142/constants.pas	Sat Mar 22 11:50:46 2003
@@ -27,7 +27,7 @@
  SLAVANAP_VERSION             = '2.4.1';
  SLAVANAP_BUILD               = '108';
  SLAVANAP_BUILD_DATE          = '24 January 2003';
- SLAVANAP_SHUUSEI             = '41';
+ SLAVANAP_SHUUSEI             = '42';
  SLAVANAP_SHUUSEI_DATE        = '22 March 2003';
  SLAVANAP_VERSION_SHORT       = SLAVANAP_TITLE+' '+SLAVANAP_VERSION;
  SLAVANAP_FULL                = SLAVANAP_TITLE+' '+SLAVANAP_VERSION+
diff --dos -wurN 24141/japanese.lng 24142/japanese.lng
--- 24141/japanese.lng	Sun Feb 09 15:59:58 2003
+++ 24142/japanese.lng	Sat Mar 22 11:47:54 2003
@@ -392,7 +392,7 @@
 SBTN_DELETE=削除
 SBTN_ADD=サーバーを追加
 SBTN_PROPS=プロパティー
-SBTN_AUTOREFRESH=30秒毎に自動更新
+SBTN_AUTOREFRESH=$1秒ごとに自動更新
 SHOST_HINT=リストに追加したいサーバーホスト名を入力してください。(サーバーホストまたはサーバーホスト:ポート)
 SMENU_REFRESH=更新(&R)
 SMENU_CONNECT2=接続(&C)
diff --dos -wurN 24141/mainform.pas 24142/mainform.pas
--- 24141/mainform.pas	Fri Mar 21 17:09:16 2003
+++ 24142/mainform.pas	Sat Mar 22 11:39:46 2003
@@ -1478,6 +1478,7 @@
   StrHash_LoadFromFile(db_msgserv,ApplicationDir+'dengon');
   restrict_hitperuser:=ini.ReadBool('Other2','RestrictHitPerUser',false);
   maxhitperuser:=ini.ReadInteger('Other2','MaxHitPerUser',0);
+  Timer3.Interval:=ini.ReadInteger('Other2','ServerRefreshTime',30000);
   // set up console
   LogStartup('mainform::loadconfig: setting up console user');
   cons_channels:=TMyList.Create;
@@ -1941,6 +1942,7 @@
   ini.WriteBool('Other2','EnableMsgServ',enable_msgserv);
   ini.WriteBool('Other2','RestrictHitPerUser',restrict_hitperuser);
   ini.WriteInteger('Other2','MaxHitPerUser',maxhitperuser);
+  ini.WriteInteger('Other2','ServerRefreshTime',Timer3.Interval);
   finally
   ini.Free;
  end;
@@ -2500,7 +2502,7 @@
  btn_servers_props.Width:=Canvas.TextWidth(btn_servers_props.Caption)+20;
  inc(i,btn_servers_props.Width);
  cb_servers_refresh.Left:=i;
- cb_servers_refresh.Caption:=GetLangI(LNG_SBTN_AUTOREFRESH);
+ cb_servers_refresh.Caption:=GetLangI(LNG_SBTN_AUTOREFRESH,Timer3.Interval div 1000);
  cb_servers_refresh.Width:=Canvas.TextWidth(cb_servers_refresh.Caption)+30;
  // hotlist
  with list_hotlist.Columns do
diff --dos -wurN 24141/settings.dfm 24142/settings.dfm
--- 24141/settings.dfm	Sat Mar 22 06:25:34 2003
+++ 24142/settings.dfm	Sat Mar 22 11:24:22 2003
@@ -6020,6 +6020,14 @@
           Caption = 'ヒット'
           Visible = False
         end
+        object Label159: TLabel
+          Left = 320
+          Top = 202
+          Width = 24
+          Height = 12
+          Caption = '秒毎'
+          Visible = False
+        end
         object GroupBox1: TGroupBox
           Left = 8
           Top = 0
@@ -6136,6 +6144,26 @@
           MinValue = 0
           TabOrder = 9
           Value = 10
+          Visible = False
+        end
+        object cb_refresh_servers: TCheckBox
+          Left = 8
+          Top = 200
+          Width = 201
+          Height = 17
+          Caption = 'サーバーリストを定期的に更新する'
+          TabOrder = 10
+          OnClick = cb_refresh_serversClick
+        end
+        object edit_servreftime: TSpinEdit
+          Left = 256
+          Top = 198
+          Width = 57
+          Height = 21
+          MaxValue = 3600
+          MinValue = 1
+          TabOrder = 11
+          Value = 30
           Visible = False
         end
       end
diff --dos -wurN 24141/settings.pas 24142/settings.pas
--- 24141/settings.pas	Fri Mar 21 17:09:28 2003
+++ 24142/settings.pas	Sat Mar 22 11:43:38 2003
@@ -594,6 +594,9 @@
     cb_restrict_hitperuser: TCheckBox;
     edit_hitperuser: TSpinEdit;
     Label158: TLabel;
+    cb_refresh_servers: TCheckBox;
+    edit_servreftime: TSpinEdit;
+    Label159: TLabel;
     procedure Panel3Resize(Sender: TObject);
     procedure headerPaint(Sender: TObject);
     procedure SetTopText(str: String);
@@ -676,6 +679,7 @@
     procedure cb_channels_forceenterClick(Sender: TObject);
     procedure cb_check_loginpassClick(Sender: TObject);
     procedure cb_restrict_hitperuserClick(Sender: TObject);
+    procedure cb_refresh_serversClick(Sender: TObject);
   private
     { Private declarations }
     procedure SetBanItems(control: TComboBox);
@@ -1545,6 +1549,11 @@
  cb_restrict_hitperuser.Checked:=restrict_hitperuser;
  edit_hitperuser.Value:=maxhitperuser;
  edit_hitperuser.Visible:=cb_restrict_hitperuser.Checked;
+ Label158.Visible:=cb_restrict_hitperuser.Checked;
+ cb_refresh_servers.Checked:=SlavaNapWindow.cb_servers_refresh.Checked;
+ edit_servreftime.Value:=SlavaNapWindow.Timer3.Interval div 1000;
+ edit_servreftime.Visible:=cb_refresh_servers.Checked;
+ Label159.Visible:=cb_refresh_servers.Checked;
 end;
 
 procedure TSlavaNapSettings.sh_reportShow(Sender: TObject);
@@ -2102,6 +2111,12 @@
    enable_msgserv:=cb_enable_msgserv.Checked;
    restrict_hitperuser:=cb_restrict_hitperuser.Checked;
    maxhitperuser:=edit_hitperuser.Value;
+   with SlavaNapWindow do
+   begin
+     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;
   except
  end;
  btn_restoreClick(nil);
@@ -2548,6 +2563,12 @@
 begin
   edit_hitperuser.Visible:=cb_restrict_hitperuser.Checked;
   Label158.Visible:=cb_restrict_hitperuser.Checked;
+end;
+
+procedure TSlavaNapSettings.cb_refresh_serversClick(Sender: TObject);
+begin
+  edit_servreftime.Visible:=cb_refresh_servers.Checked;
+  Label159.Visible:=cb_refresh_servers.Checked;
 end;
 
 end.