| 2709 |
BrowserNameLabel.Left := ItemImage.Left + 20; |
BrowserNameLabel.Left := ItemImage.Left + 20; |
| 2710 |
|
|
| 2711 |
end; |
end; |
| 2712 |
|
//ActiveContent の更新 |
| 2713 |
|
FActiveContent := Thread; |
| 2714 |
|
|
| 2715 |
if not ThreadIsLog then begin |
if not ThreadIsLog then begin |
| 2716 |
Self.Caption := GikoDataModule.CAPTION_NAME ; |
Self.Caption := GikoDataModule.CAPTION_NAME ; |
| 2717 |
//ステータスバーに表示しているスレの容量を消去 |
//ステータスバーに表示しているスレの容量を消去 |
| 2718 |
StatusBar.Panels[THREADSIZE_PANEL].Text := ''; |
StatusBar.Panels[THREADSIZE_PANEL].Text := ''; |
| 2719 |
try |
try |
| 2720 |
|
Thread.Browser.BringToFront; |
| 2721 |
s := '<HTML><BODY><CENTER>このスレッドは取得していません</CENTER></BODY></HTML>'; |
s := '<HTML><BODY><CENTER>このスレッドは取得していません</CENTER></BODY></HTML>'; |
| 2722 |
doc := Idispatch( olevariant(Thread.Browser.ControlInterface).Document) as IHTMLDocument2; |
doc := Idispatch( olevariant(Thread.Browser.ControlInterface).Document) as IHTMLDocument2; |
| 2723 |
doc.open; |
doc.open; |
| 2725 |
doc.Write(s); |
doc.Write(s); |
| 2726 |
doc.Close; |
doc.Close; |
| 2727 |
finally |
finally |
| 2728 |
|
|
| 2729 |
end; |
end; |
| 2730 |
end else begin |
end else begin |
| 2731 |
Self.Caption := GikoDataModule.CAPTION_NAME + ' - [' + ThreadTitle + ']'; |
Self.Caption := GikoDataModule.CAPTION_NAME + ' - [' + ThreadTitle + ']'; |
| 2740 |
|
|
| 2741 |
Thread.Browser.OnStatusTextChange := nil; |
Thread.Browser.OnStatusTextChange := nil; |
| 2742 |
LockWindowUpdate(Thread.Browser.ParentWindow); |
LockWindowUpdate(Thread.Browser.ParentWindow); |
|
//LockWindowUpdate(Thread.Browser.Handle); |
|
| 2743 |
HTMLCreater.CreateHTML2( |
HTMLCreater.CreateHTML2( |
| 2744 |
Idispatch( olevariant(Thread.Browser.ControlInterface).Document), |
Idispatch( olevariant(Thread.Browser.ControlInterface).Document), |
| 2745 |
ThreadItem, sTitle); |
ThreadItem, sTitle); |
| 2751 |
Application.ProcessMessages; |
Application.ProcessMessages; |
| 2752 |
end; |
end; |
| 2753 |
Thread.Browser.OnStatusTextChange := BrowserStatusTextChange; |
Thread.Browser.OnStatusTextChange := BrowserStatusTextChange; |
|
//PostMessage( Handle, USER_DOCUMENTCOMPLETE, Integer( Thread.Browser ), 0 ); |
|
|
end else begin |
|
|
// JUMPを指定されていたらJUMPする |
|
|
//if (Thread.Movement <> '') then begin |
|
|
// Thread.Move(Thread.Movement); |
|
|
// Thread.Movement := ''; |
|
|
//end; |
|
| 2754 |
end; |
end; |
| 2755 |
end; |
end; |
| 2756 |
|
|
| 2757 |
//ActiveContent の更新 |
|
|
FActiveContent := Thread; |
|
| 2758 |
|
|
| 2759 |
//Threadの板と表示している板が同じなら描画を更新する |
//Threadの板と表示している板が同じなら描画を更新する |
| 2760 |
if (FActiveList is TBoard) and (TBoard(ActiveList) = ThreadItem.ParentBoard) then begin |
if (FActiveList is TBoard) and (TBoard(ActiveList) = ThreadItem.ParentBoard) then begin |
| 7235 |
s := MouseGesture.GetGestureStr; |
s := MouseGesture.GetGestureStr; |
| 7236 |
Action := GikoSys.Setting.Gestures.GetGestureAction(s); |
Action := GikoSys.Setting.Gestures.GetGestureAction(s); |
| 7237 |
if Action <> nil then |
if Action <> nil then |
|
MouseGesture.OnGestureStart(nil); |
|
| 7238 |
Action.Execute; |
Action.Execute; |
| 7239 |
StatusBar.Panels[1].Text := ''; |
StatusBar.Panels[1].Text := ''; |
| 7240 |
end; |
end; |