Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/Giko.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 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); |
| 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 |
//! お気に入りツリーのアイテムの展開時イベント |
//! お気に入りツリーのアイテムの展開時イベント |
| 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 |
|
|
|