余分な隠蔽行とかを整理削除

diff --git a/Giko.dfm b/Giko.dfm
index 0856983..f2e8439 100644 (file)
--- a/Giko.dfm
+++ b/Giko.dfm
@@ -1,6 +1,6 @@
 object GikoForm: TGikoForm
-  Left = 29
-  Top = 7
+  Left = 75
+  Top = 22
   HorzScrollBar.Visible = False
   VertScrollBar.Visible = False
   AutoScroll = False
@@ -552,7 +552,6 @@ object GikoForm: TGikoForm
           Align = alClient
           BevelOuter = bvNone
           TabOrder = 1
-          OnResize = ThreadPanelResize
           object BrowserPanel: TPanel
             Left = 0
             Top = 46
@@ -562,7 +561,7 @@ object GikoForm: TGikoForm
             BevelOuter = bvNone
             UseDockManager = False
             TabOrder = 2
-            OnCanResize = BrowserPanelCanResize
+            OnResize = BrowserPanelResize
             object Browser: TWebBrowser
               Left = 0
               Top = 0

diff --git a/Giko.pas b/Giko.pas
index f84c445..9ba09ad 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -919,14 +919,12 @@ type
     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);
     procedure MainCoolBarChange(Sender: TObject);
     procedure BrowserCoolBarChange(Sender: TObject);
     procedure ListCoolBarChange(Sender: TObject);
-    procedure ThreadPanelResize(Sender: TObject);
     procedure BrowserCoolBarResize(Sender: TObject);
     procedure ListCoolBarResize(Sender: TObject);
+    procedure BrowserPanelResize(Sender: TObject);
        private
                { Private \90é\8c¾ }
         //RoundList : TRoundList;
@@ -11814,51 +11812,26 @@ begin
        MouseGesture.SetHook(Handle);
 end;
 
-procedure TGikoForm.BrowserPanelCanResize(Sender: TObject; var NewWidth,
-  NewHeight: Integer; var Resize: Boolean);
-begin
-       if (FActiveContent <> nil) and (FActiveContent.Browser <> nil) then begin
-               MoveWindow(FActiveContent.Browser.Handle, 0, 0, NewWidth, NewHeight, false);
-       end;
-end;
-
 procedure TGikoForm.MainCoolBarChange(Sender: TObject);
 begin
        if not FStartUp then begin
-               //FIsIgnoreResize := rtNone;
-               //SaveCoolBarSettings;
         SaveMainCoolBarSettings;
        end;
 end;
 
 procedure TGikoForm.BrowserCoolBarChange(Sender: TObject);
 begin
-//     FIsIgnoreResize := rtNone;
-//     SaveCoolBarSettings;
        SaveBrowserCoolBarSettings;
 end;
 
 procedure TGikoForm.ListCoolBarChange(Sender: TObject);
 begin
-//     FIsIgnoreResize := rtNone;
-//     SaveCoolBarSettings;
        SaveBoardCoolBarSettings;
 end;
 
-procedure TGikoForm.ThreadPanelResize(Sender: TObject);
-begin
-       if not FStartUp then begin
-               FIsIgnoreResize := rtNone;
-               SaveCoolBarSettings;
-       end;
-
-end;
-
 procedure TGikoForm.BrowserCoolBarResize(Sender: TObject);
 begin
        if not FStartUp then begin
-               //FIsIgnoreResize := rtNone;
-               //SaveCoolBarSettings;
         SaveBrowserCoolBarSettings;
        end;
 end;
@@ -11866,13 +11839,19 @@ end;
 procedure TGikoForm.ListCoolBarResize(Sender: TObject);
 begin
        if not FStartUp then begin
-               //FIsIgnoreResize := rtNone;
-               //SaveCoolBarSettings;
         SaveBoardCoolBarSettings;
        end;
 
 end;
 
+procedure TGikoForm.BrowserPanelResize(Sender: TObject);
+begin
+       if (FActiveContent <> nil) and (FActiveContent.Browser <> nil) then begin
+               MoveWindow(FActiveContent.Browser.Handle, 0, 0, BrowserPanel.ClientWidth, BrowserPanel.ClientHeight, false);
+       end;
+
+end;
+
 initialization
                                OleInitialize(nil);
 finalization