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.236 by yoffy, Sun Apr 4 19:31:46 2004 UTC revision 1.237 by yoffy, Sun Apr 4 20:21:20 2004 UTC
# Line 797  type Line 797  type
797                  procedure FavoriteTreeViewNewFolderActionExecute(Sender: TObject);                  procedure FavoriteTreeViewNewFolderActionExecute(Sender: TObject);
798                  procedure ToolButton19Click(Sender: TObject);                  procedure ToolButton19Click(Sender: TObject);
799                  procedure FavoriteTreeViewBrowseFolderActionExecute(Sender: TObject);                  procedure FavoriteTreeViewBrowseFolderActionExecute(Sender: TObject);
                 procedure FavoriteTreeViewChange(Sender: TObject; Node: TTreeNode);  
800                  procedure FavoriteTreeViewDblClick(Sender: TObject);                  procedure FavoriteTreeViewDblClick(Sender: TObject);
801                  procedure FavoriteTreeViewLogDeleteActionExecute(Sender: TObject);                  procedure FavoriteTreeViewLogDeleteActionExecute(Sender: TObject);
802                  procedure FavoriteTreeViewReloadActionExecute(Sender: TObject);                  procedure FavoriteTreeViewReloadActionExecute(Sender: TObject);
# Line 8360  begin Line 8359  begin
8359                          FClickNode := FavoriteTreeView.Selected;                          FClickNode := FavoriteTreeView.Selected;
8360                          FavoriteTreeViewDeleteActionExecute( Sender );                          FavoriteTreeViewDeleteActionExecute( Sender );
8361                  end;                  end;
8362            VK_RETURN:
8363                    FavoriteClick( FavoriteTreeView.Selected );
8364            VK_SPACE:
8365                    FavoriteTreeViewDblClick( Sender );
8366          end;          end;
8367    
8368  end;  end;
# Line 8591  begin Line 8594  begin
8594    
8595  end;  end;
8596    
 procedure TGikoForm.FavoriteTreeViewChange(Sender: TObject;  
         Node: TTreeNode);  
 begin  
   
         if not Mouse.IsDragging then  
                 FavoriteClick( Node );  
   
 end;  
   
8597  procedure TGikoForm.FavoriteTreeViewDblClick(Sender: TObject);  procedure TGikoForm.FavoriteTreeViewDblClick(Sender: TObject);
8598  begin  begin
8599    

Legend:
Removed from v.1.236  
changed lines
  Added in v.1.237

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