| 1970 |
wkIntSt := StrToInt64(tmp2); |
wkIntSt := StrToInt64(tmp2); |
| 1971 |
wkIntTo := StrToInt64(tmp2); |
wkIntTo := StrToInt64(tmp2); |
| 1972 |
cResPopup.PopupType := gptThread; |
cResPopup.PopupType := gptThread; |
| 1973 |
HTMLCreater.SetResPopupText(cResPopup, GetActiveContent, wkIntSt, wkIntTo, False, False); |
HTMLCreater.SetResPopupText(cResPopup, GetActiveContent(true), wkIntSt, wkIntTo, False, False); |
| 1974 |
end else begin |
end else begin |
| 1975 |
cResPopup.PopupType := gptRaw; |
cResPopup.PopupType := gptRaw; |
| 1976 |
cResPopup.Title := s; |
cResPopup.Title := s; |
| 1977 |
end; |
end; |
| 1978 |
end; |
end; |
| 1979 |
end else begin |
end else begin |
| 1980 |
threadItem := GetActiveContent; |
threadItem := GetActiveContent(true); |
| 1981 |
URL := THTMLCreate.GetRespopupURL(Text2, threadItem.URL); |
URL := THTMLCreate.GetRespopupURL(Text2, threadItem.URL); |
| 1982 |
PathRec := Gikosys.Parse2chURL2(URL); |
PathRec := Gikosys.Parse2chURL2(URL); |
| 1983 |
if (PathRec.FNoParam) then begin |
if (PathRec.FNoParam) then begin |
| 3778 |
end; |
end; |
| 3779 |
|
|
| 3780 |
if wkIntSt <> 0 then begin |
if wkIntSt <> 0 then begin |
|
if (Sender is TResPopupBrowser) then begin |
|
|
TResPopupBrowser(Sender).ChildClear |
|
|
end; |
|
| 3781 |
FActiveContent.IDAnchorPopup(''); |
FActiveContent.IDAnchorPopup(''); |
| 3782 |
MoveHisotryManager.pushItem(FActiveContent); |
MoveHisotryManager.pushItem(FActiveContent); |
| 3783 |
BrowserMovement(IntToStr(wkIntSt)); |
if (Sender is TResPopupBrowser) then begin |
| 3784 |
|
TResPopupBrowser(Sender).ChildClear; |
| 3785 |
|
OpenThreadItem( |
| 3786 |
|
GetActiveContent(true), |
| 3787 |
|
GetActiveContent(true).URL + '&st=' + |
| 3788 |
|
IntToStr(wkIntSt) + '&to=' + IntToStr(wkIntSt)); |
| 3789 |
|
end else begin |
| 3790 |
|
BrowserMovement(IntToStr(wkIntSt)); |
| 3791 |
|
end; |
| 3792 |
end; |
end; |
| 3793 |
end; |
end; |
| 3794 |
end else begin |
end else begin |
| 4854 |
s := ZenToHan(Trim(s)); |
s := ZenToHan(Trim(s)); |
| 4855 |
if GikoSys.IsNumeric(s) then begin |
if GikoSys.IsNumeric(s) then begin |
| 4856 |
Num := StrToInt64(s); |
Num := StrToInt64(s); |
| 4857 |
ThreadItem := GetActiveContent; |
ThreadItem := GetActiveContent(true); |
| 4858 |
if (ThreadItem <> nil) and (Num <= ThreadItem.Count) |
if (ThreadItem <> nil) and (Num <= ThreadItem.Count) |
| 4859 |
and (Num > 0)then begin |
and (Num > 0)then begin |
| 4860 |
CreateResPopupBrowser; |
CreateResPopupBrowser; |