From 6c76c15e222989c1b95e32a53eaf573c48804ad7 Mon Sep 17 00:00:00 2001 From: yoffy Date: Wed, 19 Nov 2003 19:09:30 +0000 Subject: [PATCH] =?utf8?q?=E3=83=BB=E3=81=8A=E6=B0=97=E3=81=AB=E5=85=A5?= =?utf8?q?=E3=82=8A=E3=81=AE=E3=83=89=E3=83=AD=E3=83=83=E3=83=97=E6=99=82?= =?utf8?q?=E3=81=AB=E7=A9=BA=E7=99=BD=E3=81=AE=E3=82=B4=E3=83=9F=E3=81=8C?= =?utf8?q?=E6=AE=8B=E3=81=A3=E3=81=A6=E3=81=84=E3=82=8B=E3=81=93=E3=81=A8?= =?utf8?q?=E3=81=8C=E3=81=82=E3=82=8B=E3=81=AE=E3=82=92=E4=BF=AE=E6=AD=A3?= =?utf8?q?=E3=80=82=20=E3=83=BB=E3=81=8A=E6=B0=97=E3=81=AB=E5=85=A5?= =?utf8?q?=E3=82=8A=E4=BB=A5=E5=A4=96=E3=81=AE=E5=A0=B4=E6=89=80=E3=81=8B?= =?utf8?q?=E3=82=89=E3=81=AE=E3=81=8A=E6=B0=97=E3=81=AB=E5=85=A5=E3=82=8A?= =?utf8?q?=E3=81=B8=E3=81=AE=E3=83=89=E3=83=AD=E3=83=83=E3=83=97=E6=99=82?= =?utf8?q?=E3=81=AB=E3=80=81=E3=81=A9=E3=81=93=E3=81=AB=E3=83=89=E3=83=AD?= =?utf8?q?=E3=83=83=E3=83=97=E3=81=97=E3=81=A6=E3=82=82=E3=83=95=E3=82=A9?= =?utf8?q?=E3=83=AB=E3=83=80=E3=81=AE=E6=9C=AB=E5=B0=BE=E3=81=AB=E8=BF=BD?= =?utf8?q?=E5=8A=A0=E3=81=95=E3=82=8C=E3=81=A6=E3=81=84=E3=81=9F=E3=81=8C?= =?utf8?q?=E3=80=81=E3=83=89=E3=83=AD=E3=83=83=E3=83=97=E3=81=97=E3=81=A6?= =?utf8?q?=E3=81=84=E3=82=8B=E4=BD=8D=E7=BD=AE=E3=81=B8=E8=BF=BD=E5=8A=A0?= =?utf8?q?=E3=81=95=E3=82=8C=E3=82=8B=E3=82=88=E3=81=86=E3=81=AB=E3=81=AA?= =?utf8?q?=E3=81=A3=E3=81=9F=E3=80=82?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- Giko.pas | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/Giko.pas b/Giko.pas index b67dc3f..15c5728 100644 --- 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; -- 2.11.0