| 2151 |
if Item.Index > BBS.Count then Exit; |
if Item.Index > BBS.Count then Exit; |
| 2152 |
if ListView.Items.Count = 0 then Exit; |
if ListView.Items.Count = 0 then Exit; |
| 2153 |
|
|
| 2154 |
if not (BBS.Items[Item.index] is TCategory) then Exit; |
if not (BBS.Items[Item.index] is TCategory) then Exit; |
| 2155 |
Category := TCategory(BBS.Items[Item.index]); |
Category := TCategory(BBS.Items[Item.index]); |
| 2156 |
|
|
| 2157 |
if Category = nil then Exit; |
if Category = nil then Exit; |
| 2158 |
|
|
| 2297 |
Item.SubItems[4] := ''; |
Item.SubItems[4] := ''; |
| 2298 |
Item.SubItems[5] := ''; |
Item.SubItems[5] := ''; |
| 2299 |
end; |
end; |
| 2300 |
|
|
| 2301 |
Item.Data := ThreadItem; |
Item.Data := ThreadItem; |
| 2302 |
end; |
end; |
| 2303 |
end; |
end; |
| 2307 |
StartIndex: Integer; Direction: TSearchDirection; Wrap: Boolean; |
StartIndex: Integer; Direction: TSearchDirection; Wrap: Boolean; |
| 2308 |
var Index: Integer); |
var Index: Integer); |
| 2309 |
begin |
begin |
| 2310 |
|
|
| 2311 |
// |
// |
| 2312 |
end; |
end; |
| 2313 |
|
|
| 3728 |
TreeView.OnChange := nil; |
TreeView.OnChange := nil; |
| 3729 |
TreeView.OnChanging := nil; |
TreeView.OnChanging := nil; |
| 3730 |
end; |
end; |
| 3731 |
Application.ProcessMessages; |
//Application.ProcessMessages; |
| 3732 |
for i := 0 to TreeView.Items.Count - 1 do begin |
for i := 0 to TreeView.Items.Count - 1 do begin |
| 3733 |
if TreeView.Items[i].Data = Item then begin |
if TreeView.Items[i].Data = Item then begin |
| 3734 |
TreeView.Items[i].Selected := True; |
TreeView.Items[i].Selected := True; |
| 3737 |
Break; |
Break; |
| 3738 |
end; |
end; |
| 3739 |
end; |
end; |
| 3740 |
Application.ProcessMessages; |
//Application.ProcessMessages; |
| 3741 |
finally |
finally |
| 3742 |
if not CallEvent then begin |
if not CallEvent then begin |
| 3743 |
TreeView.OnChange := ChangeEvent; |
TreeView.OnChange := ChangeEvent; |
| 3757 |
end; |
end; |
| 3758 |
|
|
| 3759 |
if (Item is TBBS) or (Item is TCategory) then begin |
if (Item is TBBS) or (Item is TCategory) then begin |
| 3760 |
|
ListView.Columns.Clear; |
| 3761 |
SetActiveList( Item ); |
SetActiveList( Item ); |
| 3762 |
end else if Item is TBoard then begin |
end else if Item is TBoard then begin |
| 3763 |
if not TBoard( Item ).IsThreadDatRead then begin |
if not TBoard( Item ).IsThreadDatRead then begin |