Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/Giko.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 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 |
|
|
| 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 |
|
|
|