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.527.2.6 by h677, Fri Nov 4 17:29:57 2005 UTC revision 1.527.2.7 by h677, Sat Nov 5 00:24:49 2005 UTC
# Line 1293  begin Line 1293  begin
1293    
1294          FSearchDialog := nil;          FSearchDialog := nil;
1295          BrowserNullTab := TBrowserRecord.Create;          BrowserNullTab := TBrowserRecord.Create;
1296            Browser.ControlInterface.FullScreen := true;
1297          BrowserNullTab.Browser := Browser;          BrowserNullTab.Browser := Browser;
1298    
1299          BrowserNullTab.Browser.Navigate(BLANK_HTML);          BrowserNullTab.Browser.Navigate(BLANK_HTML);
1300          FBrowsers := TList.Create;          FBrowsers := TList.Create;
1301          for i := 0 to BROWSER_COUNT -1 do begin          for i := 0 to BROWSER_COUNT -1 do begin
# Line 1304  begin Line 1306  begin
1306                  TOleControl(newBrowser).Left    := 0;                  TOleControl(newBrowser).Left    := 0;
1307                  TOleControl(newBrowser).Top     := 0;                  TOleControl(newBrowser).Top     := 0;
1308                  newBrowser.ControlInterface.Silent := true;                  newBrowser.ControlInterface.Silent := true;
1309                    newBrowser.ControlInterface.FullScreen := true;
1310                  newBrowser.OnDocumentComplete   := BrowserDocumentComplete;                  newBrowser.OnDocumentComplete   := BrowserDocumentComplete;
1311                  newBrowser.OnBeforeNavigate2    := BrowserBeforeNavigate2;                  newBrowser.OnBeforeNavigate2    := BrowserBeforeNavigate2;
1312                  newBrowser.OnEnter                              := BrowserEnter;                  newBrowser.OnEnter                              := BrowserEnter;
# Line 3945  begin Line 3948  begin
3948                                  doc.Write(s);                                  doc.Write(s);
3949                                  doc.Close;                                  doc.Close;
3950                          finally                          finally
3951                                    ShowWindow(Thread.FBrowser.Handle, SW_SHOW);
3952                          end;                          end;
3953                  end else begin                  end else begin
3954                          Self.Caption := CAPTION_NAME + ' - [' + ThreadTitle + ']';                          Self.Caption := CAPTION_NAME + ' - [' + ThreadTitle + ']';

Legend:
Removed from v.1.527.2.6  
changed lines
  Added in v.1.527.2.7

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