マウスホイールの動作の修正

diff --git a/Giko.pas b/Giko.pas
index c7e5bc9..c6fabbe 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -8852,31 +8852,30 @@ begin
        if (Wnd = BrowserTab.Handle) or
                 (Wnd = BrowserTab.Parent.Handle) then begin
                BrowserTab.ScrollTabs(Delta);
-       end;
-       { else begin
+       end else begin
                if FIsHandledWheel then begin
                        FIsHandledWheel := False;
                        Handled := False;
                end else begin
                        FIsHandledWheel := True;
-//                     if (FActiveContent <> nil) and (FActiveContent.Browser <> nil) then begin
+                       if (FActiveContent <> nil) and (FActiveContent.Browser <> nil) then begin
                                // TWebBrowser \82Ì Handle \82Æ\94ä\8ar\82µ\82Ä\82à\88ê\92v\82µ\82È\82¢\82Ì\82Å\8dÀ\95W\82Å TWebBrowser \82©\82Ç\82¤\82©\94»\92è
                                browserPos.X := 0;
                                browserPos.Y := 0;
                                Windows.ClientToScreen( Browser.Handle, browserPos );
-                               //if (Longword(Mouse.CursorPos.X - browserPos.X) >= Browser.Width)
-                               //or (Longword(Mouse.CursorPos.Y - browserPos.Y) >= Browser.Height) then begin
+                               if (Longword(Mouse.CursorPos.X - browserPos.X) >= Browser.Width)
+                               or (Longword(Mouse.CursorPos.Y - browserPos.Y) >= Browser.Height) then begin
 //                             or not FActiveContent.Browser.Focused then
                                        // TWebBrowser \82Í\96³\8cÀ\83\8b\81[\83v\82·\82é\82Ì\82Å\82»\82ê\88È\8aO\82È\82ç\83R\83\93\83g\83\8d\81[\83\8b\82É\91\97\90M
-                               //      SendMessage( Wnd, WM_MOUSEWHEEL, WheelDelta shl 16, (MousePos.X shl 16) or MousePos.Y );
-                               //end else begin
+                                       SendMessage( Wnd, WM_MOUSEWHEEL, WheelDelta shl 16, (MousePos.X shl 16) or MousePos.Y );
+                               end else begin
                                        Handled := False;
-                               //end;
-//                     end else begin
-//                             SendMessage( Wnd, WM_MOUSEWHEEL, WheelDelta shl 16, (MousePos.X shl 16) or MousePos.Y );
-//                     end;
+                               end;
+                       end else begin
+                               SendMessage( Wnd, WM_MOUSEWHEEL, WheelDelta shl 16, (MousePos.X shl 16) or MousePos.Y );
+                       end;
                end;
-       end;}
+       end;
 end;