・お気に入りのドロップ時に空白のゴミが残っていることがあるのを修正。

・お気に入り以外の場所からのお気に入りへのドロップ時に、どこにドロップしてもフォルダの末尾に追加されていたが、ドロップしている位置へ追加されるようになった。

diff --git a/Giko.pas b/Giko.pas
index b67dc3f..15c5728 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -7749,6 +7749,9 @@ begin
                Node.SelectedIndex := 16;
        end;
 
+       if not (TObject(SenderNode.Data) is TFavoriteFolder) then
+               FavoriteMoveTo( SenderNode, Node );
+
 end;
 
 procedure TGikoForm.FavoriteDragDrop( SenderNode: TTreeNode; Source: TObject );
@@ -7807,6 +7810,11 @@ begin
                FavoriteDragDrop( SenderNode, Source );
        end;
 
+       if FDropSpaceNode <> nil then begin
+               FDropSpaceNode.Free;
+               FDropSpaceNode := nil;
+       end;
+
 end;
 
 procedure TGikoForm.FavoriteTreeViewEdited(Sender: TObject;