+ end else begin
+ // \83^\83u\88Ê\92u\82ð\8eæ\93¾
+ ins := -1;
+ for i := BrowserTab.Tabs.Count - 1 downto 0 do begin
+ if TBrowserRecord(BrowserTab.Tabs.Objects[i]).Browser =
+ TWebBrowser(FBrowsers[1]) then begin
+ ins := i;
+ break;
+ end;
+ end;
+ if GikoSys.Setting.BrowserTabAppend = gtaRight then begin
+ Inc(ins);
+ end;
+ // \83^\83u\82ª\96³\82¢\82Æ\82«\82È\82Ç\91Î\8dô
+ if (ins < 0) then begin
+ ins := 0;
+ end;
+ BrowserTab.Tabs.InsertObject(ins, GikoSys.GetShortName(ThreadItem.Title, 20), newBrowser);
+ if (not GikoSys.Setting.BrowserTabVisible) and (BrowserTab.Tabs.Count > 1) then begin
+ if GikoSys.Setting.BrowserTabAppend = gtaRight then begin
+ DeleteTab( TBrowserRecord( BrowserTab.Tabs.Objects[ 0 ] ) );
+ end else begin
+ DeleteTab( TBrowserRecord( BrowserTab.Tabs.Objects[ 1 ] ) );
+ end;
+ end;
+ //end;
+ BrowserTab.Repaint;
+ if ActiveTab then begin
+ if (not GikoSys.Setting.BrowserTabVisible) and (BrowserTab.Tabs.Count > 0) then
+ BrowserTab.TabIndex := 0
+ else
+ BrowserTab.TabIndex := ins;
+ end;
+ end;