06/11/19 23:19:02 3TXGbxAs
procedure TMainWnd.FavTreeScrlTimerTimer(Sender: TObject);
//var
// nextTarget: TTreeNode;
begin
（ｒｙ
if (FavoriteView.DropTarget <> nil) and (0 < FavoriteView.DropTarget.AbsoluteIndex) and
(FavoriteView.DropTarget.AbsoluteIndex < FavoriteView.Items.Count - 1) then
begin
Case FavTreeScrlTimer.Tag of
0: FavoriteView.DropTarget := FavoriteView.DropTarget.GetPrevVisible;
1: FavoriteView.DropTarget := FavoriteView.DropTarget.GetNextVisible;
// else nextTarget := nil;
end;
//if nextTarget <> nil then
// FavoriteView.DropTarget := nextTarget;
end else
あと新しいViewでもそうだけど、お気に入りの一番下の項目を上にﾄﾞﾗｯｺﾞしてﾄﾞﾛｯﾍﾟすると
ｽｸﾛｰﾙしちゃうのねん