| 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 |
| 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 |
| 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 |