Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Giko.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.601 by h677, Tue May 30 16:06:46 2006 UTC revision 1.602 by yoffy, Sat Jun 10 18:57:25 2006 UTC
# Line 1824  begin Line 1824  begin
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;
# Line 1844  var Line 1848  var
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
# Line 1871  begin Line 1880  begin
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;
# Line 1888  begin Line 1897  begin
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);
# Line 1897  begin Line 1906  begin
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;
# Line 1924  begin Line 1933  begin
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;

Legend:
Removed from v.1.601  
changed lines
  Added in v.1.602

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26