| 9784 |
end; |
end; |
| 9785 |
|
|
| 9786 |
procedure TGikoForm.FavoriteTreeViewDblClick(Sender: TObject); |
procedure TGikoForm.FavoriteTreeViewDblClick(Sender: TObject); |
| 9787 |
begin |
var |
| 9788 |
|
mousePoint : TPoint; |
| 9789 |
FClickNode := FavoriteTreeView.Selected; |
item : TTreeNode; |
| 9790 |
FavoriteTreeViewReloadActionExecute( Sender ); |
rect : TRect; |
| 9791 |
|
begin |
| 9792 |
|
mousePoint := Mouse.CursorPos; |
| 9793 |
|
mousePoint := FavoriteTreeView.ScreenToClient(mousePoint); |
| 9794 |
|
item := FavoriteTreeView.GetNodeAt(mousePoint.X, mousePoint.Y); |
| 9795 |
|
//選択したアイテムと同じかチェック |
| 9796 |
|
if item = FavoriteTreeView.Selected then begin |
| 9797 |
|
//表示している範囲と同じところかチェック |
| 9798 |
|
rect := item.DisplayRect(true); |
| 9799 |
|
//イメージ分左に伸ばす |
| 9800 |
|
rect.Left := rect.Left - FavoriteTreeView.Images.Width; |
| 9801 |
|
if ((mousePoint.X >= rect.Left) and (mousePoint.X <= rect.Right)) and |
| 9802 |
|
((mousePoint.Y >= rect.Top) and (mousePoint.Y <= rect.Bottom)) then begin |
| 9803 |
|
FClickNode := FavoriteTreeView.Selected; |
| 9804 |
|
FavoriteTreeViewReloadActionExecute( Sender ); |
| 9805 |
|
end; |
| 9806 |
|
end; |
| 9807 |
end; |
end; |
| 9808 |
|
|
| 9809 |
procedure TGikoForm.FavoriteTreeViewLogDeleteActionExecute( |
procedure TGikoForm.FavoriteTreeViewLogDeleteActionExecute( |
| 10617 |
|
|
| 10618 |
procedure TGikoForm.FavoriteTreeViewMouseUp(Sender: TObject; |
procedure TGikoForm.FavoriteTreeViewMouseUp(Sender: TObject; |
| 10619 |
Button: TMouseButton; Shift: TShiftState; X, Y: Integer); |
Button: TMouseButton; Shift: TShiftState; X, Y: Integer); |
| 10620 |
|
var |
| 10621 |
|
item : TTreeNode; |
| 10622 |
|
rect : TRect; |
| 10623 |
begin |
begin |
|
|
|
| 10624 |
if (abs( X - FMouseDownPos.X ) < Mouse.DragThreshold) and |
if (abs( X - FMouseDownPos.X ) < Mouse.DragThreshold) and |
| 10625 |
(abs( Y - FMouseDownPos.Y ) < Mouse.DragThreshold) then begin |
(abs( Y - FMouseDownPos.Y ) < Mouse.DragThreshold) then begin |
| 10626 |
FavoriteClick( TObject( FavoriteTreeView.Selected ) ); |
item := FavoriteTreeView.GetNodeAt(X, Y); |
| 10627 |
|
if item = FavoriteTreeView.Selected then begin |
| 10628 |
|
//イメージ範囲を取得 |
| 10629 |
|
rect := FavoriteTreeView.Selected.DisplayRect(true); |
| 10630 |
|
//アイコン分左に伸ばす |
| 10631 |
|
rect.Left := rect.Left - FavoriteTreeView.Images.Width; |
| 10632 |
|
if ((X >= rect.Left) and (X <= rect.Right)) and |
| 10633 |
|
((Y >= rect.Top) and (Y <= rect.Bottom)) then begin |
| 10634 |
|
FavoriteClick( TObject( FavoriteTreeView.Selected ) ); |
| 10635 |
|
end; |
| 10636 |
|
end; |
| 10637 |
end; |
end; |
|
|
|
| 10638 |
end; |
end; |
| 10639 |
|
|
| 10640 |
destructor TBrowserRecord.Destroy; |
destructor TBrowserRecord.Destroy; |