Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/Giko.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 4839 |
ThreadItem := GetActiveContent; |
ThreadItem := GetActiveContent; |
| 4840 |
if ThreadItem <> nil then begin |
if ThreadItem <> nil then begin |
| 4841 |
Num := StrToInt64(s); |
Num := StrToInt64(s); |
| 4842 |
FHint.PopupType := gptThread; |
//FHint.PopupType := gptThread; |
| 4843 |
|
if (FResPopupBrowser = nil) then begin |
| 4844 |
|
FResPopupBrowser := TResPopupBrowser.Create(BrowserPanel); |
| 4845 |
|
ShowWindow(FResPopupBrowser.Handle, SW_HIDE); |
| 4846 |
|
end; |
| 4847 |
HTMLCreater.SetResPopupText(FResPopupBrowser.CreateNewBrowser, ThreadItem, Num, Num, False, False); |
HTMLCreater.SetResPopupText(FResPopupBrowser.CreateNewBrowser, ThreadItem, Num, Num, False, False); |
| 4848 |
if FHint.ResCount <> 0 then |
//if FHint.ResCount <> 0 then |
| 4849 |
ShowTextPopup; |
// ShowTextPopup; |
| 4850 |
Result := False; |
Result := False; |
| 4851 |
end else |
end else |
| 4852 |
Result := True; |
Result := True; |
|
|
Legend:
| Removed from v.1.635.2.2 |
|
| changed lines |
| |
Added in v.1.635.2.3 |
|
|
| |