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.255 by yoffy, Wed Apr 7 12:47:35 2004 UTC revision 1.256 by yoffy, Wed Apr 7 13:02:09 2004 UTC
# Line 4487  end; Line 4487  end;
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

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