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.244 by yoffy, Mon Apr 5 13:42:22 2004 UTC revision 1.245 by yoffy, Mon Apr 5 14:21:02 2004 UTC
# Line 3296  procedure TGikoForm.SetActiveList(Obj: T Line 3296  procedure TGikoForm.SetActiveList(Obj: T
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
# Line 9232  begin Line 9242  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;

Legend:
Removed from v.1.244  
changed lines
  Added in v.1.245

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