Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Giko.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.112 by yoffy, Wed Nov 19 08:48:10 2003 UTC revision 1.113 by yoffy, Wed Nov 19 19:09:30 2003 UTC
# Line 7749  begin Line 7749  begin
7749                  Node.SelectedIndex := 16;                  Node.SelectedIndex := 16;
7750          end;          end;
7751    
7752            if not (TObject(SenderNode.Data) is TFavoriteFolder) then
7753                    FavoriteMoveTo( SenderNode, Node );
7754    
7755  end;  end;
7756    
7757  procedure TGikoForm.FavoriteDragDrop( SenderNode: TTreeNode; Source: TObject );  procedure TGikoForm.FavoriteDragDrop( SenderNode: TTreeNode; Source: TObject );
# Line 7807  begin Line 7810  begin
7810                  FavoriteDragDrop( SenderNode, Source );                  FavoriteDragDrop( SenderNode, Source );
7811          end;          end;
7812    
7813            if FDropSpaceNode <> nil then begin
7814                    FDropSpaceNode.Free;
7815                    FDropSpaceNode := nil;
7816            end;
7817    
7818  end;  end;
7819    
7820  procedure TGikoForm.FavoriteTreeViewEdited(Sender: TObject;  procedure TGikoForm.FavoriteTreeViewEdited(Sender: TObject;

Legend:
Removed from v.1.112  
changed lines
  Added in v.1.113

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26