Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/BoardGroup.pas

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

revision 1.65 by h677, Sat Dec 10 06:13:31 2005 UTC revision 1.66 by h677, Sat Dec 10 08:07:50 2005 UTC
# Line 1904  procedure TThreadItem.SetUnRead(b: Boole Line 1904  procedure TThreadItem.SetUnRead(b: Boole
1904  begin  begin
1905          if FUnRead = b then Exit;          if FUnRead = b then Exit;
1906          FUnRead := b;          FUnRead := b;
1907          if FUpdate and (ParentBoard <> nil) then          if FUpdate and (ParentBoard <> nil) then begin
1908                  ParentBoard.FModified := True;                  ParentBoard.FModified := True;
1909                    if FUnRead then begin
1910                            ParentBoard.UnRead := ParentBoard.UnRead + 1;
1911                    end else begin
1912                ParentBoard.UnRead := ParentBoard.UnRead - 1;
1913                    end;
1914            end;
1915  end;  end;
1916    
1917  procedure TThreadItem.SetScrollTop(i: Integer);  procedure TThreadItem.SetScrollTop(i: Integer);

Legend:
Removed from v.1.65  
changed lines
  Added in v.1.66

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