ギコナビをどんどん改良しよう

10 名前：名無しさん 投稿日：2004/04/20(火) 17:03 ID:zRYtZj6g

>3が不完全だったので
editor.pas

最初のtype の所に以下追加

SETTINGTab: TTabSheet;
Browser1: TWebBrowser;
BoardtopTab: TTabSheet;
Browser2: TWebBrowser;

procedure TEditorForm.EditorPageChange(Sender: TObject);　の部分を以下に置き換え
var
URL: string;
RefURL: string;
RefeURL: string;
begin
if EditorPage.ActivePage = PreviewTab then begin
Preview;
end else begin
Browser.Navigate('about:blank');
end;

if FThreadItem = nil then begin
URL := FBoard.GetSendURL;
RefURL := GikoSys.UrlToServer(FBoard.URL)
+ GikoSys.UrlToID(FBoard.URL)
+ '/';
RefeURL := RefURL
+ 'SETTING.TXT';
end else begin
URL := FThreadItem.GetSendURL;
RefURL := GikoSys.UrlToServer(FThreadItem.ParentBoard.URL)
+ FThreadItem.ParentBoard.BBSID
+ '/';
RefeURL := RefURL
+ 'SETTING.TXT';
end;


if EditorPage.ActivePage = SETTINGTab then begin
Browser1.Navigate(RefeURL);
end else begin
Browser1.Navigate('about:blank');
end;

if EditorPage.ActivePage = BoardtopTab then begin
Browser2.Navigate(RefURL);
end else begin
Browser2.Navigate('about:blank');
end;
end;