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.94 by h677, Tue Oct 7 08:08:26 2003 UTC revision 1.95 by h677, Tue Oct 7 14:06:16 2003 UTC
# Line 2583  begin Line 2583  begin
2583    
2584          TreeView.Canvas.Font.Color := clBlue;          TreeView.Canvas.Font.Color := clBlue;
2585          IsBoardNode := False;          IsBoardNode := False;
                 Cnt := 0;  
         for i := 0 to TreeView.Items.Count - 1 do begin  
2586    
2587            for i := 0 to TreeView.Items.Count - 1 do begin
2588                    Cnt := 0;
2589                  if not TreeView.Items[i].IsVisible then                  if not TreeView.Items[i].IsVisible then
2590                          continue;                          continue;
2591    
# Line 2628  begin Line 2628  begin
2628    
2629                  if IsBoardNode then                  if IsBoardNode then
2630                          CntText := '(' + IntToStr(Cnt) + ')'                          CntText := '(' + IntToStr(Cnt) + ')'
2631                  else                  else if Cnt = 1 then
2632                          CntText := '(+)';                          CntText := '(+)';
2633    
2634    
2635                  TextWidth := TreeView.Canvas.TextWidth(CntText);                  TextWidth := TreeView.Canvas.TextWidth(CntText);
2636    
2637                  TextRect := Rect(NodeRect.Left + NodeWidth + 8,                  TextRect := Rect(NodeRect.Left + NodeWidth + 8,

Legend:
Removed from v.1.94  
changed lines
  Added in v.1.95

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