| 6895 |
GikoTab : TGikoTabAppend; |
GikoTab : TGikoTabAppend; |
| 6896 |
fileName : string; |
fileName : string; |
| 6897 |
begin |
begin |
|
if FStartUp then begin |
|
|
//起動時にタブ自動復元を入れていると、空ページ用のBrowserの |
|
|
//描画が終わっていなくて、クリックイベントの設定等に突入するので |
|
|
//ここで終わらせておく |
|
|
while (Browser.ReadyState <> READYSTATE_COMPLETE) and |
|
|
(Browser.ReadyState <> READYSTATE_INTERACTIVE) do begin |
|
|
Application.ProcessMessages; |
|
|
end; |
|
|
end; |
|
| 6898 |
|
|
| 6899 |
fileName := ExtractFilePath(Application.ExeName) + 'tab.sav'; |
fileName := ExtractFilePath(Application.ExeName) + 'tab.sav'; |
| 6900 |
URLs := TStringList.Create(); |
URLs := TStringList.Create(); |
| 7528 |
WM_KEYFIRST..WM_KEYLAST : |
WM_KEYFIRST..WM_KEYLAST : |
| 7529 |
begin |
begin |
| 7530 |
//キーアップは無視する KeyDownと合わせて2回呼ばれるから |
//キーアップは無視する KeyDownと合わせて2回呼ばれるから |
| 7531 |
if Msg.message <> WM_KEYUP then begin |
if (Msg.message <> WM_KEYUP) and (Msg.message <> WM_CHAR) then begin |
| 7532 |
wmMsg.Msg := Msg.message; |
wmMsg.Msg := Msg.message; |
| 7533 |
wmMsg.CharCode := Word(Msg.wParam); |
wmMsg.CharCode := Word(Msg.wParam); |
| 7534 |
wmMsg.KeyData := Msg.lParam; |
wmMsg.KeyData := Msg.lParam; |
| 7680 |
Shift: TShiftState; X, Y: Integer); |
Shift: TShiftState; X, Y: Integer); |
| 7681 |
begin |
begin |
| 7682 |
if (Button = mbLeft) and not (ssDouble in Shift) then begin |
if (Button = mbLeft) and not (ssDouble in Shift) then begin |
|
|
|
| 7683 |
if (FClickNode <> nil) and (FClickNode = TreeView.GetNodeAt(X, Y)) then begin |
if (FClickNode <> nil) and (FClickNode = TreeView.GetNodeAt(X, Y)) then begin |
|
//if (FClickNode = TreeView.Selected) then begin |
|
| 7684 |
TreeClick(FClickNode); |
TreeClick(FClickNode); |
| 7685 |
end; |
end; |
| 7686 |
end; |
end; |
| 7729 |
end; |
end; |
| 7730 |
BrowserNullTab.Browser.BringToFront; |
BrowserNullTab.Browser.BringToFront; |
| 7731 |
ShowWindow(BrowserNullTab.Browser.Handle, SW_SHOW); |
ShowWindow(BrowserNullTab.Browser.Handle, SW_SHOW); |
| 7732 |
|
//起動時にタブ自動復元を入れていると、空ページ用のBrowserの |
| 7733 |
|
//描画が終わっていなくて、クリックイベントの設定等に突入するので |
| 7734 |
|
//ここで終わらせておく |
| 7735 |
|
while (Browser.ReadyState <> READYSTATE_COMPLETE) and |
| 7736 |
|
(Browser.ReadyState <> READYSTATE_INTERACTIVE) do begin |
| 7737 |
|
Application.ProcessMessages; |
| 7738 |
|
end; |
| 7739 |
end; |
end; |
| 7740 |
// ************************************************************************* |
// ************************************************************************* |
| 7741 |
//! ツールバーにスレ絞込みコンボボックスを設定する |
//! ツールバーにスレ絞込みコンボボックスを設定する |