Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/Giko.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 3336 |
|
|
| 3337 |
procedure TGikoForm.SetActiveList(Obj: TObject); |
procedure TGikoForm.SetActiveList(Obj: TObject); |
| 3338 |
var |
var |
| 3339 |
i : Integer; |
i : Integer; |
| 3340 |
|
idx : Integer; |
| 3341 |
begin |
begin |
| 3342 |
if FActiveList <> Obj then begin |
// if FActiveList <> Obj then begin |
| 3343 |
FActiveList := Obj; |
FActiveList := Obj; |
| 3344 |
|
|
| 3345 |
|
if ListView.Selected <> nil then |
| 3346 |
|
idx := ListView.Selected.Index |
| 3347 |
|
else |
| 3348 |
|
idx := -1; |
| 3349 |
ListView.Items.Count := 0; |
ListView.Items.Count := 0; |
| 3350 |
ListView.Items.Clear; |
ListView.Items.Clear; |
| 3351 |
ListView.Selected := nil; |
ListView.Selected := nil; |
| 3365 |
end else if Obj is TBoard then begin |
end else if Obj is TBoard then begin |
| 3366 |
SetThreadListItem(TBoard(Obj)); |
SetThreadListItem(TBoard(Obj)); |
| 3367 |
end; |
end; |
| 3368 |
end; |
|
| 3369 |
|
if idx >= 0 then begin |
| 3370 |
|
ListView.ItemIndex := idx; |
| 3371 |
|
ListView.ItemFocused := ListView.Items.Item[ idx ]; |
| 3372 |
|
end; |
| 3373 |
|
// end; |
| 3374 |
|
|
| 3375 |
if Obj is TBoard then begin |
if Obj is TBoard then begin |
| 3376 |
if GikoSys.Setting.ListOrientation = gloHorizontal then begin |
if GikoSys.Setting.ListOrientation = gloHorizontal then begin |
|
|
Legend:
| Removed from v.1.285 |
|
| changed lines |
| |
Added in v.1.286 |
|
|
|