| 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; |
| 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 |