| 3296 |
var |
var |
| 3297 |
i: Integer; |
i: Integer; |
| 3298 |
begin |
begin |
| 3299 |
FActiveList := Obj; |
if FActiveList <> Obj then begin |
| 3300 |
|
FActiveList := Obj; |
| 3301 |
|
|
| 3302 |
if Obj is TBBS then begin |
ListView.Selected := nil; |
| 3303 |
for i := 0 to ListView.Columns.Count - 1 do |
ListView.Items.Count := 0; |
| 3304 |
ListView.Column[i].Width := GikoSys.Setting.BBSColumnWidth[i]; |
ListView.Items.Clear; |
| 3305 |
SetCategoryListItem(TBBS(Obj)); |
// ListView.Columns.Clear; |
| 3306 |
end else if Obj is TCategory then begin |
|
| 3307 |
for i := 0 to ListView.Columns.Count - 1 do |
Caption := CAPTION_NAME; |
| 3308 |
ListView.Column[i].Width := GikoSys.Setting.CategoryColumnWidth[i]; |
//Application.Title := CAPTION_NAME; |
| 3309 |
SetBoardListItem(TCategory(Obj)); |
|
| 3310 |
end else if Obj is TBoard then begin |
if Obj is TBBS then begin |
| 3311 |
SetThreadListItem(TBoard(Obj)); |
for i := 0 to ListView.Columns.Count - 1 do |
| 3312 |
|
ListView.Column[i].Width := GikoSys.Setting.BBSColumnWidth[i]; |
| 3313 |
|
SetCategoryListItem(TBBS(Obj)); |
| 3314 |
|
end else if Obj is TCategory then begin |
| 3315 |
|
for i := 0 to ListView.Columns.Count - 1 do |
| 3316 |
|
ListView.Column[i].Width := GikoSys.Setting.CategoryColumnWidth[i]; |
| 3317 |
|
SetBoardListItem(TCategory(Obj)); |
| 3318 |
|
end else if Obj is TBoard then begin |
| 3319 |
|
SetThreadListItem(TBoard(Obj)); |
| 3320 |
|
end; |
| 3321 |
end; |
end; |
| 3322 |
|
|
| 3323 |
if GikoSys.Setting.ListOrientation = gloHorizontal then begin |
if GikoSys.Setting.ListOrientation = gloHorizontal then begin |
| 9242 |
Exit; |
Exit; |
| 9243 |
end; |
end; |
| 9244 |
|
|
|
ListView.Selected := nil; |
|
|
ListView.Items.Count := 0; |
|
|
ListView.Items.Clear; |
|
|
// ListView.Columns.Clear; |
|
|
|
|
|
Caption := CAPTION_NAME; |
|
|
//Application.Title := CAPTION_NAME; |
|
|
|
|
|
|
|
| 9245 |
if GetActiveList is TBBS then begin |
if GetActiveList is TBBS then begin |
| 9246 |
for i := 0 to ListView.Columns.Count - 1 do |
for i := 0 to ListView.Columns.Count - 1 do |
| 9247 |
GikoSys.Setting.BBSColumnWidth[i] := ListView.Column[i].Width; |
GikoSys.Setting.BBSColumnWidth[i] := ListView.Column[i].Width; |