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.586 by h677, Mon Jan 23 16:03:12 2006 UTC revision 1.587 by h677, Tue Jan 24 15:50:13 2006 UTC
# Line 6740  begin Line 6740  begin
6740                                  (FavoriteTreeView.Selected = FavoriteTreeView.GetNodeAt(X, Y)) then begin                                  (FavoriteTreeView.Selected = FavoriteTreeView.GetNodeAt(X, Y)) then begin
6741                                  //マウスがnodeの上にいるか                                  //マウスがnodeの上にいるか
6742                                  rect := FavoriteTreeView.Selected.DisplayRect(true);                                  rect := FavoriteTreeView.Selected.DisplayRect(true);
6743                                  if ((rect.Left <= X) and (rect.Right >= X)) and                                  // アイコン分左にずらす
6744                                    if ((rect.Left - FavoriteTreeView.Indent <= X) and (rect.Right >= X)) and
6745                                          ((rect.Bottom >= Y) and (rect.Top <= Y)) then begin                                          ((rect.Bottom >= Y) and (rect.Top <= Y)) then begin
6746                                          if ssDouble in Shift then begin                                          if ssDouble in Shift then begin
6747                                                  FClickNode := FavoriteTreeView.Selected;                                                  FClickNode := FavoriteTreeView.Selected;
# Line 7753  begin Line 7754  begin
7754                                  (TreeView.Selected = TreeView.GetNodeAt(X, Y)) then begin                                  (TreeView.Selected = TreeView.GetNodeAt(X, Y)) then begin
7755                                  //マウスがnodeの上にいるか                                  //マウスがnodeの上にいるか
7756                                  rect := TreeView.Selected.DisplayRect(true);                                  rect := TreeView.Selected.DisplayRect(true);
7757                                  if ((rect.Left <= X) and (rect.Right >= X)) and                                  // アイコン分だけ左にずらす
7758                                    if ((rect.Left - TreeView.Indent <= X) and (rect.Right >= X)) and
7759                                          ((rect.Bottom >= Y) and (rect.Top <= Y)) then begin                                          ((rect.Bottom >= Y) and (rect.Top <= Y)) then begin
7760                                          // クリックとダブルクリックをココで判定                                          // クリックとダブルクリックをココで判定
7761                                          if ssDouble in Shift then begin                                          if ssDouble in Shift then begin

Legend:
Removed from v.1.586  
changed lines
  Added in v.1.587

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