2003.03.22 (土) 22:30:09 <u*j*2*6*> shuusei21174とおなじです
shuusei24147:共有不足の自動Ban時間の上限をあげる(idea by よーぼー,source by Heracules)

diff --dos -wurN 24146/constants.pas 24147/constants.pas
--- 24146/constants.pas	Sat Mar 22 22:03:06 2003
+++ 24147/constants.pas	Sat Mar 22 22:19:12 2003
@@ -27,7 +27,7 @@
  SLAVANAP_VERSION             = '2.4.1';
  SLAVANAP_BUILD               = '108';
  SLAVANAP_BUILD_DATE          = '24 January 2003';
- SLAVANAP_SHUUSEI             = '46';
+ SLAVANAP_SHUUSEI             = '47';
  SLAVANAP_SHUUSEI_DATE        = '22 March 2003';
  SLAVANAP_VERSION_SHORT       = SLAVANAP_TITLE+' '+SLAVANAP_VERSION;
  SLAVANAP_FULL                = SLAVANAP_TITLE+' '+SLAVANAP_VERSION+
diff --dos -wurN 24146/settings.dfm 24147/settings.dfm
--- 24146/settings.dfm	Sat Mar 22 22:00:12 2003
+++ 24147/settings.dfm	Sat Mar 22 22:23:06 2003
@@ -3348,6 +3348,14 @@
           Height = 12
           Caption = '共有ファイルのサイズの下限(Mb):'
         end
+        object Label160: TLabel
+          Left = 216
+          Top = 180
+          Width = 50
+          Height = 12
+          Caption = '時間(分):'
+          Visible = False
+        end
         object edit_minshare_minshare: TSpinEdit
           Left = 244
           Top = 0
@@ -3371,20 +3379,22 @@
         object cb_minshare_ban: TCheckBox
           Left = 7
           Top = 177
-          Width = 260
+          Width = 202
           Height = 19
-          Caption = '共有が少ないユーザーをこの時間(分)Banする:'
+          Caption = '共有が足りないユーザーをBanする'
           TabOrder = 3
+          OnClick = cb_minshare_banClick
         end
         object edit_minshare_bantime: TSpinEdit
           Left = 273
           Top = 175
           Width = 82
           Height = 21
-          MaxValue = 1440
+          MaxValue = 43200
           MinValue = 1
           TabOrder = 4
           Value = 30
+          Visible = False
         end
         object edit_minshare_minsharesize: TSpinEdit
           Left = 244
diff --dos -wurN 24146/settings.pas 24147/settings.pas
--- 24146/settings.pas	Sat Mar 22 12:29:26 2003
+++ 24147/settings.pas	Sat Mar 22 22:18:36 2003
@@ -598,6 +598,7 @@
     edit_servreftime: TSpinEdit;
     Label159: TLabel;
     rd_xbutton_attr: TRadioGroup;
+    Label160: TLabel;
     procedure Panel3Resize(Sender: TObject);
     procedure headerPaint(Sender: TObject);
     procedure SetTopText(str: String);
@@ -681,6 +682,7 @@
     procedure cb_check_loginpassClick(Sender: TObject);
     procedure cb_restrict_hitperuserClick(Sender: TObject);
     procedure cb_refresh_serversClick(Sender: TObject);
+    procedure cb_minshare_banClick(Sender: TObject);
   private
     { Private declarations }
     procedure SetBanItems(control: TComboBox);
@@ -1582,6 +1584,8 @@
  edit_minshare_delay.Value:=minshare_delay div 60000;
  cb_minshare_ban.Checked:=minshare_ban;
  cb_minshare_banip.Checked:=minshare_banip;
+ Label160.Visible:=cb_minshare_ban.Checked;
+ edit_minshare_bantime.Visible:=cb_minshare_ban.Checked;
  edit_minshare_bantime.Value:=minshare_bantime div 60;
  cb_minshare_onlyfull.checked:=minshare_fullonly;
  cb_minshare_full10.Checked:=minshare_only10;
@@ -2580,6 +2584,12 @@
 begin
   edit_servreftime.Visible:=cb_refresh_servers.Checked;
   Label159.Visible:=cb_refresh_servers.Checked;
+end;
+
+procedure TSlavaNapSettings.cb_minshare_banClick(Sender: TObject);
+begin
+  Label160.Visible:=cb_minshare_ban.Checked;
+  edit_minshare_bantime.Visible:=cb_minshare_ban.Checked;
 end;
 
 end.