Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/Giko.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 2182 |
ShowWindow(FPreviewBrowser.Handle, SW_HIDE); |
ShowWindow(FPreviewBrowser.Handle, SW_HIDE); |
| 2183 |
TOleControl(FPreviewBrowser).Parent := nil; |
TOleControl(FPreviewBrowser).Parent := nil; |
| 2184 |
end; |
end; |
| 2185 |
FPreviewBrowser.Navigate('about:blank');//前回のプレビュー画像消去用 |
FPreviewBrowser.Navigate('about:blank');//前回のプレビュー画像消去用 |
| 2186 |
FPreviewURL := Text; |
FPreviewURL := Text; |
| 2187 |
PreviewTimer.Interval := GikoSys.Setting.PreviewWait; |
PreviewTimer.Interval := GikoSys.Setting.PreviewWait; |
| 2188 |
PreviewTimer.Enabled := True; |
PreviewTimer.Enabled := True; |
| 2212 |
end; |
end; |
| 2213 |
end else begin |
end else begin |
| 2214 |
URL := Text; |
URL := Text; |
| 2215 |
|
// !!!!! Debug !!!!! |
| 2216 |
|
// スキン用 |
| 2217 |
|
if Pos('about:blank..', URL) = 1 then |
| 2218 |
|
Exit; |
| 2219 |
|
{ |
| 2220 |
if Pos('about:blank..', URL) = 1 then |
if Pos('about:blank..', URL) = 1 then |
| 2221 |
URL := StringReplace(URL, 'about:blank..', 'http://www.2ch.net', []); |
URL := StringReplace(URL, 'about:blank..', 'http://www.2ch.net', []); |
| 2222 |
|
} |
| 2223 |
|
// !!!!! Debug !!!!! |
| 2224 |
|
|
| 2225 |
PathRec := Gikosys.Parse2chURL2(URL); |
PathRec := Gikosys.Parse2chURL2(URL); |
| 2226 |
|
|
|
|
Legend:
| Removed from v.1.49 |
|
| changed lines |
| |
Added in v.1.50 |
|
|
| |