+
+//! \83X\83\8c\83^\83C\95\\8e¦\8dX\90V
+procedure TGikoForm.UpdateThreadTitle;
+var
+ i: Integer;
+ DspTitle: String;
+begin
+ BrowserTab.Tabs.BeginUpdate;
+ for i := 0 to BrowserTab.Tabs.Count - 1 do begin
+ BrowserTab.Tabs.Strings[i] :=
+ GikoSys.GetShortName(TBrowserRecord(BrowserTab.Tabs.Objects[i]).Thread.Title, 20);
+ end;
+ BrowserTab.Tabs.EndUpdate;
+
+ if (FActiveContent <> nil) and (FActiveContent.Thread <> nil) then begin
+ DspTitle := GetThreadTitle(FActiveContent.Thread.Title);
+ BrowserNameLabel.Caption := DspTitle;
+ Self.Caption := GikoDataModule.CAPTION_NAME + ' - [' + DspTitle + ']';
+ end;
+end;
+
+//! \83X\83\8c\83^\83C\8eæ\93¾
+function TGikoForm.GetThreadTitle(OrgTitle: String): String;
+var
+ Idx: Integer;
+ ResTitle: String;
+begin
+ if (GikoSys.Setting.ThreadTitleTrim = False) then begin
+ Result := OrgTitle;
+ end else begin
+ ResTitle := OrgTitle;
+ while (True) do begin
+ Idx := Pos('[\93]\8dÚ\8bÖ\8e~]', ResTitle);
+ if (Idx < 1) then
+ Break;
+ Delete(ResTitle, Idx, 10);
+ end;
+ while (True) do begin
+ Idx := Pos('©2ch.net', ResTitle);
+ if (Idx < 1) then
+ Break;
+ Delete(ResTitle, Idx, 13);
+ end;
+ Result := Trim(ResTitle);
+ end;
+end;
+