| 1824 |
GikoDM.TabsOpenAction.Execute; |
GikoDM.TabsOpenAction.Execute; |
| 1825 |
end; |
end; |
| 1826 |
|
|
| 1827 |
|
{! |
| 1828 |
|
\todo 何故 IE 7 では about:.. になるのか |
| 1829 |
|
(IE 7 が about:.. を追加しているのか、ギコナビが追加しているのか) |
| 1830 |
|
調査すること |
| 1831 |
|
} |
| 1832 |
procedure TGikoForm.BrowserStatusTextChange(Sender: TObject; const Text: WideString); |
procedure TGikoForm.BrowserStatusTextChange(Sender: TObject; const Text: WideString); |
| 1833 |
var |
var |
| 1834 |
p: TPoint; |
p: TPoint; |
| 1848 |
e: IHTMLElement; |
e: IHTMLElement; |
| 1849 |
Ext: string; |
Ext: string; |
| 1850 |
PathRec: TPathRec; |
PathRec: TPathRec; |
| 1851 |
|
Text2: string; |
| 1852 |
begin |
begin |
| 1853 |
|
// ギコナビはレスアンカーが about:blank.. で始まることを期待しているが |
| 1854 |
|
// IE 7 では about:blank.. ではなく about:.. になるので、置換する(投げやり) |
| 1855 |
|
if Pos('about:..', Text) = 1 then |
| 1856 |
|
Text2 := 'about:blank..' + Copy( Text, Length('about:..')+1, Length(Text) ); |
| 1857 |
if not( TObject(Sender) is TWebBrowser )then |
if not( TObject(Sender) is TWebBrowser )then |
| 1858 |
Exit; |
Exit; |
| 1859 |
try |
try |
| 1880 |
Exit; |
Exit; |
| 1881 |
end; |
end; |
| 1882 |
|
|
| 1883 |
StatusBar.Panels[1].Text := Text; |
StatusBar.Panels[1].Text := Text2; |
| 1884 |
|
|
| 1885 |
if FHint <> nil then begin |
if FHint <> nil then begin |
| 1886 |
FHint.ReleaseHandle; |
FHint.ReleaseHandle; |
| 1897 |
//file:///C:/Borland/Projects/gikoNavi/test/read.cgi/qa/990576336/10-15 |
//file:///C:/Borland/Projects/gikoNavi/test/read.cgi/qa/990576336/10-15 |
| 1898 |
|
|
| 1899 |
s := ''; |
s := ''; |
| 1900 |
Ext := AnsiLowerCase(ExtractFileExt(Text)); |
Ext := AnsiLowerCase(ExtractFileExt(Text2)); |
| 1901 |
if (Pos('http://', Text) = 1) and (GikoSys.Setting.PreviewVisible) and |
if (Pos('http://', Text2) = 1) and (GikoSys.Setting.PreviewVisible) and |
| 1902 |
((Ext = '.jpg') or (Ext = '.jpeg') or (Ext = '.gif') or (Ext = '.png')) then begin |
((Ext = '.jpg') or (Ext = '.jpeg') or (Ext = '.gif') or (Ext = '.png')) then begin |
| 1903 |
if FPreviewBrowser = nil then begin |
if FPreviewBrowser = nil then begin |
| 1904 |
FPreviewBrowser := TPreviewBrowser.Create(Self); |
FPreviewBrowser := TPreviewBrowser.Create(Self); |
| 1906 |
TOleControl(FPreviewBrowser).Parent := nil; |
TOleControl(FPreviewBrowser).Parent := nil; |
| 1907 |
end; |
end; |
| 1908 |
FPreviewBrowser.Navigate(BLANK_HTML);//前回のプレビュー画像消去用 |
FPreviewBrowser.Navigate(BLANK_HTML);//前回のプレビュー画像消去用 |
| 1909 |
FPreviewURL := Text; |
FPreviewURL := Text2; |
| 1910 |
PreviewTimer.Interval := GikoSys.Setting.PreviewWait; |
PreviewTimer.Interval := GikoSys.Setting.PreviewWait; |
| 1911 |
PreviewTimer.Enabled := True; |
PreviewTimer.Enabled := True; |
| 1912 |
end else if (Pos('about:blank', Text) = 1) or (Pos('http://', Text) = 1) or (Pos('mailto:', Text) = 1) then begin |
end else if (Pos('about:blank', Text2) = 1) or (Pos('http://', Text2) = 1) or (Pos('mailto:', Text2) = 1) then begin |
| 1913 |
if Pos('mailto:', Text) = 1 then begin |
if Pos('mailto:', Text2) = 1 then begin |
| 1914 |
s := StringReplace(Text, 'mailto:', '', [rfIgnoreCase]); |
s := StringReplace(Text2, 'mailto:', '', [rfIgnoreCase]); |
| 1915 |
//ギコナビスレ パート3の466氏に感謝 |
//ギコナビスレ パート3の466氏に感謝 |
| 1916 |
GetCursorPos(p); |
GetCursorPos(p); |
| 1917 |
p.x := p.x - TWebBrowser(Sender).ClientOrigin.x; |
p.x := p.x - TWebBrowser(Sender).ClientOrigin.x; |
| 1933 |
end; |
end; |
| 1934 |
end else begin |
end else begin |
| 1935 |
threadItem := GetActiveContent; |
threadItem := GetActiveContent; |
| 1936 |
URL := THTMLCreate.GetRespopupURL(Text, threadItem.URL); |
URL := THTMLCreate.GetRespopupURL(Text2, threadItem.URL); |
| 1937 |
PathRec := Gikosys.Parse2chURL2(URL); |
PathRec := Gikosys.Parse2chURL2(URL); |
| 1938 |
if (PathRec.FNoParam) then begin |
if (PathRec.FNoParam) then begin |
| 1939 |
PathRec.FSt := 1; |
PathRec.FSt := 1; |