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.420 by yoffy, Fri Sep 10 11:00:57 2004 UTC revision 1.421 by h677, Fri Sep 10 15:51:39 2004 UTC
# Line 11054  procedure TGikoForm.BrowserPanelCanResiz Line 11054  procedure TGikoForm.BrowserPanelCanResiz
11054  var  var
11055          i: Integer;          i: Integer;
11056  begin  begin
11057          for i := 0 to BROWSER_COUNT - 1 do          for i := BROWSER_COUNT - 1 downto 0 do begin
11058                    SendMessage(TWebBrowser(FBrowsers[i]).Handle, WM_SETREDRAW, 0, 0);  //描画停止
11059                  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);
11060                    SendMessage(TWebBrowser(FBrowsers[i]).Handle, WM_SETREDRAW, 1, 0);  //描画
         if (FActiveContent <> nil) and (FActiveContent.Browser <> nil) then begin  
                 SetWindowPos(FActiveContent.Browser.Handle, HWND_NOTOPMOST, 0, 0, NewWidth, NewHeight, SWP_NOMOVE + SWP_NOZORDER);  
11061          end;          end;
11062  end;  end;
11063    

Legend:
Removed from v.1.420  
changed lines
  Added in v.1.421

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