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.345 by h677, Tue Jun 22 15:41:32 2004 UTC revision 1.346 by h677, Wed Jun 23 14:47:39 2004 UTC
# Line 530  type Line 530  type
530      TmpToolBar: TToolBar;      TmpToolBar: TToolBar;
531      TreeSelectNameCopy: TAction;      TreeSelectNameCopy: TAction;
532      TreeSelectNamePupupMenu: TMenuItem;      TreeSelectNamePupupMenu: TMenuItem;
     Browser: TWebBrowser;  
533      BrowserPanel: TPanel;      BrowserPanel: TPanel;
534      SetFocusForBrowserAction: TAction;      SetFocusForBrowserAction: TAction;
535      SetFocusForThreadListAction: TAction;      SetFocusForThreadListAction: TAction;
# Line 549  type Line 548  type
548      SelectItemSaveForDat: TAction;      SelectItemSaveForDat: TAction;
549      LogFolderOpenAction: TAction;      LogFolderOpenAction: TAction;
550      OpenLogFolder: TMenuItem;      OpenLogFolder: TMenuItem;
551        Browser: TWebBrowser;
552                                  procedure FormCreate(Sender: TObject);                                  procedure FormCreate(Sender: TObject);
553                  procedure FormDestroy(Sender: TObject);                  procedure FormDestroy(Sender: TObject);
554                  procedure CabinetPanelHide(Sender: TObject);                  procedure CabinetPanelHide(Sender: TObject);
# Line 1252  begin Line 1252  begin
1252                  newBrowser := FBrowsers[FBrowsers.Count - 1];                  newBrowser := FBrowsers[FBrowsers.Count - 1];
1253                  TOleControl(newBrowser).Parent := BrowserPanel;                  TOleControl(newBrowser).Parent := BrowserPanel;
1254                  newBrowser.Align := alNone;                  newBrowser.Align := alNone;
1255          TOleControl(newBrowser).DoubleBuffered := true;                  newBrowser.Left := 0;
1256                    newBrowser.Top  := 0;
1257            //newBrowser.DoubleBuffered := true;
1258                  newBrowser.OnDocumentComplete   := BrowserDocumentComplete;                  newBrowser.OnDocumentComplete   := BrowserDocumentComplete;
1259                  newBrowser.OnBeforeNavigate2    := BrowserBeforeNavigate2;                  newBrowser.OnBeforeNavigate2    := BrowserBeforeNavigate2;
1260                  newBrowser.OnEnter                              := BrowserEnter;                  newBrowser.OnEnter                              := BrowserEnter;
# Line 3454  begin Line 3456  begin
3456                          if ThreadItem.ParentBoard.UnRead < 0 then ThreadItem.ParentBoard.UnRead := 0;                          if ThreadItem.ParentBoard.UnRead < 0 then ThreadItem.ParentBoard.UnRead := 0;
3457                          TreeView.Refresh;                          TreeView.Refresh;
3458                  end;                  end;
3459                  LockWindowUpdate(Self.Handle);             //   LockWindowUpdate(Self.Handle);
3460                  if(FActiveContent <> nil) and (FActiveContent <> Thread) then begin                  if(FActiveContent <> nil) and (FActiveContent <> Thread) then begin
3461                          if (FActiveContent.Browser <> BrowserNullTab.Browser) then                          if (FActiveContent.Browser <> BrowserNullTab.Browser) then
3462                                  ShowWindow(FActiveContent.Browser.Handle, SW_HIDE);                                  ShowWindow(FActiveContent.Browser.Handle, SW_HIDE);
3463                  end;                  end;
3464                  ShowWindow(Thread.FBrowser.Handle, SW_SHOW);                  ShowWindow(Thread.FBrowser.Handle, SW_SHOW);
3465                  LockWindowUpdate(0);                  //LockWindowUpdate(0);
3466                  if (not Assigned(Thread.Browser.Document)) then begin                  if (not Assigned(Thread.Browser.Document)) then begin
3467                          Thread.Browser.Navigate('about:blank');                          Thread.Browser.Navigate('about:blank');
3468                  end;                  end;
# Line 10554  procedure TGikoForm.BrowserPanelCanResiz Line 10556  procedure TGikoForm.BrowserPanelCanResiz
10556  var  var
10557          i: Integer;          i: Integer;
10558  begin  begin
         if (FActiveContent <> nil) and (FActiveContent.Browser <> nil) then  
                 LockWindowUpdate(FActiveContent.Browser.Handle);  
10559          for i := 0 to BROWSER_COUNT - 1 do          for i := 0 to BROWSER_COUNT - 1 do
10560                  SetWindowPos(TWebBrowser(FBrowsers[i]).Handle, HWND_NOTOPMOST, 0, 0, NewWidth, NewHeight, SWP_NOMOVE + SWP_NOZORDER);                  SetWindowPos(TWebBrowser(FBrowsers[i]).Handle, HWND_NOTOPMOST, 0, 0, NewWidth, NewHeight, SWP_NOMOVE + SWP_NOZORDER);
10561    
10562          if (FActiveContent <> nil) and (FActiveContent.Browser <> nil) then begin          if (FActiveContent <> nil) and (FActiveContent.Browser <> nil) then begin
10563                  SetWindowPos(FActiveContent.Browser.Handle, HWND_NOTOPMOST, 0, 0, NewWidth, NewHeight, SWP_NOMOVE + SWP_NOZORDER);                  SetWindowPos(FActiveContent.Browser.Handle, HWND_NOTOPMOST, 0, 0, NewWidth, NewHeight, SWP_NOMOVE + SWP_NOZORDER);
                 LockWindowUpdate(0);  
10564          end;          end;
10565  end;  end;
10566    

Legend:
Removed from v.1.345  
changed lines
  Added in v.1.346

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