フォームのリサイズの高速化

diff --git a/Giko.dfm b/Giko.dfm
index 77834b7..4cf8dd0 100644 (file)
--- a/Giko.dfm
+++ b/Giko.dfm
@@ -562,7 +562,7 @@ object GikoForm: TGikoForm
             BevelOuter = bvNone
             UseDockManager = False
             TabOrder = 2
-            OnResize = BrowserPanelResize
+            OnCanResize = BrowserPanelCanResize
             object Browser: TWebBrowser
               Left = 0
               Top = 0

diff --git a/Giko.pas b/Giko.pas
index 2e199a9..3f3b0b0 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -925,10 +925,11 @@ type
     procedure JumpToNumOfResActionExecute(Sender: TObject);
     procedure JumpToNumOfResActionUpdate(Sender: TObject);
     procedure FavoriteTreeViewCollapseActionExecute(Sender: TObject);
-    procedure BrowserPanelResize(Sender: TObject);
     procedure ListViewCustomDrawItem(Sender: TCustomListView;
       Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
     procedure FormActivate(Sender: TObject);
+    procedure BrowserPanelCanResize(Sender: TObject; var NewWidth,
+      NewHeight: Integer; var Resize: Boolean);
        private
                { Private \90é\8c¾ }
         //RoundList : TRoundList;
@@ -3853,7 +3854,6 @@ begin
                        if (FActiveContent.Browser <> BrowserNullTab.Browser) then
                                ShowWindow(FActiveContent.Browser.Handle, SW_HIDE);
                end;
-
                ShowWindow(Thread.FBrowser.Handle, SW_SHOW);
                if (not Assigned(Thread.Browser.Document)) then begin
                        Thread.Browser.Navigate('about:blank');
@@ -11820,17 +11820,6 @@ begin
        StatusBar.Panels[1].Text := '';
 end;
 
-procedure TGikoForm.BrowserPanelResize(Sender: TObject);
-var
-       i: Integer;
-begin
-       for i := FBrowsers.Count - 1 downto 0 do begin
-               if FBrowsers[i] <> nil then
-                       SetWindowPos(TWebBrowser(FBrowsers[i]).Handle, HWND_NOTOPMOST, 0, 0, BrowserPanel.Width, BrowserPanel.Height, SWP_NOMOVE + SWP_NOZORDER);
-       end;
-
-end;
-
 procedure TGikoForm.ListViewCustomDrawItem(Sender: TCustomListView;
   Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
 var
@@ -11860,6 +11849,18 @@ begin
        MouseGesture.SetHook(Handle);
 end;
 
+procedure TGikoForm.BrowserPanelCanResize(Sender: TObject; var NewWidth,
+  NewHeight: Integer; var Resize: Boolean);
+var
+       i: Integer;
+begin
+       for i := FBrowsers.Count - 1 downto 0 do begin
+               if FBrowsers[i] <> nil then
+                       MoveWindow(TWebBrowser(FBrowsers[i]).Handle, 0, 0, NewWidth, NewHeight, false);
+       end;
+
+end;
+
 initialization
                                OleInitialize(nil);
 finalization