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.446 by h677, Wed Sep 29 14:22:11 2004 UTC revision 1.447 by h677, Thu Sep 30 12:08:54 2004 UTC
# Line 2911  begin Line 2911  begin
2911                          if (PathRec.FNoParam) then begin                          if (PathRec.FNoParam) then begin
2912                                  PathRec.FSt := 1;                                  PathRec.FSt := 1;
2913                                  PathRec.FTo := 1;                                  PathRec.FTo := 1;
2914                          end else                          end else begin
2915                                  Gikosys.GetPopupResNumber(URL,PathRec.FSt,PathRec.FTo);                                  Gikosys.GetPopupResNumber(URL,PathRec.FSt,PathRec.FTo);
2916                            end;
2917                          GikoSys.ParseURI( URL, Protocol, Host, Path, Document, Port, Bookmark );                          GikoSys.ParseURI( URL, Protocol, Host, Path, Document, Port, Bookmark );
2918    
2919                          if PathRec.FDone or (not GikoSys.Is2chHost( Host )) then begin                          if PathRec.FDone or (not GikoSys.Is2chHost( Host )) then begin
# Line 2939  begin Line 2940  begin
2940                                  //      wkIntTo := 1;                                  //      wkIntTo := 1;
2941                                  //if PathRec.FFirst then                                  //if PathRec.FFirst then
2942                                  //      wkIntSt := 1;                                  //      wkIntSt := 1;
2943                                  if PathRec.FStBegin then                                  //if PathRec.FStBegin then //http://〜〜〜〜/-50というとき
2944                                          wkIntSt := 1;                                  //      wkIntSt := 1;          //
2945                                  if PathRec.FToEnd then                                  //if PathRec.FToEnd then   //http://〜〜〜〜/50-というとき
2946                                          wkIntTo := 9999;                                  //      wkIntTo := 9999;       // どちらの場合も、GetPopupResNumberでうまく番号を調整するのでふよう。
2947    
2948                                  //ATitle := ActiveFileName <> PathRec.FKey;                                  //ATitle := ActiveFileName <> PathRec.FKey;
2949                                  if (FActiveContent <> nil) and (FActiveContent.Thread.URL = URL) then                                  if (FActiveContent <> nil) and (FActiveContent.Thread.URL = URL) then
# Line 6688  begin Line 6689  begin
6689                          threadItem := BrowserRecord.Thread;                          threadItem := BrowserRecord.Thread;
6690    
6691                          if (BrowserRecord <> nil) and (Length( BrowserRecord.Movement ) > 0) then begin                          if (BrowserRecord <> nil) and (Length( BrowserRecord.Movement ) > 0) then begin
6692                    threadItem.UnRead := False;
6693                                  BrowserMovement( BrowserRecord.Movement, BrowserRecord );                                  BrowserMovement( BrowserRecord.Movement, BrowserRecord );
6694                                  BrowserRecord.Movement := '';                                  BrowserRecord.Movement := '';
6695                          end else if threadItem.UnRead then begin                          end else if threadItem.UnRead then begin

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

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