| 8858 |
Handled := False; |
Handled := False; |
| 8859 |
end else begin |
end else begin |
| 8860 |
FIsHandledWheel := True; |
FIsHandledWheel := True; |
| 8861 |
if (FActiveContent <> nil) and (FActiveContent.Browser <> nil) then begin |
if (Wnd = TreeView.Handle) or (Wnd = FavoriteTreeView.Handle) |
| 8862 |
|
or (Wnd = ListView.Handle) or (Wnd = MessageListView.Handle) |
| 8863 |
|
then |
| 8864 |
|
SendMessage( Wnd, WM_MOUSEWHEEL, WheelDelta shl 16, (Mouse.CursorPos.X shl 16) or Mouse.CursorPos.Y ) |
| 8865 |
|
else |
| 8866 |
|
Handled := False; |
| 8867 |
|
|
| 8868 |
|
{ |
| 8869 |
|
// if (FActiveContent <> nil) and (FActiveContent.Browser <> nil) then begin |
| 8870 |
// TWebBrowser の Handle と比較しても一致しないので座標で TWebBrowser かどうか判定 |
// TWebBrowser の Handle と比較しても一致しないので座標で TWebBrowser かどうか判定 |
| 8871 |
browserPos.X := 0; |
browserPos.X := 0; |
| 8872 |
browserPos.Y := 0; |
browserPos.Y := 0; |
| 8873 |
Windows.ClientToScreen( Browser.Handle, browserPos ); |
Windows.ClientToScreen( Browser.Handle, browserPos ); |
| 8874 |
if (Longword(Mouse.CursorPos.X - browserPos.X) >= Browser.Width) |
if (Longword(Mouse.CursorPos.X - browserPos.X) >= Browser.Width) |
| 8875 |
or (Longword(Mouse.CursorPos.Y - browserPos.Y) >= Browser.Height) then begin |
or (Longword(Mouse.CursorPos.Y - browserPos.Y) >= Browser.Height) |
| 8876 |
|
or (Longword(Mouse.CursorPos.Y - browserPos.Y) < 0) |
| 8877 |
|
or (Longword(Mouse.CursorPos.Y - browserPos.Y) < 0) then begin |
| 8878 |
// or not FActiveContent.Browser.Focused then |
// or not FActiveContent.Browser.Focused then |
| 8879 |
// TWebBrowser は無限ループするのでそれ以外ならコントロールに送信 |
// TWebBrowser は無限ループするのでそれ以外ならコントロールに送信 |
| 8880 |
SendMessage( Wnd, WM_MOUSEWHEEL, WheelDelta shl 16, (MousePos.X shl 16) or MousePos.Y ); |
if (Wnd <> BrowserToolBar.Handle) and (Wnd <> BrowserNameToolBar.Handle) then |
| 8881 |
|
SendMessage( Wnd, WM_MOUSEWHEEL, WheelDelta shl 16, (Mouse.CursorPos.X shl 16) or Mouse.CursorPos.Y ) |
| 8882 |
|
else |
| 8883 |
|
Handled := False; |
| 8884 |
end else begin |
end else begin |
| 8885 |
Handled := False; |
Handled := False; |
| 8886 |
end; |
end; |
| 8887 |
end else begin |
// end else begin |
| 8888 |
SendMessage( Wnd, WM_MOUSEWHEEL, WheelDelta shl 16, (MousePos.X shl 16) or MousePos.Y ); |
// SendMessage( Wnd, WM_MOUSEWHEEL, WheelDelta shl 16, (MousePos.X shl 16) or MousePos.Y ); |
| 8889 |
end; |
// end; |
| 8890 |
end; |
} end; |
| 8891 |
end; |
end; |
| 8892 |
end; |
end; |
| 8893 |
|
|
| 9561 |
procedure TGikoForm.FavoriteTreeViewKeyDown(Sender: TObject; var Key: Word; |
procedure TGikoForm.FavoriteTreeViewKeyDown(Sender: TObject; var Key: Word; |
| 9562 |
Shift: TShiftState); |
Shift: TShiftState); |
| 9563 |
begin |
begin |
| 9564 |
|
if not TTreeView(Sender).IsEditing then begin |
| 9565 |
Case Key of |
Case Key of |
| 9566 |
VK_F2: |
VK_F2: |
| 9567 |
begin |
begin |
| 9568 |
FClickNode := FavoriteTreeView.Selected; |
FClickNode := FavoriteTreeView.Selected; |
| 9569 |
FavoriteTreeViewRenameActionExecute( Sender ); |
FavoriteTreeViewRenameActionExecute( Sender ); |
| 9570 |
end; |
end; |
| 9571 |
VK_DELETE: |
VK_DELETE: |
| 9572 |
begin |
begin |
| 9573 |
FClickNode := FavoriteTreeView.Selected; |
FClickNode := FavoriteTreeView.Selected; |
| 9574 |
FavoriteTreeViewDeleteActionExecute( Sender ); |
FavoriteTreeViewDeleteActionExecute( Sender ); |
| 9575 |
end; |
end; |
| 9576 |
VK_RETURN: |
VK_RETURN: |
| 9577 |
begin |
begin |
| 9578 |
FavoriteClick( FavoriteTreeView.Selected ); |
FavoriteClick( FavoriteTreeView.Selected ); |
| 9579 |
FavoriteTreeView.Selected.Expanded := not FavoriteTreeView.Selected.Expanded; |
FavoriteTreeView.Selected.Expanded := not FavoriteTreeView.Selected.Expanded; |
| 9580 |
|
end; |
| 9581 |
|
VK_SPACE: |
| 9582 |
|
FavoriteTreeViewDblClick( Sender ); |
| 9583 |
end; |
end; |
|
VK_SPACE: |
|
|
FavoriteTreeViewDblClick( Sender ); |
|
| 9584 |
end; |
end; |
| 9585 |
|
|
| 9586 |
end; |
end; |