| 2874 |
end else begin |
end else begin |
| 2875 |
threadItem := GetActiveContent; |
threadItem := GetActiveContent; |
| 2876 |
if Pos('about:blank..', Text) = 1 then begin |
if Pos('about:blank..', Text) = 1 then begin |
| 2877 |
if (AnsiPos('http://jbbs.livedoor.com/', threadItem.URL) <> 0) or |
if(AnsiPos('http://jbbs.livedoor.jp/', threadItem.URL) <> 0) or |
| 2878 |
|
(AnsiPos('http://jbbs.livedoor.com/', threadItem.URL) <> 0) or |
| 2879 |
(AnsiPos('http://jbbs.shitaraba.com/', threadItem.URL) <> 0) then begin |
(AnsiPos('http://jbbs.shitaraba.com/', threadItem.URL) <> 0) then begin |
| 2880 |
URL := Copy(threadItem.URL, 1, LastDelimiter('/',threadItem.URL)); |
URL := Copy(threadItem.URL, 1, LastDelimiter('/',threadItem.URL)); |
| 2881 |
Gikosys.GetPopupResNumber(Text,PathRec.FSt,PathRec.FTo); |
Gikosys.GetPopupResNumber(Text,PathRec.FSt,PathRec.FTo); |
| 7497 |
|
|
| 7498 |
|
|
| 7499 |
shiftDown := GetAsyncKeyState(VK_SHIFT) = Smallint($8001); |
shiftDown := GetAsyncKeyState(VK_SHIFT) = Smallint($8001); |
| 7500 |
ctrlDown := GetAsyncKeyState(VK_CONTROL) = Smallint($8001); |
ctrlDown := GetAsyncKeyState(VK_CONTROL) = Smallint($8001); |
| 7501 |
if shiftDown then begin |
if shiftDown then begin |
| 7502 |
GikoSys.OpenBrowser(URL, gbtUserApp); |
GikoSys.OpenBrowser(URL, gbtUserApp); |
| 7503 |
Exit; |
Exit; |
| 7504 |
end else if ctrlDown then begin |
end else if ctrlDown then begin |
| 7505 |
GikoSys.OpenBrowser(URL, gbtIE); |
GikoSys.OpenBrowser(URL, gbtIE); |
| 7506 |
Exit; |
Exit; |
| 7507 |
end; |
end; |
| 7508 |
|
|
| 7509 |
//===== プラグイン |
//===== プラグイン |