Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Giko.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.285 by h677, Tue Apr 13 15:09:40 2004 UTC revision 1.286 by yoffy, Tue Apr 13 16:50:15 2004 UTC
# Line 3336  end; Line 3336  end;
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;
# Line 3360  begin Line 3365  begin
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

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26