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.511.2.8 by h677, Thu May 19 14:35:17 2005 UTC revision 1.511.2.9 by h677, Thu May 19 14:46:22 2005 UTC
# Line 3608  begin Line 3608  begin
3608                                  if GetActiveList = Item.Board then begin                                  if GetActiveList = Item.Board then begin
3609                                          FActiveList := nil;                                          FActiveList := nil;
3610                                          SetActiveList(Item.Board);                                          SetActiveList(Item.Board);
                                 end else begin  
                                         ListView.Refresh;  
3611                                  end;                                  end;
3612                                  Item.Board.Modified := True;                                  Item.Board.Modified := True;
3613                                  Item.Board.IsThreadDatRead := True;                                  Item.Board.IsThreadDatRead := True;
# Line 3672  begin Line 3670  begin
3670                                  TreeView.Refresh;                                  TreeView.Refresh;
3671                                  //ListViewでこのスレが含まれる板を表示しているときの更新処理                                  //ListViewでこのスレが含まれる板を表示しているときの更新処理
3672                                  if (ActiveList <> nil) and (ActiveList is TBoard) then begin                                  if (ActiveList <> nil) and (ActiveList is TBoard) then begin
3673                                          if( ActiveList = Item.ThreadItem.ParentBoard ) then begin                                          TBoard(ActiveList).LogThreadCount := TBoard(ActiveList).GetLogThreadCount;
3674                                                  SetActiveList(ActiveList);                                          TBoard(ActiveList).NewThreadCount := TBoard(ActiveList).GetNewThreadCount;
3675                                            TBoard(ActiveList).UserThreadCount:= TBoard(ActiveList).GetUserThreadCount;
3676                        //ListViewのアイテムの個数も更新
3677                                            case GikoForm.ViewType of
3678                                                    gvtAll: ListView.Items.Count := TBoard(ActiveList).Count;
3679                                                    gvtLog: ListView.Items.Count := TBoard(ActiveList).LogThreadCount;
3680                                                    gvtNew: ListView.Items.Count := TBoard(ActiveList).NewThreadCount;
3681                                                    gvtUser: ListView.Items.Count := TBoard(ActiveList).UserThreadCount;
3682                                          end;                                          end;
                                 end else begin  
                         ListView.Refresh;  
3683                                  end;                                  end;
3684                          end;                          end;
3685  //                      ListView.Refresh;                          ListView.Refresh;
3686                  end else if Item.State = gdsNotModify then begin                  end else if Item.State = gdsNotModify then begin
3687                          //変更ナシ                          //変更ナシ
3688  {                       if (Item.DownType = gdtThread) and (AddHistory(Item.ThreadItem)) then begin  {                       if (Item.DownType = gdtThread) and (AddHistory(Item.ThreadItem)) then begin
# Line 3691  begin Line 3694  begin
3694                          Screen.Cursor := crDefault;                          Screen.Cursor := crDefault;
3695                  end else if Item.State = gdsAbort then begin                  end else if Item.State = gdsAbort then begin
3696                          //中断                          //中断
3697                          AddMessageList(ATitle + ' ' + GikoSys.Setting.GetMessage(Ord(gmAbort)), nil, gmiOK);                                                  AddMessageList(ATitle + ' ' + GikoSys.Setting.GetMessage(Ord(gmAbort)), nil, gmiOK);
3698                  end else if Item.State = gdsError then begin                  end else if Item.State = gdsError then begin
3699                          //エラー                          //エラー
3700                          s := Item.ErrText;                          s := Item.ErrText;

Legend:
Removed from v.1.511.2.8  
changed lines
  Added in v.1.511.2.9

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