| 1019 |
|
|
| 1020 |
uses |
uses |
| 1021 |
About, Option, Round, Splash, Sort, ListSelect, |
About, Option, Round, Splash, Sort, ListSelect, |
| 1022 |
NewBoard; |
NewBoard, MojuUtils; |
| 1023 |
|
|
| 1024 |
const |
const |
| 1025 |
CAPTION_NAME: string = 'ギコナビ'; |
CAPTION_NAME: string = 'ギコナビ'; |
| 2308 |
// RepStr := IntToStr(ThreadItem.No) + ': ' + ThreadItem.Title |
// RepStr := IntToStr(ThreadItem.No) + ': ' + ThreadItem.Title |
| 2309 |
// else |
// else |
| 2310 |
RepStr := ThreadItem.Title; |
RepStr := ThreadItem.Title; |
| 2311 |
//RepStr := StringReplace(RepStr, '&', '&', [rfReplaceAll]); |
RepStr := CustomStringReplace(RepStr, '<', '<' ); |
| 2312 |
RepStr := StringReplace(RepStr, '<', '<', [rfReplaceAll]); |
RepStr := CustomStringReplace(RepStr, '>', '>' ); |
| 2313 |
RepStr := StringReplace(RepStr, '>', '>', [rfReplaceAll]); |
RepStr := CustomStringReplace(RepStr, '"', '"' ); |
| 2314 |
RepStr := StringReplace(RepStr, '"', '"', [rfReplaceAll]); |
RepStr := CustomStringReplace(RepStr, '&', '&' ); |
|
RepStr := StringReplace(RepStr, '&', '&', [rfReplaceAll]); |
|
| 2315 |
//RepStr := StringReplace(RepStr, '@`', ',', [rfReplaceAll]); |
//RepStr := StringReplace(RepStr, '@`', ',', [rfReplaceAll]); |
| 2316 |
|
|
| 2317 |
if Item.SubItems.Count <> 6 then begin |
if Item.SubItems.Count <> 6 then begin |
| 5989 |
for i := 0 to Node.Count - 1 do begin |
for i := 0 to Node.Count - 1 do begin |
| 5990 |
NewMenu := TFavoriteMenuItem.Create(Self); |
NewMenu := TFavoriteMenuItem.Create(Self); |
| 5991 |
NewMenu.AutoHotkeys := maAutomatic; |
NewMenu.AutoHotkeys := maAutomatic; |
| 5992 |
NewMenu.Caption := StringReplace(Node.Item[i].Text, '&', '&&', [rfReplaceAll]); |
NewMenu.Caption := CustomStringReplace(Node.Item[i].Text, '&', '&&'); |
| 5993 |
TFavoriteMenuItem(NewMenu).Data := Node.Item[i].Data; |
TFavoriteMenuItem(NewMenu).Data := Node.Item[i].Data; |
| 5994 |
MenuItem.Add(NewMenu); |
MenuItem.Add(NewMenu); |
| 5995 |
|
|
| 6624 |
begin |
begin |
| 6625 |
Doc := Browser.Document as IHtmlDocument2; |
Doc := Browser.Document as IHtmlDocument2; |
| 6626 |
Range := Doc.selection.createRange as IHTMLTxtRange; |
Range := Doc.selection.createRange as IHTMLTxtRange; |
| 6627 |
s := StringReplace(Range.text, ' ', ' ', [rfReplaceAll]); |
s := CustomStringReplace(Range.text, ' ', ' ');//全角空白を半角空白に |
| 6628 |
s := GikoSys.ZenToHan(Trim(s)); |
s := GikoSys.ZenToHan(Trim(s)); |
| 6629 |
if GikoSys.IsNumeric(s) then begin |
if GikoSys.IsNumeric(s) then begin |
| 6630 |
|
|
| 6655 |
Res: TResRec; |
Res: TResRec; |
| 6656 |
Header: string; |
Header: string; |
| 6657 |
Body: string; |
Body: string; |
|
|
|
|
//Abonizer : TAbon; |
|
| 6658 |
begin |
begin |
| 6659 |
try |
try |
| 6660 |
if StNum > ToNum then begin |
if StNum > ToNum then begin |
| 6681 |
Res := GikoSys.DivideStrLine(tmp); |
Res := GikoSys.DivideStrLine(tmp); |
| 6682 |
|
|
| 6683 |
Header := IntToStr(Line) + ' 名前: ' + Res.FName + ' 投稿日: ' + Res.FDateTime; |
Header := IntToStr(Line) + ' 名前: ' + Res.FName + ' 投稿日: ' + Res.FDateTime; |
| 6684 |
|
Body := CustomStringReplace(Res.FBody, '<br> ', #10,true); |
| 6685 |
Body := StringReplace(Res.FBody, '<br> ', #10, [rfIgnoreCase, rfReplaceAll]); |
Body := CustomStringReplace(Body, '<br>', #10,true); |
| 6686 |
Body := StringReplace(Body, '<br>', #10, [rfIgnoreCase, rfReplaceAll]); |
Body := CustomStringReplace(Body, '</a>', '',true); |
|
Body := StringReplace(Body, '</a>', '', [rfIgnoreCase, rfReplaceAll]); |
|
| 6687 |
Body := GikoSys.DeleteLink(Body); |
Body := GikoSys.DeleteLink(Body); |
| 6688 |
Body := StringReplace(Body, '<', '<', [rfReplaceAll]); |
Body := CustomStringReplace(Body, '<', '<'); |
| 6689 |
Body := StringReplace(Body, '>', '>', [rfReplaceAll]); |
Body := CustomStringReplace(Body, '>', '>'); |
| 6690 |
Body := StringReplace(Body, '"', '"', [rfReplaceAll]); |
Body := CustomStringReplace(Body, '"', '"'); |
| 6691 |
Body := StringReplace(Body, '&', '&', [rfReplaceAll]); |
Body := CustomStringReplace(Body, '&', '&'); |
| 6692 |
FHint.Add(Header, Body); |
FHint.Add(Header, Body); |
| 6693 |
// s := StringReplace(s, '&', '&', [rfReplaceAll]); |
// s := StringReplace(s, '&', '&', [rfReplaceAll]); |
| 6694 |
// s := StringReplace(s, '@`', ',', [rfReplaceAll]); |
// s := StringReplace(s, '@`', ',', [rfReplaceAll]); |