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.447 by h677, Thu Sep 30 12:08:54 2004 UTC revision 1.448 by h677, Fri Oct 1 12:21:39 2004 UTC
# Line 3859  begin Line 3859  begin
3859    
3860    
3861          try          try
3862                    {
3863                  if ThreadItem.UnRead then begin                  if ThreadItem.UnRead then begin
3864                          ThreadItem.ParentBoard.UnRead := ThreadItem.ParentBoard.UnRead - 1;                          ThreadItem.ParentBoard.UnRead := ThreadItem.ParentBoard.UnRead - 1;
3865                          if ThreadItem.ParentBoard.UnRead < 0 then ThreadItem.ParentBoard.UnRead := 0;                          if ThreadItem.ParentBoard.UnRead < 0 then ThreadItem.ParentBoard.UnRead := 0;
3866                          TreeView.Refresh;                          TreeView.Refresh;
3867                  end;                  end;
3868            }
3869                  if(FActiveContent <> nil) and (FActiveContent <> Thread) then begin                  if(FActiveContent <> nil) and (FActiveContent <> Thread) then begin
3870                          if (FActiveContent.Browser <> BrowserNullTab.Browser) then                          if (FActiveContent.Browser <> BrowserNullTab.Browser) then
3871                                  ShowWindow(FActiveContent.Browser.Handle, SW_HIDE);                                  ShowWindow(FActiveContent.Browser.Handle, SW_HIDE);
# Line 4006  end; Line 4008  end;
4008  procedure TGikoForm.SetListViewType(AViewType: TGikoViewType; SelectText: string; KubetsuChk: Boolean);  procedure TGikoForm.SetListViewType(AViewType: TGikoViewType; SelectText: string; KubetsuChk: Boolean);
4009  var  var
4010          Board: TBoard;          Board: TBoard;
4011            i: Integer;
4012  begin  begin
4013          if ActiveList is TBoard then begin          if ActiveList is TBoard then begin
4014                    for i := Length( BBSs ) - 1 downto 0 do begin
4015                            BBSs[i].SelectText := SelectText;
4016                            BBSs[i].KubetsuChk := KubetsuChk;
4017                    end;
4018                  Board := TBoard(ActiveList);                  Board := TBoard(ActiveList);
4019    //              Board.ParentCategory.ParenTBBS.SelectText := SelectText;
4020                  Board.ParentCategory.ParenTBBS.SelectText := SelectText;  //              Board.ParentCategory.ParenTBBS.KubetsuChk := KubetsuChk;
                 Board.ParentCategory.ParenTBBS.KubetsuChk := KubetsuChk;  
4021  //              Board.SelectText := SelectText;  //              Board.SelectText := SelectText;
4022  //              Board.KubetsuChk := KubetsuChk;  //              Board.KubetsuChk := KubetsuChk;
4023                  ViewType := AViewType;                  ViewType := AViewType;
# Line 6689  begin Line 6695  begin
6695                          threadItem := BrowserRecord.Thread;                          threadItem := BrowserRecord.Thread;
6696    
6697                          if (BrowserRecord <> nil) and (Length( BrowserRecord.Movement ) > 0) then begin                          if (BrowserRecord <> nil) and (Length( BrowserRecord.Movement ) > 0) then begin
6698                  threadItem.UnRead := False;                                  if threadItem.UnRead then begin
6699                                            threadItem.UnRead := False;
6700                                            threadItem.ParentBoard.UnRead := ThreadItem.ParentBoard.UnRead - 1;
6701                                            if threadItem.ParentBoard.UnRead < 0 then threadItem.ParentBoard.UnRead := 0;
6702                                            TreeView.Refresh;
6703                                            ListView.Refresh;
6704                                    end;
6705                                  BrowserMovement( BrowserRecord.Movement, BrowserRecord );                                  BrowserMovement( BrowserRecord.Movement, BrowserRecord );
6706                                  BrowserRecord.Movement := '';                                  BrowserRecord.Movement := '';
6707                          end else if threadItem.UnRead then begin                          end else if threadItem.UnRead then begin
6708                                  threadItem.UnRead := False;                                  threadItem.UnRead := False;
6709                                    threadItem.ParentBoard.UnRead := ThreadItem.ParentBoard.UnRead - 1;
6710                                    if threadItem.ParentBoard.UnRead < 0 then threadItem.ParentBoard.UnRead := 0;
6711                                    TreeView.Refresh;
6712                                  BrowserMovement( 'new', BrowserRecord );                                  BrowserMovement( 'new', BrowserRecord );
6713                                  ListView.Refresh;                                  ListView.Refresh;
6714                          end else if threadItem.ScrollTop <> 0 then begin                          end else if threadItem.ScrollTop <> 0 then begin
# Line 11149  begin Line 11164  begin
11164                  SelectListItem(List);                  SelectListItem(List);
11165                  for i := 0 to List.Count - 1 do begin                  for i := 0 to List.Count - 1 do begin
11166                          if TObject(List[i]) is TThreadItem then begin                          if TObject(List[i]) is TThreadItem then begin
11167                                  TThreadItem(List[i]).UnRead := false;                                  if (TThreadItem(List[i]).UnRead) then begin
11168                                  TThreadItem(List[i]).ParentBoard.UnRead := TThreadItem(List[i]).ParentBoard.UnRead - 1;                                          TThreadItem(List[i]).UnRead := false;
11169                                            TThreadItem(List[i]).ParentBoard.UnRead := TThreadItem(List[i]).ParentBoard.UnRead - 1;
11170                                    end;
11171                          end;                          end;
11172                  end;                  end;
11173                  if TreeView.Visible then                  if TreeView.Visible then
# Line 11170  begin Line 11187  begin
11187                  SelectListItem(List);                  SelectListItem(List);
11188                  for i := 0 to List.Count - 1 do begin                  for i := 0 to List.Count - 1 do begin
11189                          if TObject(List[i]) is TThreadItem then begin                          if TObject(List[i]) is TThreadItem then begin
11190                                  TThreadItem(List[i]).UnRead := true;                                  if (TThreadItem(List[i]).IsLogFile) and (not TThreadItem(List[i]).UnRead) then begin
11191                                  TThreadItem(List[i]).ParentBoard.UnRead := TThreadItem(List[i]).ParentBoard.UnRead + 1;                                          TThreadItem(List[i]).UnRead := true;
11192                                            TThreadItem(List[i]).ParentBoard.UnRead := TThreadItem(List[i]).ParentBoard.UnRead + 1;
11193                                    end;
11194                          end;                          end;
11195                  end;                  end;
11196                  if TreeView.Visible then                  if TreeView.Visible then

Legend:
Removed from v.1.447  
changed lines
  Added in v.1.448

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