Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/Giko.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 4165 |
if (BrowserRecord <> nil) and (Length( BrowserRecord.Movement ) > 0) then begin |
if (BrowserRecord <> nil) and (Length( BrowserRecord.Movement ) > 0) then begin |
| 4166 |
if threadItem.UnRead then begin |
if threadItem.UnRead then begin |
| 4167 |
threadItem.UnRead := False; |
threadItem.UnRead := False; |
|
threadItem.ParentBoard.UnRead := ThreadItem.ParentBoard.UnRead - 1; |
|
|
if threadItem.ParentBoard.UnRead < 0 then threadItem.ParentBoard.UnRead := 0; |
|
| 4168 |
TreeView.Refresh; |
TreeView.Refresh; |
| 4169 |
ListView.Refresh; |
ListView.Refresh; |
| 4170 |
end; |
end; |
| 4172 |
BrowserRecord.Movement := ''; |
BrowserRecord.Movement := ''; |
| 4173 |
end else if threadItem.UnRead then begin |
end else if threadItem.UnRead then begin |
| 4174 |
threadItem.UnRead := False; |
threadItem.UnRead := False; |
|
threadItem.ParentBoard.UnRead := ThreadItem.ParentBoard.UnRead - 1; |
|
|
if threadItem.ParentBoard.UnRead < 0 then threadItem.ParentBoard.UnRead := 0; |
|
| 4175 |
TreeView.Refresh; |
TreeView.Refresh; |
| 4176 |
BrowserRecord.Move('new'); |
BrowserRecord.Move('new'); |
| 4177 |
ListView.Refresh; |
ListView.Refresh; |
|
|
Legend:
| Removed from v.1.558 |
|
| changed lines |
| |
Added in v.1.559 |
|
|
|