| 3585 |
InsertBrowserTab(Item.ThreadItem); |
InsertBrowserTab(Item.ThreadItem); |
| 3586 |
end; |
end; |
| 3587 |
|
|
| 3588 |
Application.ProcessMessages; |
//Application.ProcessMessages; |
| 3589 |
|
|
| 3590 |
if Item.State = gdsComplete then begin |
if Item.State = gdsComplete then begin |
| 3591 |
PlaySound('New'); |
PlaySound('New'); |
| 3958 |
//GikoSys.CreateHTML2(doc, ThreadItem, sTitle); |
//GikoSys.CreateHTML2(doc, ThreadItem, sTitle); |
| 3959 |
HTMLCreater.CreateHTML2(olevariant(Thread.Browser.ControlInterface).Document, ThreadItem, sTitle); |
HTMLCreater.CreateHTML2(olevariant(Thread.Browser.ControlInterface).Document, ThreadItem, sTitle); |
| 3960 |
doc := Idispatch( olevariant(Thread.Browser.ControlInterface).Document) as IHTMLDocument2; |
doc := Idispatch( olevariant(Thread.Browser.ControlInterface).Document) as IHTMLDocument2; |
| 3961 |
//ロードが完了するまで待つ |
{ //ロードが完了するまで待つ |
| 3962 |
while (doc.readyState) <> 'complete' do begin |
while (doc.readyState) <> 'complete' do begin |
| 3963 |
Application.ProcessMessages; |
Application.ProcessMessages; |
| 3964 |
end; |
end; |
| 3967 |
BrowserTab.Repaint; |
BrowserTab.Repaint; |
| 3968 |
Exit; |
Exit; |
| 3969 |
end; |
end; |
| 3970 |
///////////////////////////////////////////////// |
} ///////////////////////////////////////////////// |
| 3971 |
//DocumentCompleteから持ってきた。 |
//DocumentCompleteから持ってきた。 |
| 3972 |
|
{ |
| 3973 |
if Length(Thread.Movement) > 0 then begin |
if Length(Thread.Movement) > 0 then begin |
| 3974 |
if ThreadItem.UnRead then begin |
if ThreadItem.UnRead then begin |
| 3975 |
ThreadItem.UnRead := False; |
ThreadItem.UnRead := False; |
| 3996 |
MsgBox(Handle, E.Message, 'SetContent[ScrollTop<-]', 0); |
MsgBox(Handle, E.Message, 'SetContent[ScrollTop<-]', 0); |
| 3997 |
end; |
end; |
| 3998 |
end; |
end; |
| 3999 |
|
} |
| 4000 |
///////////////////////////////////////////////// |
///////////////////////////////////////////////// |
| 4001 |
Thread.Browser.OnStatusTextChange := BrowserStatusTextChange; |
Thread.Browser.OnStatusTextChange := BrowserStatusTextChange; |
| 4002 |
|
|
| 6561 |
BrowserRecord :TBrowserRecord; |
BrowserRecord :TBrowserRecord; |
| 6562 |
i :Integer; |
i :Integer; |
| 6563 |
doc : Variant; |
doc : Variant; |
| 6564 |
threadItem : TThreadItem; |
// threadItem : TThreadItem; |
| 6565 |
begin |
begin |
| 6566 |
if TObject(Sender) is TWebBrowser then begin |
if TObject(Sender) is TWebBrowser then begin |
| 6567 |
BrowserRecord := nil; |
BrowserRecord := nil; |
| 6579 |
BrowserRecord.FEvent := THTMLDocumentEventSink.Create(Self, FDispHtmlDocument, HTMLDocumentEvents2); |
BrowserRecord.FEvent := THTMLDocumentEventSink.Create(Self, FDispHtmlDocument, HTMLDocumentEvents2); |
| 6580 |
BrowserRecord.FEvent.OnContextMenu := OnDocumentContextMenu; |
BrowserRecord.FEvent.OnContextMenu := OnDocumentContextMenu; |
| 6581 |
BrowserRecord.FEvent.OnClick := WebBrowserClick; //追加したOnClickイベント |
BrowserRecord.FEvent.OnClick := WebBrowserClick; //追加したOnClickイベント |
| 6582 |
|
|
| 6583 |
|
if BrowserRecord.Thread.UnRead then begin |
| 6584 |
|
BrowserRecord.Thread.UnRead := False; |
| 6585 |
|
BrowserRecord.Thread.ParentBoard.UnRead := BrowserRecord.Thread.ParentBoard.UnRead - 1; |
| 6586 |
|
if BrowserRecord.Thread.ParentBoard.UnRead < 0 then BrowserRecord.Thread.ParentBoard.UnRead := 0; |
| 6587 |
|
TreeView.Refresh; |
| 6588 |
|
ListView.Refresh; |
| 6589 |
|
if Length(BrowserRecord.Movement) > 0 then begin |
| 6590 |
|
BrowserMovement( BrowserRecord.Movement, BrowserRecord ); |
| 6591 |
|
BrowserRecord.Movement := ''; |
| 6592 |
|
end else begin |
| 6593 |
|
BrowserMovement( 'new', BrowserRecord ); |
| 6594 |
|
end; |
| 6595 |
|
end else |
| 6596 |
|
if Length(BrowserRecord.Movement) > 0 then begin |
| 6597 |
|
BrowserMovement( BrowserRecord.Movement, BrowserRecord ); |
| 6598 |
|
BrowserRecord.Movement := ''; |
| 6599 |
|
end else if BrowserRecord.Thread.ScrollTop <> 0 then begin |
| 6600 |
|
try |
| 6601 |
|
doc := Idispatch( olevariant(BrowserRecord.Browser.ControlInterface).Document) as IHTMLDocument2; |
| 6602 |
|
doc.Body.ScrollTop := BrowserRecord.Thread.ScrollTop; |
| 6603 |
|
except |
| 6604 |
|
on E: Exception do |
| 6605 |
|
MsgBox(Handle, E.Message, 'SetContent[ScrollTop<-]', 0); |
| 6606 |
|
end; |
| 6607 |
|
end; |
| 6608 |
end; |
end; |
| 6609 |
end else begin |
end else begin |
| 6610 |
if GetActiveContent <> nil then begin |
if GetActiveContent <> nil then begin |
| 6615 |
FEvent.OnContextMenu := OnDocumentContextMenu; |
FEvent.OnContextMenu := OnDocumentContextMenu; |
| 6616 |
FEvent.OnClick := WebBrowserClick; //追加したOnClickイベント |
FEvent.OnClick := WebBrowserClick; //追加したOnClickイベント |
| 6617 |
end; |
end; |
|
|
|
| 6618 |
end; |
end; |
| 6619 |
|
|
| 6620 |
end; |
end; |
| 6621 |
end; |
end; |
| 6622 |
|
|