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.309 by h677, Sun May 23 08:21:36 2004 UTC revision 1.310 by h677, Sun May 23 09:33:24 2004 UTC
# Line 3251  begin Line 3251  begin
3251                          end;                          end;
3252                  end;                  end;
3253                  idx := BrowserTab.TabIndex;                  idx := BrowserTab.TabIndex;
                 BrowserTab.Tabs.BeginUpdate;  
3254                  if GikoSys.Setting.BrowserTabAppend = gtaFirst then begin                  if GikoSys.Setting.BrowserTabAppend = gtaFirst then begin
3255                          newBrowser := TBrowserRecord.Create;                          newBrowser := TBrowserRecord.Create;
3256                          for j := BrowserTab.Tabs.Count - 1 downto 0 do begin                          for j := BrowserTab.Tabs.Count - 1 downto 0 do begin
# Line 3300  begin Line 3299  begin
3299                                  BrowserTab.TabIndex := i;                                  BrowserTab.TabIndex := i;
3300                          end;                          end;
3301                  end;                  end;
                 BrowserTab.Tabs.EndUpdate;;  
3302                  if(ActiveTab) or (idx = -1) then begin                  if(ActiveTab) or (idx = -1) then begin
3303                          BrowserTab.OnChange(nil);                          BrowserTab.OnChange(nil);
3304                  end;                  end;
# Line 3310  begin Line 3308  begin
3308                          BrowserNullTab.Browser := Browser;                          BrowserNullTab.Browser := Browser;
3309                  end;                  end;
3310                  BrowserNullTab.thread := ThreadItem;                  BrowserNullTab.thread := ThreadItem;
                 BrowserNullTab.Browser.Navigate(BLANK_HTML);  
                 SetWindowPos( BrowserNullTab.Browser.Handle, HWND_TOPMOST, 0, 0, BrowserPanel.Width, BrowserPanel.Height, SWP_NOACTIVATE or SWP_NOZORDER);  
3311                  BrowserTab.TabIndex := -1;                  BrowserTab.TabIndex := -1;
3312                  SetContent(BrowserNullTab);                  SetContent(BrowserNullTab);
3313          end;          end;
# Line 3367  begin Line 3363  begin
3363                  FBrowsers.Move(4, 0);                  FBrowsers.Move(4, 0);
3364          end;          end;
3365    
3366            if inThread.Browser <> BrowserNullTab.Browser then
3367          while (inThread.Browser.ReadyState <> READYSTATE_COMPLETE) and                  while (inThread.Browser.ReadyState <> READYSTATE_COMPLETE) and
3368                                  (inThread.Browser.ReadyState <> READYSTATE_INTERACTIVE) do begin                                          (inThread.Browser.ReadyState <> READYSTATE_INTERACTIVE) do begin
3369                  Application.ProcessMessages;                          Application.ProcessMessages;
3370          end;                  end;
3371    
3372          if inThread.Thread = nil then begin          if inThread.Thread = nil then begin
3373                  inThread.Browser.Navigate(BLANK_HTML);                  inThread.Browser.Navigate(BLANK_HTML);
# Line 3381  begin Line 3377  begin
3377                  ItemImage.Picture := nil;                  ItemImage.Picture := nil;
3378                  BrowserNullTab.Thread := nil;                  BrowserNullTab.Thread := nil;
3379                  TOleControl(BrowserNullTab.Browser).Visible := true;                  TOleControl(BrowserNullTab.Browser).Visible := true;
                 TOleControl(BrowserNullTab.Browser).BringToFront;  
3380                  FActiveContent := nil;                  FActiveContent := nil;
3381                  Exit;                  Exit;
3382          end;          end;
3383    
3384    
3385          BBSID := inThread.FThread.ParentBoard.BBSID;          BBSID := inThread.FThread.ParentBoard.BBSID;
3386          FileName := inThread.FThread.FileName;          FileName := inThread.FThread.FileName;
3387    
# Line 3402  begin Line 3398  begin
3398                          TreeView.Refresh;                          TreeView.Refresh;
3399                  end;                  end;
3400                  LockWindowUpdate(Self.Handle);                  LockWindowUpdate(Self.Handle);
3401                  TOleControl(inThread.FBrowser).Visible := true; //ここで表示しておかないと描画で止まる                  if not TOleControl(inThread.FBrowser).Visible then
3402                            TOleControl(inThread.FBrowser).Visible := true;         //ここで表示しておかないと描画で止まる
3403                  TOleControl(inThread.FBrowser).BringToFront;                  TOleControl(inThread.FBrowser).BringToFront;
3404                  LockWindowUpdate(0);                  LockWindowUpdate(0);
3405                  if not inThread.FThread.IsLogFile then begin                  if not inThread.FThread.IsLogFile then begin
   
3406                          if (not Assigned(inThread.Browser.Document)) then begin                          if (not Assigned(inThread.Browser.Document)) then begin
3407                                  inThread.Browser.Navigate('about:blank');                                  inThread.Browser.Navigate('about:blank');
3408                                  //while (not Assigned(Thread.Browser.Document)) do begin                                  //while (not Assigned(Thread.Browser.Document)) do begin

Legend:
Removed from v.1.309  
changed lines
  Added in v.1.310

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