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.558 by h677, Sat Dec 10 06:54:32 2005 UTC revision 1.559 by h677, Sat Dec 10 08:07:50 2005 UTC
# Line 4165  begin Line 4165  begin
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;
# Line 4174  begin Line 4172  begin
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

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