| 632 |
procedure ShowBoardActionUpdate(Sender: TObject); |
procedure ShowBoardActionUpdate(Sender: TObject); |
| 633 |
procedure SelectThreadReloadActionUpdate(Sender: TObject); |
procedure SelectThreadReloadActionUpdate(Sender: TObject); |
| 634 |
procedure ItemReloadActionUpdate(Sender: TObject); |
procedure ItemReloadActionUpdate(Sender: TObject); |
|
procedure ListViewDblClick(Sender: TObject); |
|
| 635 |
procedure LogDeleteActionExecute(Sender: TObject); |
procedure LogDeleteActionExecute(Sender: TObject); |
| 636 |
procedure KokomadeActionExecute(Sender: TObject); |
procedure KokomadeActionExecute(Sender: TObject); |
| 637 |
procedure ZenbuActionExecute(Sender: TObject); |
procedure ZenbuActionExecute(Sender: TObject); |
| 3336 |
(Assigned(FActiveContent.Browser.Document)) then begin |
(Assigned(FActiveContent.Browser.Document)) then begin |
| 3337 |
try |
try |
| 3338 |
try |
try |
| 3339 |
//Sleep(1); |
Sleep(1); |
| 3340 |
//Application.ProcessMessages; |
//Application.ProcessMessages; |
| 3341 |
FActiveContent.Thread.ScrollTop := OleVariant(IHTMLDocument2(FActiveContent.Browser.Document).Body).ScrollTop; |
FActiveContent.Thread.ScrollTop := OleVariant(IHTMLDocument2(FActiveContent.Browser.Document).Body).ScrollTop; |
| 3342 |
//if FActiveContent.Browser <> BrowserNullTab.Browser then |
//if FActiveContent.Browser <> BrowserNullTab.Browser then |
| 3386 |
|
|
| 3387 |
Screen.Cursor := crHourGlass; |
Screen.Cursor := crHourGlass; |
| 3388 |
try |
try |
|
//if (FActiveContent <> nil) and (FActiveContent.FBrowser <> nil) then |
|
|
// TOleControl(FActiveContent.FBrowser).BringToFront; |
|
| 3389 |
if inThread.FThread.UnRead then begin |
if inThread.FThread.UnRead then begin |
| 3390 |
inThread.FThread.ParentBoard.UnRead := inThread.FThread.ParentBoard.UnRead - 1; |
inThread.FThread.ParentBoard.UnRead := inThread.FThread.ParentBoard.UnRead - 1; |
| 3391 |
if inThread.FThread.ParentBoard.UnRead < 0 then inThread.FThread.ParentBoard.UnRead := 0; |
if inThread.FThread.ParentBoard.UnRead < 0 then inThread.FThread.ParentBoard.UnRead := 0; |
| 3392 |
TreeView.Refresh; |
TreeView.Refresh; |
| 3393 |
end; |
end; |
| 3394 |
|
if(FActiveContent <> nil) and (FActiveContent <> inThread) then begin |
| 3395 |
|
if (FActiveContent.Browser <> BrowserNullTab.Browser) and |
| 3396 |
|
(TOleControl(FActiveContent.Browser).Visible) then |
| 3397 |
|
TOleControl(FActiveContent.Browser).Visible := false; |
| 3398 |
|
end; |
| 3399 |
LockWindowUpdate(Self.Handle); |
LockWindowUpdate(Self.Handle); |
| 3400 |
if not TOleControl(inThread.FBrowser).Visible then |
if not TOleControl(inThread.FBrowser).Visible then |
| 3401 |
TOleControl(inThread.FBrowser).Visible := true; //ここで表示しておかないと描画で止まる |
TOleControl(inThread.FBrowser).Visible := true; //ここで表示しておかないと描画で止まる |
| 3402 |
LockWindowUpdate(0); |
LockWindowUpdate(0); |
| 3403 |
|
if (not Assigned(inThread.Browser.Document)) then begin |
| 3404 |
|
inThread.Browser.Navigate('about:blank'); |
| 3405 |
|
end; |
| 3406 |
if inThread.Browser <> BrowserNullTab.Browser then begin |
if inThread.Browser <> BrowserNullTab.Browser then begin |
| 3407 |
while (inThread.Browser.ReadyState <> READYSTATE_COMPLETE) and |
while (inThread.Browser.ReadyState <> READYSTATE_COMPLETE) and |
| 3408 |
(inThread.Browser.ReadyState <> READYSTATE_INTERACTIVE) do begin |
(inThread.Browser.ReadyState <> READYSTATE_INTERACTIVE) do begin |
| 3409 |
Application.ProcessMessages; |
Application.ProcessMessages; |
| 3410 |
end; |
end; |
| 3411 |
end; |
end; |
|
if (not Assigned(inThread.Browser.Document)) then begin |
|
|
inThread.Browser.Navigate('about:blank'); |
|
|
end; |
|
| 3412 |
if not inThread.FThread.IsLogFile then begin |
if not inThread.FThread.IsLogFile then begin |
| 3413 |
try |
try |
| 3414 |
s := '<HTML><BODY><CENTER>このスレッドは取得していません</CENTER></BODY></HTML>'; |
s := '<HTML><BODY><CENTER>このスレッドは取得していません</CENTER></BODY></HTML>'; |
| 3429 |
doc := Idispatch( olevariant(inThread.Browser.ControlInterface).Document) as IHTMLDocument2; |
doc := Idispatch( olevariant(inThread.Browser.ControlInterface).Document) as IHTMLDocument2; |
| 3430 |
GikoSys.CreateHTML2(doc, inThread.FThread, sTitle); |
GikoSys.CreateHTML2(doc, inThread.FThread, sTitle); |
| 3431 |
//なぜかここで明示的にDocumentCompleteを呼ばないとうまくいかない |
//なぜかここで明示的にDocumentCompleteを呼ばないとうまくいかない |
| 3432 |
inThread.FBrowser.OnDocumentComplete(inThread.FBrowser, inThread.FBrowser.Parent, url); |
inThread.FBrowser.OnDocumentComplete(inThread.FBrowser, inThread.FBrowser.Parent, url); |
| 3433 |
inThread.OnlyHundred := GikoSys.OnlyAHundredRes; |
inThread.OnlyHundred := GikoSys.OnlyAHundredRes; |
| 3434 |
Application.ProcessMessages; |
Application.ProcessMessages; |
| 3435 |
//ここでApplication.ProcessMessagesを呼ぶことによってWebBrowserを更新させる。 |
//ここでApplication.ProcessMessagesを呼ぶことによってWebBrowserを更新させる。 |
| 3453 |
inThread.FThread.UnRead := False; |
inThread.FThread.UnRead := False; |
| 3454 |
ListView.Refresh; |
ListView.Refresh; |
| 3455 |
end; |
end; |
|
// LockWindowUpdate(0); |
|
|
if(FActiveContent <> nil) and (FActiveContent <> inThread) then begin |
|
|
if (FActiveContent.Browser <> BrowserNullTab.Browser) and |
|
|
(TOleControl(FActiveContent.Browser).Visible) then |
|
|
TOleControl(FActiveContent.Browser).Visible := false; |
|
|
end; |
|
| 3456 |
FActiveContent := inThread; |
FActiveContent := inThread; |
| 3457 |
|
|
| 3458 |
BrowserBoardNameLabel.Caption := inThread.FThread.ParentBoard.Title; |
BrowserBoardNameLabel.Caption := inThread.FThread.ParentBoard.Title; |
| 4142 |
if threadItem.IsLogFile then |
if threadItem.IsLogFile then |
| 4143 |
ListView.UpdateItems(listItem.Index, listItem.Index); |
ListView.UpdateItems(listItem.Index, listItem.Index); |
| 4144 |
end; |
end; |
| 4145 |
|
mbLeft: |
| 4146 |
|
begin |
| 4147 |
|
//ここでDblClick拾わないと、Clickイベントが優先して起きてしまうので |
| 4148 |
|
if (ssDouble in Shift) then |
| 4149 |
|
ListDoubleClick(Shift) |
| 4150 |
|
else |
| 4151 |
|
ListClick; |
| 4152 |
|
end; |
| 4153 |
end; |
end; |
| 4154 |
{ if ssDouble in Shift then begin |
{ if ssDouble in Shift then begin |
| 4155 |
DoubleClickOccurred[Button] := True; |
DoubleClickOccurred[Button] := True; |
| 5192 |
ActiveLogDeleteAction.Enabled := GetActiveContent <> nil; |
ActiveLogDeleteAction.Enabled := GetActiveContent <> nil; |
| 5193 |
end; |
end; |
| 5194 |
|
|
|
procedure TGikoForm.ListViewDblClick(Sender: TObject); |
|
|
var |
|
|
shift: TShiftState; |
|
|
begin |
|
|
shift := []; |
|
|
if GetAsyncKeyState(VK_SHIFT) = Smallint($8001) then |
|
|
Include(shift, ssShift); |
|
|
if GetAsyncKeyState(VK_CONTROL) = Smallint($8001) then |
|
|
Include(shift, ssCtrl); |
|
|
if GetAsyncKeyState(VK_MENU) = Smallint($8001) then |
|
|
Include(shift, ssAlt); |
|
|
|
|
|
ListDoubleClick(shift); |
|
|
end; |
|
|
|
|
| 5195 |
procedure TGikoForm.LogDeleteActionExecute(Sender: TObject); |
procedure TGikoForm.LogDeleteActionExecute(Sender: TObject); |
| 5196 |
const |
const |
| 5197 |
DEL_MSG = 'ログファイルを削除します。よろしいですか?'; |
DEL_MSG = 'ログファイルを削除します。よろしいですか?'; |
| 9854 |
|
|
| 9855 |
procedure TGikoForm.ListViewClick(Sender: TObject); |
procedure TGikoForm.ListViewClick(Sender: TObject); |
| 9856 |
begin |
begin |
|
ListClick; |
|
| 9857 |
end; |
end; |
| 9858 |
|
|
| 9859 |
// TreeView がクリックされた |
// TreeView がクリックされた |