Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/Giko.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 4487 |
procedure TGikoForm.UpFolderActionExecute(Sender: TObject); |
procedure TGikoForm.UpFolderActionExecute(Sender: TObject); |
| 4488 |
begin |
begin |
| 4489 |
if GetActiveList is TBoard then begin |
if GetActiveList is TBoard then begin |
| 4490 |
if FTreeType = gtt2ch then |
// if FTreeType = gtt2ch then |
| 4491 |
SelectTreeNode(TBoard(GetActiveList).ParentCategory, True); |
SelectTreeNode(TBoard(GetActiveList).ParentCategory, True); |
| 4492 |
//SetActiveList(TBoard(GetActiveList).ParentCategory); |
//SetActiveList(TBoard(GetActiveList).ParentCategory); |
| 4493 |
end else if GetActiveList is TCategory then begin |
end else if GetActiveList is TCategory then begin |
| 4494 |
if FTreeType = gtt2ch then |
// if FTreeType = gtt2ch then |
| 4495 |
SelectTreeNode(TCategory(GetActiveList).ParenTBBS, True); |
SelectTreeNode(TCategory(GetActiveList).ParenTBBS, True); |
| 4496 |
//SetActiveList(TCategory(GetActiveList).ParenTBBS); |
//SetActiveList(TCategory(GetActiveList).ParenTBBS); |
| 4497 |
end; |
end; |
|
|
Legend:
| Removed from v.1.255 |
|
| changed lines |
| |
Added in v.1.256 |
|
|
|