Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/Giko.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 3059 |
ATitle := true; |
ATitle := true; |
| 3060 |
|
|
| 3061 |
threadItem := BBSsFindThreadFromURL( URL ); |
threadItem := BBSsFindThreadFromURL( URL ); |
|
if( wkIntSt = StrToInt64(ChangeFileExt(threadItem.FileName, '')) ) then begin |
|
|
wkIntSt := 1; |
|
|
wkIntTo := 1; |
|
|
end; |
|
| 3062 |
|
|
| 3063 |
if (threadItem = nil) and GikoSys.Is2chHost( Host ) then begin |
if (threadItem = nil) and GikoSys.Is2chHost( Host ) then begin |
| 3064 |
board := BBSs[ 0 ].FindBBSID( PathRec.FBBS ); |
board := BBSs[ 0 ].FindBBSID( PathRec.FBBS ); |
| 3071 |
|
|
| 3072 |
if threadItem <> nil then begin |
if threadItem <> nil then begin |
| 3073 |
//HintData := GetThreadText(PathRec.FBBS, PathRec.FKey, wkIntSt, wkIntTo, ATitle, PathRec.FFirst); |
//HintData := GetThreadText(PathRec.FBBS, PathRec.FKey, wkIntSt, wkIntTo, ATitle, PathRec.FFirst); |
| 3074 |
|
//URLの最後に/が付いていないとき用 |
| 3075 |
|
if ( IntToStr(wkIntSt) = ChangeFileExt(threadItem.FileName, '') ) then begin |
| 3076 |
|
wkIntSt := 1; |
| 3077 |
|
wkIntTo := 1; |
| 3078 |
|
end; |
| 3079 |
FHint.PopupType := gptThread; |
FHint.PopupType := gptThread; |
| 3080 |
SetResPopupText( threadItem, wkIntSt, wkIntTo, ATitle, PathRec.FFirst ); |
SetResPopupText( threadItem, wkIntSt, wkIntTo, ATitle, PathRec.FFirst ); |
| 3081 |
end; |
end; |
|
|
Legend:
| Removed from v.1.511.2.18 |
|
| changed lines |
| |
Added in v.1.511.2.19 |
|
|
| |