Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/Giko.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 3044 |
|
|
| 3045 |
if threadItem <> nil then begin |
if threadItem <> nil then begin |
| 3046 |
//HintData := GetThreadText(PathRec.FBBS, PathRec.FKey, wkIntSt, wkIntTo, ATitle, PathRec.FFirst); |
//HintData := GetThreadText(PathRec.FBBS, PathRec.FKey, wkIntSt, wkIntTo, ATitle, PathRec.FFirst); |
| 3047 |
|
//URLの最後に/が付いていないとき用 |
| 3048 |
|
if ( IntToStr(wkIntSt) = ChangeFileExt(threadItem.FileName, '') ) then begin |
| 3049 |
|
wkIntSt := 1; |
| 3050 |
|
wkIntTo := 1; |
| 3051 |
|
end; |
| 3052 |
FHint.PopupType := gptThread; |
FHint.PopupType := gptThread; |
| 3053 |
SetResPopupText( threadItem, wkIntSt, wkIntTo, ATitle, PathRec.FFirst ); |
SetResPopupText( threadItem, wkIntSt, wkIntTo, ATitle, PathRec.FFirst ); |
| 3054 |
end; |
end; |
|
|
Legend:
| Removed from v.1.511 |
|
| changed lines |
| |
Added in v.1.512 |
|
|
| |