| 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); |