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.517 by h677, Mon Jul 18 03:55:14 2005 UTC revision 1.518 by h677, Sat Jul 23 11:49:35 2005 UTC
# Line 4754  begin Line 4754  begin
4754          if TObject(ListView.Selected.Data) is TCategory then begin          if TObject(ListView.Selected.Data) is TCategory then begin
4755                  SelectTreeNode(ListView.Selected.Data, True);                  SelectTreeNode(ListView.Selected.Data, True);
4756          end else if TObject(ListView.Selected.Data) is TBoard then begin          end else if TObject(ListView.Selected.Data) is TBoard then begin
4757                  if TBoard(ListView.Selected.Data).Multiplicity = 0 then                  SelectTreeNode(ListView.Selected.Data, True)
                         SelectTreeNode(ListView.Selected.Data, True)  
                 else begin  
                         cNode := TreeView.Selected;  
                         if TObject(cNode.Data) is TCategory then begin  
                                 bNode := cNode.getFirstChild;  
                                 while bNode <> nil do begin  
                                         if TObject(bNode.Data) is TBoard then begin  
                                                 if TBoard(bNode.Data) = TBoard(ListView.Selected.Data) then begin  
                                                         bNode.Selected := true;  
                                                         TreeClick(bNode);  
                                                         break;  
                                                 end;  
                                         end;  
                                         bNode := bNode.getNextSibling;  
                                 end;  
                         end;  
                 end;  
4758          end else if TObject(ListView.Selected.Data) is TThreadItem then begin          end else if TObject(ListView.Selected.Data) is TThreadItem then begin
4759                  Application.ProcessMessages;                  Application.ProcessMessages;
4760                  ThreadItem := TThreadItem(ListView.Selected.Data);                  ThreadItem := TThreadItem(ListView.Selected.Data);

Legend:
Removed from v.1.517  
changed lines
  Added in v.1.518

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