+procedure TEditorForm.GetRocalRuleExecute(Sender: TObject);
+var
+ URL, RefURL: string;
+ RocalRuleBody: TStringList;
+ tmpBoard: TBoard;
+begin
+ InitIdHTTP(Indy);
+ if FThreadItem = nil then
+ tmpBoard := FBoard
+ else
+ tmpBoard := FThreadItem.ParentBoard;
+
+ if tmpBoard = nil then Exit;
+
+ RefURL := tmpBoard.URL;
+ if RefURL[Length(RefURL)] <> '/' then
+ URL := RefURL + '/' + 'head .txt'
+ else
+ URL := RefURL + 'head.txt';
+ LocalRule.Navigate(URL);
+
+
+ { Indy.Request.LastModified := tmpBoard.SETTINGTXTTime;
+ Indy.Request.Referer := RefURL;
+ Screen.Cursor := crHourGlass;
+ settingBody := TStringList.Cre]ate;
+ try
+ StatusBar.Panels[0].Text := 'SETTING.TXT\83_\83E\83\93\83\8d\81[\83h\92\86';
+ settingBody.Text := Indy.Get(URL);
+ if( Indy.ResponseCode = 200 ) then begin
+ settingBody.SaveToFile(tmpBoard.GetSETTINGTXTFileName);
+ end;
+ if( Indy.ResponseCode = 304 ) then begin
+ StatusBar.Panels[0].Text := 'SETTING.TXT\8dX\90V\96³\82µ(' + IntToStr(Indy.ResponseCode) + ')';
+ Exit;
+ end;
+ finally
+ StatusBar.Panels[0].Text := 'SETTING.TXT (' + IntToStr(Indy.ResponseCode) + ')';
+ settingBody.Free;
+ Screen.Cursor := crDefault;
+ end;
+ ShowBoardInformation(tmpBoard, BoardInformationMemo); }
+end;
+
+procedure TEditorForm.BoardRuleClick(Sender: TObject);
+var
+ ini: TIniFile;
+begin
+ ini := TIniFile.Create(GikoSys.Setting.GetFileName);
+ try
+ LocalRuleTab.TabVisible := BoardRule.Checked;
+ ini.WriteBool('EditorForm', 'GetLocalRule', LocalRuleTab.TabVisible);
+ finally
+ ini.Free;
+ end;
+end;
+