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.567 by h677, Thu Dec 15 16:12:55 2005 UTC revision 1.568 by h677, Fri Dec 16 16:40:37 2005 UTC
# Line 3508  begin Line 3508  begin
3508          end else if TObject(Node.Data) is TBoard then begin          end else if TObject(Node.Data) is TBoard then begin
3509                  TBoard(Node.Data).NodeExpand := False;                  TBoard(Node.Data).NodeExpand := False;
3510          end;          end;
3511            if (TreeView.Selected <> nil) and (TreeView.Selected = Node) then begin
3512            TreeClick(TreeView.Selected);
3513            end;
3514  end;  end;
3515    
3516  procedure TGikoForm.MessageListViewResize(Sender: TObject);  procedure TGikoForm.MessageListViewResize(Sender: TObject);
# Line 7679  procedure TGikoForm.FavoriteTreeViewColl Line 7682  procedure TGikoForm.FavoriteTreeViewColl
7682    Node: TTreeNode; var AllowCollapse: Boolean);    Node: TTreeNode; var AllowCollapse: Boolean);
7683  begin  begin
7684          //縮小されたら保存されているクリック時選択アイテムをクリア          //縮小されたら保存されているクリック時選択アイテムをクリア
7685          FClickNode := nil;          FClickNode := Node;
7686  end;  end;
7687  // *************************************************************************  // *************************************************************************
7688  //! お気に入りツリーのアイテムの展開時イベント  //! お気に入りツリーのアイテムの展開時イベント
# Line 7688  procedure TGikoForm.FavoriteTreeViewExpa Line 7691  procedure TGikoForm.FavoriteTreeViewExpa
7691    Node: TTreeNode; var AllowExpansion: Boolean);    Node: TTreeNode; var AllowExpansion: Boolean);
7692  begin  begin
7693          //展開されたら保存されているクリック時選択アイテムをクリア          //展開されたら保存されているクリック時選択アイテムをクリア
7694          FClickNode := nil;          FClickNode := Node;
7695  end;  end;
7696  // *************************************************************************  // *************************************************************************
7697  //! ツリービューのアイテムの縮小時イベント  //! ツリービューのアイテムの縮小時イベント

Legend:
Removed from v.1.567  
changed lines
  Added in v.1.568

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