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

diff --git a/Giko.dfm b/Giko.dfm
index 4cf8dd0..6ae7616 100644 (file)
--- a/Giko.dfm
+++ b/Giko.dfm
@@ -1,6 +1,6 @@
 object GikoForm: TGikoForm
-  Left = 364
-  Top = 51
+  Left = 230
+  Top = 27
   HorzScrollBar.Visible = False
   VertScrollBar.Visible = False
   AutoScroll = False

diff --git a/Giko.pas b/Giko.pas
index 3f3b0b0..8d8b591 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -1840,6 +1840,8 @@ end;
 //
 //
 procedure TGikoForm.FormShow(Sender: TObject);
+var
+       i: Integer;
 begin
        if not FStartUp then begin
                ShowWindow(Application.Handle, SW_HIDE);
@@ -1897,11 +1899,11 @@ begin
                if GikoSys.Setting.TabAutoLoadSave then begin
                        TabAutoLoadAction.Execute;
                end;
-                //\82É\82¿\82á\82ñ\8cê\88Ä\93à\83T\83|\81[\83g\8b@\94\
-                if GikoSys.Setting.GengoSupport then begin
-                //\97\\92è\92n
-                //Test\8cü\82¯
-                end;
+                               //\82É\82¿\82á\82ñ\8cê\88Ä\93à\83T\83|\81[\83g\8b@\94\
+                               if GikoSys.Setting.GengoSupport then begin
+                               //\97\\92è\92n
+                               //Test\8cü\82¯
+                               end;
 
                FStartUp := true;
        end;
@@ -3826,6 +3828,9 @@ begin
                Thread.Browser := TWebBrowser(FBrowsers[BROWSER_COUNT - 1]);
                FBrowsers.Move(BROWSER_COUNT - 1, 0);
        end;
+
+       //MoveWindow(Thread.FBrowser.Handle, 0, 0, BrowserPanel.Width, BrowserPanel.Height, false);
+       
        ThreadTitle := Thread.Thread.Title;
        ThreadPTitle := Thread.Thread.ParentBoard.Title;
        ThreadScrollTop := Thread.Thread.ScrollTop;
@@ -3849,7 +3854,8 @@ begin
                        if ThreadItem.ParentBoard.UnRead < 0 then ThreadItem.ParentBoard.UnRead := 0;
                        TreeView.Refresh;
                end;
-        }
+               }
+
                if(FActiveContent <> nil) and (FActiveContent <> Thread) then begin
                        if (FActiveContent.Browser <> BrowserNullTab.Browser) then
                                ShowWindow(FActiveContent.Browser.Handle, SW_HIDE);
@@ -6457,6 +6463,7 @@ begin
                                TBrowserRecord(BrowserTab.Tabs.Objects[idx]).Repaint := true;
                                FBrowsers.Move(BROWSER_COUNT - 1, 0);
                        end;
+                       MoveWindow(TBrowserRecord(BrowserTab.Tabs.Objects[idx]).Browser.Handle, 0, 0, BrowserPanel.Width, BrowserPanel.Height, false);
                        TOleControl(TBrowserRecord(BrowserTab.Tabs.Objects[idx]).Browser).BringToFront;
 //                     GikoSys.OnlyAHundredRes := TBrowserRecord(BrowserTab.Tabs.Objects[idx]).OnlyHundred;
 //                     OnlyAHundredRes.Checked := TBrowserRecord(BrowserTab.Tabs.Objects[idx]).OnlyHundred;
@@ -11851,14 +11858,10 @@ 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);
+       if (FActiveContent <> nil) and (FActiveContent.Browser <> nil) then begin
+               MoveWindow(FActiveContent.Browser.Handle, 0, 0, NewWidth, NewHeight, false);
        end;
-
 end;
 
 initialization