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.60 by yoffy, Fri Sep 26 06:25:36 2003 UTC revision 1.61 by yoffy, Fri Sep 26 09:06:44 2003 UTC
# Line 487  type Line 487  type
487      FavoriteToolBar: TToolBar;      FavoriteToolBar: TToolBar;
488      ToolButton17: TToolButton;      ToolButton17: TToolButton;
489      ToolButton19: TToolButton;      ToolButton19: TToolButton;
490        FavoriteTreeViewBrowseFolderAction: TAction;
491        FavoriteTreeBrowseFolderPopupMenu: TMenuItem;
492        N57: TMenuItem;
493                  procedure FormCreate(Sender: TObject);                  procedure FormCreate(Sender: TObject);
494                  procedure FormDestroy(Sender: TObject);                  procedure FormDestroy(Sender: TObject);
495                  procedure CabinetPanelHide(Sender: TObject);                  procedure CabinetPanelHide(Sender: TObject);
# Line 768  type Line 771  type
771      procedure FavoriteTreeViewRenameActionExecute(Sender: TObject);      procedure FavoriteTreeViewRenameActionExecute(Sender: TObject);
772      procedure FavoriteTreeViewNewFolderActionExecute(Sender: TObject);      procedure FavoriteTreeViewNewFolderActionExecute(Sender: TObject);
773      procedure ToolButton19Click(Sender: TObject);      procedure ToolButton19Click(Sender: TObject);
774        procedure FavoriteTreeViewBrowseFolderActionExecute(Sender: TObject);
775          private          private
776                  { Private 宣言 }                  { Private 宣言 }
777    
# Line 856  type Line 860  type
860                  procedure LinkBarChevronMenu;                  procedure LinkBarChevronMenu;
861                  procedure ToolBarChevronMenu(ToolBar: TToolBar);                  procedure ToolBarChevronMenu(ToolBar: TToolBar);
862                  procedure ModifySelectList;                  procedure ModifySelectList;
863        procedure FavoriteBrowseFolder( node: TTreeNode );
864          protected          protected
865                  procedure CreateParams(var Params: TCreateParams); override;                  procedure CreateParams(var Params: TCreateParams); override;
866                  procedure WndProc(var Message: TMessage); override;                  procedure WndProc(var Message: TMessage); override;
# Line 7408  begin Line 7413  begin
7413    
7414          FClickNode := FavoriteTreeView.Selected;          FClickNode := FavoriteTreeView.Selected;
7415          if FClickNode = nil then begin          if FClickNode = nil then begin
7416            FavoriteTreeBrowseFolderPopupMenu.Enabled := False;
7417          FavoriteTreeDeletePopupMenu.Enabled := False;          FavoriteTreeDeletePopupMenu.Enabled := False;
7418      FavoriteTreeRenamePopupMenu.Enabled := False;      FavoriteTreeRenamePopupMenu.Enabled := False;
7419      FavoriteTreeNewFolderPopupMenu.Enabled := False;      FavoriteTreeNewFolderPopupMenu.Enabled := False;
7420    end else if FClickNode.IsFirstNode then begin    end else if FClickNode.IsFirstNode then begin
7421            FavoriteTreeBrowseFolderPopupMenu.Enabled := True;
7422          FavoriteTreeDeletePopupMenu.Enabled := False;          FavoriteTreeDeletePopupMenu.Enabled := False;
7423      FavoriteTreeRenamePopupMenu.Enabled := False;      FavoriteTreeRenamePopupMenu.Enabled := False;
7424      FavoriteTreeNewFolderPopupMenu.Enabled := True;      FavoriteTreeNewFolderPopupMenu.Enabled := True;
7425    end else if FClickNode.Text = Favorite.FAVORITE_LINK_NAME then begin    end else if FClickNode.Text = Favorite.FAVORITE_LINK_NAME then begin
7426            FavoriteTreeBrowseFolderPopupMenu.Enabled := True;
7427          FavoriteTreeDeletePopupMenu.Enabled := True;          FavoriteTreeDeletePopupMenu.Enabled := True;
7428      FavoriteTreeRenamePopupMenu.Enabled := False;      FavoriteTreeRenamePopupMenu.Enabled := False;
7429      FavoriteTreeNewFolderPopupMenu.Enabled := True;      FavoriteTreeNewFolderPopupMenu.Enabled := True;
7430          end else if TObject(FClickNode.Data) is TFavoriteFolder then begin          end else if TObject(FClickNode.Data) is TFavoriteFolder then begin
7431            FavoriteTreeBrowseFolderPopupMenu.Enabled := True;
7432          FavoriteTreeDeletePopupMenu.Enabled := True;          FavoriteTreeDeletePopupMenu.Enabled := True;
7433      FavoriteTreeRenamePopupMenu.Enabled := True;      FavoriteTreeRenamePopupMenu.Enabled := True;
7434      FavoriteTreeNewFolderPopupMenu.Enabled := True;      FavoriteTreeNewFolderPopupMenu.Enabled := True;
7435          end else if TObject(FClickNode.Data) is TFavoriteThreadItem then begin          end else if TObject(FClickNode.Data) is TFavoriteThreadItem then begin
7436            FavoriteTreeBrowseFolderPopupMenu.Enabled := False;
7437          FavoriteTreeDeletePopupMenu.Enabled := True;          FavoriteTreeDeletePopupMenu.Enabled := True;
7438      FavoriteTreeRenamePopupMenu.Enabled := True;      FavoriteTreeRenamePopupMenu.Enabled := True;
7439      FavoriteTreeNewFolderPopupMenu.Enabled := True;      FavoriteTreeNewFolderPopupMenu.Enabled := True;
7440          end else begin          end else begin
7441            FavoriteTreeBrowseFolderPopupMenu.Enabled := False;
7442          FavoriteTreeDeletePopupMenu.Enabled := False;          FavoriteTreeDeletePopupMenu.Enabled := False;
7443      FavoriteTreeRenamePopupMenu.Enabled := False;      FavoriteTreeRenamePopupMenu.Enabled := False;
7444      FavoriteTreeNewFolderPopupMenu.Enabled := False;      FavoriteTreeNewFolderPopupMenu.Enabled := False;
# Line 7508  begin Line 7519  begin
7519        
7520  end;  end;
7521    
7522    procedure TGikoForm.FavoriteBrowseFolder( node: TTreeNode );
7523    var
7524            i: Integer;
7525    begin
7526    
7527            if not (TObject(node.Data) is TFavoriteFolder) then
7528            exit;
7529    
7530      for i := 0 to node.Count - 1 do
7531            begin
7532        if TObject(node.Item[i].Data) is TFavoriteFolder then
7533            FavoriteBrowseFolder( node.Item[i] )
7534        else if TObject(node.Item[i].Data) is TFavoriteThreadItem then
7535                    FavoriteClick( node.Item[i] );
7536      end;
7537    
7538    end;
7539    
7540    procedure TGikoForm.FavoriteTreeViewBrowseFolderActionExecute(
7541      Sender: TObject);
7542    begin
7543    
7544      FavoriteBrowseFolder( FClickNode );
7545    
7546    end;
7547    
7548  initialization  initialization
7549                                  OleInitialize(nil);                                  OleInitialize(nil);
7550  finalization  finalization

Legend:
Removed from v.1.60  
changed lines
  Added in v.1.61

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