KuroutSetting.pas

   1 unit KuroutSetting;
   2
   3 interface
   4
   5 uses
   6   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   7   Dialogs, StdCtrls, ComCtrls, GikoSystem, GikoUtil;
   8
   9 type
  10   TKuroutOption = class(TForm)
  11         PageControl1: TPageControl;
  12         TabSheet1: TTabSheet;
  13         GroupBox11: TGroupBox;
  14         Label17: TLabel;
  15         Label18: TLabel;
  16         RecvBufferSize: TEdit;
  17         ProxyProtocolCheckBox: TCheckBox;
  18         ProtocolCheckBox: TCheckBox;
  19         GroupBox13: TGroupBox;
  20         Label24: TLabel;
  21         Label25: TLabel;
  22         PostTimeLabel: TLabel;
  23         Label27: TLabel;
  24         PostTimeCheckBox: TCheckBox;
  25         PostTimeEdit: TEdit;
  26         PutPostTimeRadioButton: TRadioButton;
  27         BackPostTimeRadioButton: TRadioButton;
  28         OkBotton: TButton;
  29         CancelBotton: TButton;
  30         ApplyButton: TButton;
  31         ColumnTabSheet: TTabSheet;
  32         CategoryColumnGroupBox: TGroupBox;
  33         CUnVisibledListBox: TListBox;
  34         CVisibledListBox: TListBox;
  35         CAddButton: TButton;
  36         CDeleteButton: TButton;
  37         BoardColumnGroupBox: TGroupBox;
  38         BUnVisibledListBox: TListBox;
  39         BVisibledListBox: TListBox;
  40         BAddButton: TButton;
  41         BDeleteButton: TButton;
  42         Label1: TLabel;
  43         Label2: TLabel;
  44         Label3: TLabel;
  45         Label4: TLabel;
  46         CUpButton: TButton;
  47         CDownButton: TButton;
  48         BUpButton: TButton;
  49         BDownButton: TButton;
  50     GroupBox1: TGroupBox;
  51     GengoSupport: TCheckBox;
  52     Label5: TLabel;
  53     GroupBox2: TGroupBox;
  54     LocalTrapAtt: TCheckBox;
  55     RemoteTrapAtt: TCheckBox;
  56         procedure OkBottonClick(Sender: TObject);
  57         procedure FormCreate(Sender: TObject);
  58         procedure CDeleteButtonClick(Sender: TObject);
  59         procedure CAddButtonClick(Sender: TObject);
  60         procedure BAddButtonClick(Sender: TObject);
  61         procedure BDeleteButtonClick(Sender: TObject);
  62     procedure CUpButtonClick(Sender: TObject);
  63     procedure CDownButtonClick(Sender: TObject);
  64     procedure BUpButtonClick(Sender: TObject);
  65     procedure BDownButtonClick(Sender: TObject);
  66   private
  67         { Private \90é\8c¾ }
  68         procedure SetValue;
  69         procedure SaveSetting;
  70         procedure RecvBufferSizeExit(Sender: TObject);
  71         procedure PostTimeEditExit(Sender: TObject);
  72         procedure PostTimeCheckBoxClick(Sender: TObject);
  73         procedure SetColumnData();
  74         procedure PostColumnData();
  75   public
  76         { Public \90é\8c¾ }
  77   end;
  78
  79 var
  80   KuroutOption: TKuroutOption;
  81
  82 implementation
  83
  84 uses
  85         Giko, Setting;
  86
  87 {$R *.dfm}
  88
  89 procedure TKuroutOption.SetValue;
  90 begin
  91         //\8eó\90M\83o\83b\83t\83@\83T\83C\83Y
  92         RecvBufferSize.Text := IntToStr(Gikosys.Setting.RecvBufferSize);
  93         //HTTP1.1\8eg\97p
  94         ProtocolCheckBox.Checked := GikoSys.Setting.Protocol;
  95         //\83v\83\8d\83L\83V\90Ú\91±HTTP1.1\8eg\97p
  96         ProxyProtocolCheckBox.Checked := Gikosys.Setting.ProxyProtocol;
  97
  98                 //\8f\91\82«\8d\9e\82Ý\8e\9e\83}\83V\83\93\8e\9e\8aÔ\8eg\97p\90Ý\92è
  99         PostTimeCheckBox.Checked := GikoSys.Setting.UseMachineTime;
 100         PostTimeEdit.Text := IntToStr(GikoSys.Setting.TimeAdjustSec);
 101         if GikoSys.Setting.TimeAdjust then
 102                 PutPostTimeRadioButton.Checked := True
 103         else
 104                 BackPostTimeRadioButton.Checked := True;
 105
 106         SetColumnData();
 107
 108         PageControl1.ActivePageIndex := GikoSys.Setting.KuroutSettingTabIndex;
 109
 110         //2chAnnai
 111         GengoSupport.Checked := GikoSys.Setting.GengoSupport;
 112         //FusianaSet
 113         LocalTrapAtt.Checked := GikoSys.Setting.LocalTrapAtt;
 114         RemoteTrapAtt.Checked := GikoSys.Setting.RemoteTrapAtt;
 115 end;
 116
 117 procedure TKuroutOption.SaveSetting;
 118 begin
 119         //\8eó\90M\83o\83b\83t\83@\83T\83C\83Y
 120         Gikosys.Setting.RecvBufferSize := StrToInt(RecvBufferSize.Text);
 121         //HTTP1.1\8eg\97p
 122         GikoSys.Setting.Protocol := ProtocolCheckBox.Checked;
 123         //\83v\83\8d\83L\83V\90Ú\91±HTTP1.1\8eg\97p
 124         Gikosys.Setting.ProxyProtocol := ProxyProtocolCheckBox.Checked;
 125         //\8f\91\82«\8d\9e\82Ý\8e\9e\83}\83V\83\93\8e\9e\8aÔ\8eg\97p\90Ý\92è
 126         GikoSys.Setting.UseMachineTime := PostTimeCheckBox.Checked;
 127         if GikoSys.IsNumeric(PostTimeEdit.Text) then
 128                 GikoSys.Setting.TimeAdjustSec := StrToInt(PostTimeEdit.Text)
 129         else
 130                 GikoSys.Setting.TimeAdjustSec := 0;
 131         GikoSys.Setting.TimeAdjust := PutPostTimeRadioButton.Checked;
 132         //2ch\8c¾\8cê\83T\83|\81[\83g
 133         GikoSys.Setting.GengoSupport := GengoSupport.Checked;
 134         //\83\8d\81[\83J\83\8b\81E\83\8a\83\82\81[\83gÌ¼±Å\8cx\8d\90
 135         GikoSys.Setting.LocalTrapAtt := LocalTrapAtt.Checked;
 136         GikoSys.Setting.RemoteTrapAtt := RemoteTrapAtt.Checked;
 137
 138         GikoSys.Setting.KuroutSettingTabIndex := PageControl1.ActivePageIndex;
 139 end;
 140
 141 procedure TKuroutOption.RecvBufferSizeExit(Sender: TObject);
 142 begin
 143         if not GikoSys.IsNumeric(RecvBufferSize.Text) then
 144                 RecvBufferSize.Text := '4096';
 145         if StrToInt(RecvBufferSize.Text) < 256 then
 146                 RecvBufferSize.Text := '4096';
 147 end;
 148
 149 procedure TKuroutOption.PostTimeEditExit(Sender: TObject);
 150 begin
 151         if not GikoSys.IsNumeric(PostTimeEdit.Text) then
 152                 PostTimeEdit.Text := '0';
 153 end;
 154
 155 procedure TKuroutOption.PostTimeCheckBoxClick(Sender: TObject);
 156 begin
 157         PostTimeLabel.Enabled := PostTimeCheckBox.Checked;
 158         PostTimeEdit.Enabled := PostTimeCheckBox.Checked;
 159         PutPostTimeRadioButton.Enabled := PostTimeCheckBox.Checked;
 160         BackPostTimeRadioButton.Enabled := PostTimeCheckBox.Checked;
 161 end;
 162
 163 procedure TKuroutOption.OkBottonClick(Sender: TObject);
 164 begin
 165         RecvBufferSizeExit(Sender);
 166         PostTimeEditExit(Sender);
 167         PostColumnData();
 168         SaveSetting;
 169 end;
 170
 171 procedure TKuroutOption.FormCreate(Sender: TObject);
 172 begin
 173         SetValue;
 174         PostTimeCheckBoxClick(Sender);
 175
 176 end;
 177 procedure TKuroutOption.SetColumnData();
 178 var
 179         i, j : Integer;
 180         flag : Boolean;
 181 begin
 182
 183         //===== \94Â\83\8a\83X\83g =====
 184         for i := 0 to GikoSys.Setting.CategoryColumnOrder.Count - 1 do begin
 185                 for j := 1 to Length( GikoCategoryColumnCaption ) - 1 do begin
 186                         if GikoSys.Setting.CategoryColumnOrder[ i ] = TGikoCategoryColumnID( j ) then begin
 187                                 CVisibledListBox.AddItem(GikoCategoryColumnCaption[ j ], nil);
 188                                 break;
 189                         end;
 190                 end;
 191         end;
 192
 193         for i := 1 to Length( GikoCategoryColumnCaption ) - 1 do begin
 194                 flag := false;
 195                 for j := 0 to GikoSys.Setting.CategoryColumnOrder.Count - 1 do begin
 196                         if GikoSys.Setting.CategoryColumnOrder[ j ] = TGikoCategoryColumnID( i ) then begin
 197                                 flag := true;
 198                                 break;
 199                         end;
 200                 end;
 201                 if not flag then
 202                         CUnVisibledListBox.AddItem(GikoCategoryColumnCaption[ i ], nil);
 203         end;
 204
 205         //===== \83X\83\8c\83\8a\83X\83g =====
 206         for i := 0 to GikoSys.Setting.BoardColumnOrder.Count - 1 do begin
 207                 for j := 1 to Length( GikoBoardColumnCaption ) - 1 do begin
 208                         if GikoSys.Setting.BoardColumnOrder[ i ] = TGikoBoardColumnID( j ) then begin
 209                                 BVisibledListBox.AddItem(GikoBoardColumnCaption[ j ], nil);
 210                                 Break;
 211                         end;
 212                 end;
 213         end;
 214
 215         for i := 1 to Length( GikoBoardColumnCaption ) - 1 do begin
 216                 flag := false;
 217                 for j := GikoSys.Setting.BoardColumnOrder.Count - 1 downto 0 do begin
 218                         if GikoSys.Setting.BoardColumnOrder[ j ] = TGikoBoardColumnID( i ) then begin
 219                                 flag := true;
 220                                 Break;
 221                         end;
 222                 end;
 223                 if not flag then
 224                         BUnVisibledListBox.AddItem(GikoBoardColumnCaption[ i ], nil);
 225
 226         end;
 227 end;
 228 procedure TKuroutOption.CDeleteButtonClick(Sender: TObject);
 229 var
 230         i: Integer;
 231 begin
 232         for i := 0 to CVisibledListBox.Count - 1 do begin
 233                 if CVisibledListBox.Selected[i] then begin
 234                         CUnVisibledListBox.AddItem(     CVisibledListBox.Items.Strings[ i ], nil);
 235                         CVisibledListBox.DeleteSelected;
 236                         break;
 237                 end;
 238         end;
 239 end;
 240
 241 procedure TKuroutOption.CAddButtonClick(Sender: TObject);
 242 var
 243         i: Integer;
 244 begin
 245         for i := 0 to CUnVisibledListBox.Count - 1 do begin
 246                 if CUnVisibledListBox.Selected[i] then begin
 247                         CVisibledListBox.AddItem(       CUnVisibledListBox.Items.Strings[ i ], nil);
 248                         CUnVisibledListBox.DeleteSelected;
 249                         break;
 250                 end;
 251         end;
 252 end;
 253
 254 procedure TKuroutOption.BAddButtonClick(Sender: TObject);
 255 var
 256         i: Integer;
 257 begin
 258         for i := 0 to BUnVisibledListBox.Count - 1 do begin
 259                 if BUnVisibledListBox.Selected[i] then begin
 260                         BVisibledListBox.AddItem(       BUnVisibledListBox.Items.Strings[ i ], nil);
 261                         BUnVisibledListBox.DeleteSelected;
 262                         break;
 263                 end;
 264         end;
 265 end;
 266
 267 procedure TKuroutOption.BDeleteButtonClick(Sender: TObject);
 268 var
 269         i: Integer;
 270 begin
 271         for i := 0 to BVisibledListBox.Count - 1 do begin
 272                 if BVisibledListBox.Selected[i] then begin
 273                         BUnVisibledListBox.AddItem(     BVisibledListBox.Items.Strings[ i ], nil);
 274                         BVisibledListBox.DeleteSelected;
 275                         break;
 276                 end;
 277         end;
 278 end;
 279
 280 procedure TKuroutOption.CUpButtonClick(Sender: TObject);
 281 var
 282         i: Integer;
 283 begin
 284         for i := 1 to CVisibledListBox.Count - 1 do begin
 285                 if CVisibledListBox.Selected[i] then begin
 286                         CVisibledListBox.Items.Exchange(i, i -1);
 287                         break;
 288                 end;
 289         end;
 290 end;
 291
 292 procedure TKuroutOption.CDownButtonClick(Sender: TObject);
 293 var
 294         i: Integer;
 295 begin
 296         for i := 0 to CVisibledListBox.Count - 2 do begin
 297                 if CVisibledListBox.Selected[i] then begin
 298                         CVisibledListBox.Items.Exchange(i, i + 1);
 299                         break;
 300                 end;
 301         end;
 302 end;
 303
 304 procedure TKuroutOption.BUpButtonClick(Sender: TObject);
 305 var
 306         i: Integer;
 307 begin
 308         for i := 1 to BVisibledListBox.Count - 1 do begin
 309                 if BVisibledListBox.Selected[i] then begin
 310                         BVisibledListBox.Items.Exchange(i, i -1);
 311                         break;
 312                 end;
 313         end;
 314 end;
 315
 316 procedure TKuroutOption.BDownButtonClick(Sender: TObject);
 317 var
 318         i: Integer;
 319 begin
 320         for i := 0 to BVisibledListBox.Count - 2 do begin
 321                 if BVisibledListBox.Selected[i] then begin
 322                         BVisibledListBox.Items.Exchange(i, i + 1);
 323                         break;
 324                 end;
 325         end;
 326 end;
 327
 328
 329 procedure TKuroutOption.PostColumnData();
 330 var
 331         i, j : Integer;
 332 begin
 333         GikoForm.ActiveListColumnSave;
 334
 335         //===== \94Â\83\8a\83X\83g =====
 336         for i := GikoSys.Setting.CategoryColumnOrder.Count -1 downto 1 do
 337                 GikoSys.Setting.CategoryColumnOrder.Delete(i);
 338
 339         for i := 0 to CVisibledListBox.Count - 1 do begin
 340                 for j := 1 to Length( GikoCategoryColumnCaption ) - 1 do begin
 341                         if CVisibledListBox.Items.Strings[ i ] = GikoCategoryColumnCaption[ j ] then begin
 342                                 GikoSys.Setting.CategoryColumnOrder.Add(  TGikoCategoryColumnID(j) );
 343                                 break;
 344                         end;
 345                 end;
 346         end;
 347
 348         //===== \83X\83\8c\83\8a\83X\83g =====
 349         for i := GikoSys.Setting.BoardColumnOrder.Count - 1 downto 1 do
 350                 GikoSys.Setting.BoardColumnOrder.Delete(i);
 351
 352         for i := 0 to BVisibledListBox.Count - 1 do begin
 353                 for j := 1 to Length( GikoBoardColumnCaption ) - 1 do begin
 354                         if BVisibledListBox.Items.Strings[ i ] = GikoBoardColumnCaption[ j ] then begin
 355                                 GikoSys.Setting.BoardColumnOrder.Add( TGikoBoardColumnID(j) );
 356                                 Break;
 357                         end;
 358                 end;
 359         end;
 360         //\83X\83\8c\88ê\97\97\82Ì\95`\89æ\82Ì\8dX\90V
 361         GikoForm.SetActiveList(GikoForm.ActiveList);
 362 end;
 363
 364 end.