Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/BoardGroup.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 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 |
|
|
|