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.49 by yoffy, Sat Sep 20 18:22:00 2003 UTC revision 1.50 by yoffy, Sun Sep 21 13:28:16 2003 UTC
# Line 2182  begin Line 2182  begin
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;
# Line 2212  begin Line 2212  begin
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

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