Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Giko.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.430 by h677, Mon Sep 13 17:18:37 2004 UTC revision 1.431 by h677, Tue Sep 14 14:11:31 2004 UTC
# Line 8858  begin Line 8858  begin
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    
# Line 9548  end; Line 9561  end;
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;

Legend:
Removed from v.1.430  
changed lines
  Added in v.1.431

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26