| 3822 |
else if TObject(FHistoryList[ i ]) is TFavoriteBoardItem then |
else if TObject(FHistoryList[ i ]) is TFavoriteBoardItem then |
| 3823 |
TFavoriteBoardItem(FHistoryList[ i ]).Free; |
TFavoriteBoardItem(FHistoryList[ i ]).Free; |
| 3824 |
|
|
| 3825 |
//FHistoryList.Delete(i); |
//FHistoryList.Delete(i); |
| 3826 |
end; |
end; |
| 3827 |
except |
except |
| 3828 |
end; |
end; |
| 4952 |
begin |
begin |
| 4953 |
Item := GetActiveContent; |
Item := GetActiveContent; |
| 4954 |
if Item = nil then Exit; |
if Item = nil then Exit; |
|
|
|
|
if Item.Count >= 1000 then begin |
|
|
msg := 'このスレッドはレス数が1000を超えているので書込み出来ません。' + #13#10 |
|
|
+ '新スレッドを探してください。'; |
|
|
if MsgBox(Handle, msg, '警告', MB_YESNO or MB_ICONEXCLAMATION) <> 7 then begin |
|
|
Exit; |
|
|
end; |
|
|
end; |
|
| 4955 |
Editor := TEditorForm.Create(Self); |
Editor := TEditorForm.Create(Self); |
| 4956 |
Editor.SetThreadItem(Item); |
Editor.SetThreadItem(Item); |
| 4957 |
GikoSys.LoadEditorKeySetting(Editor.ActionList); |
GikoSys.LoadEditorKeySetting(Editor.ActionList); |
| 6234 |
BrowserRecord.FEvent.OnClick := WebBrowserClick; //追加したOnClickイベント |
BrowserRecord.FEvent.OnClick := WebBrowserClick; //追加したOnClickイベント |
| 6235 |
end; |
end; |
| 6236 |
end else begin |
end else begin |
| 6237 |
|
if GetActiveContent <> nil then begin |
| 6238 |
FDispHtmlDocument := Idispatch(OleVariant(Browser.ControlInterface).Document) as DispHTMLDocument; |
FDispHtmlDocument := Idispatch(OleVariant(Browser.ControlInterface).Document) as DispHTMLDocument; |
| 6239 |
if FEvent <> nil then |
if FEvent <> nil then |
| 6240 |
FEvent.Free; |
FEvent.Free; |
| 6241 |
FEvent := THTMLDocumentEventSink.Create(Self, FDispHtmlDocument, HTMLDocumentEvents2); |
FEvent := THTMLDocumentEventSink.Create(Self, FDispHtmlDocument, HTMLDocumentEvents2); |
| 6242 |
FEvent.OnContextMenu := OnDocumentContextMenu; |
FEvent.OnContextMenu := OnDocumentContextMenu; |
| 6243 |
FEvent.OnClick := WebBrowserClick; //追加したOnClickイベント |
FEvent.OnClick := WebBrowserClick; //追加したOnClickイベント |
| 6244 |
|
end; |
| 6245 |
end; |
end; |
| 6246 |
end; |
end; |
| 6247 |
end; |
end; |
| 7106 |
// 過去ログ倉庫から、ダウソしたスレが発見できないのでここで探すようにする (2004/01/22) |
// 過去ログ倉庫から、ダウソしたスレが発見できないのでここで探すようにする (2004/01/22) |
| 7107 |
Board := BBSs[ 0 ].FindBBSID( Copy(BBSID, 1 , Length(BBSID) - 1) ); |
Board := BBSs[ 0 ].FindBBSID( Copy(BBSID, 1 , Length(BBSID) - 1) ); |
| 7108 |
end; |
end; |
| 7109 |
if Board = nil then begin |
if (Board = nil) or (boardURL <> Board.URL) then begin |
| 7110 |
GikoSys.OpenBrowser(URL, gbtUserApp); |
GikoSys.OpenBrowser(URL, gbtUserApp); |
| 7111 |
Exit; |
Exit; |
| 7112 |
//Board := GikoSys.GetUnknownBoard( nil, boardURL ); |
//Board := GikoSys.GetUnknownBoard( nil, boardURL ); |
| 7532 |
// 文字コードはプラグインに任せる |
// 文字コードはプラグインに任せる |
| 7533 |
for i := StNum to ToNum do begin |
for i := StNum to ToNum do begin |
| 7534 |
Line := i; |
Line := i; |
| 7535 |
//ここで2ちゃんねるのdatの形式で1行読み込めれば・・・。↓読めるようになった |
//ここで2ちゃんねるのdatの形式で1行読み込めれば・・・。↓読めるようになった |
| 7536 |
tmp := boardPlugIn.GetDat( DWORD( threadItem ), i ); |
tmp := boardPlugIn.GetDat( DWORD( threadItem ), i ); |
| 7537 |
if (tmp <> '') And ( not GikoSys.FAbon.CheckAbonPopupRes(tmp) And( not GikoSys.FAbon.CheckIndividualAbonList(line))) then begin |
if (tmp <> '') And ( not GikoSys.FAbon.CheckAbonPopupRes(tmp) And( not GikoSys.FAbon.CheckIndividualAbonList(line))) then begin |
| 7538 |
Res := GikoSys.DivideStrLine(tmp); |
Res := GikoSys.DivideStrLine(tmp); |
| 7539 |
if (GikoSys.Setting.ShowMail = false) or (Length(res.FMailTo) = 0) then |
if (GikoSys.Setting.ShowMail = false) or (Length(res.FMailTo) = 0) then |
| 9742 |
Header := CustomStringReplace(Header, '</b>', '',true); |
Header := CustomStringReplace(Header, '</b>', '',true); |
| 9743 |
Header := CustomStringReplace(Header, '<b>', '',true); |
Header := CustomStringReplace(Header, '<b>', '',true); |
| 9744 |
end; |
end; |
| 9745 |
|
if ThreadItem.IsBoardPlugInAvailable then begin |
| 9746 |
|
Body := CustomStringReplace(Res.FBody, '<br>', #13#10,true); |
| 9747 |
|
Body := CustomStringReplace(Body, '<br>', #13#10,true); |
| 9748 |
|
end else begin |
| 9749 |
|
Body := CustomStringReplace(Res.FBody, ' <br> ', #13#10,true); |
| 9750 |
|
Body := CustomStringReplace(Body, ' <br>', #13#10,true); |
| 9751 |
|
Body := CustomStringReplace(Body, '<br> ', #13#10,true); |
| 9752 |
|
Body := CustomStringReplace(Body, '<br>', #13#10,true); |
| 9753 |
|
|
| 9754 |
//Body := CustomStringReplace(Res.FBody, '<br> ', #13#10,true); |
end; |
|
Body := CustomStringReplace(Res.FBody, '<br>', #13#10,true); |
|
|
Body := CustomStringReplace(Body, '<br>', #13#10,true); |
|
| 9755 |
Body := CustomStringReplace(Body, '</a>', '',true); |
Body := CustomStringReplace(Body, '</a>', '',true); |
| 9756 |
|
|
| 9757 |
Body := GikoSys.DeleteLink(Body); |
Body := GikoSys.DeleteLink(Body); |