Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/Giko.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 2026 |
end; |
end; |
| 2027 |
end; |
end; |
| 2028 |
end else begin |
end else begin |
| 2029 |
|
CreateResPopupBrowser; |
| 2030 |
|
|
| 2031 |
|
if not(Sender is TResPopupBrowser) then begin |
| 2032 |
|
if (FResPopupBrowser.Visible) then begin |
| 2033 |
|
FResPopupBrowser.Clear; |
| 2034 |
|
end; |
| 2035 |
|
end else begin |
| 2036 |
|
TResPopupBrowser(Sender).ChildClear; |
| 2037 |
|
end; |
| 2038 |
|
|
| 2039 |
threadItem := GetActiveContent(true); |
threadItem := GetActiveContent(true); |
| 2040 |
URL := THTMLCreate.GetRespopupURL(Text2, threadItem.URL); |
URL := THTMLCreate.GetRespopupURL(Text2, threadItem.URL); |
| 2041 |
PathRec := Gikosys.Parse2chURL2(URL); |
PathRec := Gikosys.Parse2chURL2(URL); |
| 2088 |
wkIntSt := 1; |
wkIntSt := 1; |
| 2089 |
wkIntTo := 1; |
wkIntTo := 1; |
| 2090 |
end; |
end; |
|
CreateResPopupBrowser; |
|
|
|
|
|
if not(Sender is TResPopupBrowser) then begin |
|
|
if (FResPopupBrowser.Visible) then begin |
|
|
FResPopupBrowser.Clear; |
|
|
end; |
|
|
end else begin |
|
|
TResPopupBrowser(Sender).ChildClear; |
|
|
end; |
|
|
|
|
| 2091 |
cResPopup := FResPopupBrowser.CreateNewBrowser; |
cResPopup := FResPopupBrowser.CreateNewBrowser; |
| 2092 |
cResPopup.PopupType := gptThread; |
cResPopup.PopupType := gptThread; |
| 2093 |
HTMLCreater.SetResPopupText(cResPopup, threadItem, wkIntSt, wkIntTo, ATitle, PathRec.FFirst ); |
HTMLCreater.SetResPopupText(cResPopup, threadItem, wkIntSt, wkIntTo, ATitle, PathRec.FFirst ); |
|
|
Legend:
| Removed from v.1.644 |
|
| changed lines |
| |
Added in v.1.645 |
|
|
| |