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.312 by h677, Sun May 23 15:37:07 2004 UTC revision 1.313 by h677, Sun May 23 17:25:46 2004 UTC
# Line 1210  begin Line 1210  begin
1210          FSearchDialog := nil;          FSearchDialog := nil;
1211          BrowserNullTab := TBrowserRecord.Create;          BrowserNullTab := TBrowserRecord.Create;
1212          BrowserNullTab.Browser := Browser;          BrowserNullTab.Browser := Browser;
1213        BrowserNullTab.Browser.Navigate(BLANK_HTML);
1214          FBrowsers := TList.Create;          FBrowsers := TList.Create;
1215          for i := 0 to 4 do begin          for i := 0 to 4 do begin
1216                  newBrowser := TWebBrowser.Create(nil);                  newBrowser := TWebBrowser.Create(nil);
# Line 3336  begin Line 3337  begin
3337                  (Assigned(FActiveContent.Browser.Document)) then begin                  (Assigned(FActiveContent.Browser.Document)) then begin
3338                  try                  try
3339                  try                  try
3340                          Sleep(1);                          //Sleep(1);
3341                          //Application.ProcessMessages;                          //Application.ProcessMessages;
3342                          FActiveContent.Thread.ScrollTop := OleVariant(IHTMLDocument2(FActiveContent.Browser.Document).Body).ScrollTop;                          FActiveContent.Thread.ScrollTop := OleVariant(IHTMLDocument2(FActiveContent.Browser.Document).Body).ScrollTop;
3343                          //if FActiveContent.Browser <> BrowserNullTab.Browser then                          //if FActiveContent.Browser <> BrowserNullTab.Browser then
# Line 3350  begin Line 3351  begin
3351          end;          end;
3352          if inThread = nil then          if inThread = nil then
3353                  Exit                  Exit
3354          else if inThread.Browser = nil then begin          else if inThread.Thread = nil then begin
3355                    inThread.Browser.Navigate(BLANK_HTML);
3356                    BrowserBoardNameLabel.Caption := '';
3357                    ItemBoardImage.Picture := nil;
3358                    BrowserNameLabel.Caption := '';
3359                    ItemImage.Picture := nil;
3360                    BrowserNullTab.Thread := nil;
3361                    TOleControl(BrowserNullTab.Browser).Visible := true;
3362                    FActiveContent := nil;
3363                    Exit;
3364            end     else if inThread.Browser = nil then begin
3365                  if FActiveContent.Browser = TWebBrowser(FBrowsers[4]) then                  if FActiveContent.Browser = TWebBrowser(FBrowsers[4]) then
3366                          FBrowsers.Move(4, 0);                          FBrowsers.Move(4, 0);
3367                  for i := BrowserTab.Tabs.Count - 1 downto 0 do begin                  for i := BrowserTab.Tabs.Count - 1 downto 0 do begin
# Line 3367  begin Line 3378  begin
3378                  FBrowsers.Move(4, 0);                  FBrowsers.Move(4, 0);
3379          end;          end;
3380    
         if inThread.Browser <> BrowserNullTab.Browser then  
                 while (inThread.Browser.ReadyState <> READYSTATE_COMPLETE) and  
                                         (inThread.Browser.ReadyState <> READYSTATE_INTERACTIVE) do begin  
                         Application.ProcessMessages;  
                 end;  
   
         if inThread.Thread = nil then begin  
                 inThread.Browser.Navigate(BLANK_HTML);  
                 BrowserBoardNameLabel.Caption := '';  
                 ItemBoardImage.Picture := nil;  
                 BrowserNameLabel.Caption := '';  
                 ItemImage.Picture := nil;  
                 BrowserNullTab.Thread := nil;  
                 TOleControl(BrowserNullTab.Browser).Visible := true;  
                 FActiveContent := nil;  
                 Exit;  
         end;  
   
3381    
3382          BBSID := inThread.FThread.ParentBoard.BBSID;          BBSID := inThread.FThread.ParentBoard.BBSID;
3383          FileName := inThread.FThread.FileName;          FileName := inThread.FThread.FileName;
# Line 3405  begin Line 3398  begin
3398                  if not TOleControl(inThread.FBrowser).Visible then                  if not TOleControl(inThread.FBrowser).Visible then
3399                          TOleControl(inThread.FBrowser).Visible := true;         //ここで表示しておかないと描画で止まる                          TOleControl(inThread.FBrowser).Visible := true;         //ここで表示しておかないと描画で止まる
3400                  LockWindowUpdate(0);                  LockWindowUpdate(0);
3401                    if inThread.Browser <> BrowserNullTab.Browser then begin
3402                            while (inThread.Browser.ReadyState <> READYSTATE_COMPLETE) and
3403                                            (inThread.Browser.ReadyState <> READYSTATE_INTERACTIVE) do begin
3404                                    Application.ProcessMessages;
3405                            end;
3406                    end;
3407                  if (not Assigned(inThread.Browser.Document)) then begin                  if (not Assigned(inThread.Browser.Document)) then begin
3408                          inThread.Browser.Navigate('about:blank');                          inThread.Browser.Navigate('about:blank');
3409                  end;                  end;

Legend:
Removed from v.1.312  
changed lines
  Added in v.1.313

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