・右上ペインのホイール移動量を調整。

diff --git a/Giko.pas b/Giko.pas
index e34b002..64eaed2 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -4,7 +4,7 @@ interface
 
 uses
        Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
-       OleCtrls,       ComCtrls, ExtCtrls, Menus, StdCtrls, MMSystem, DateUtils,
+       OleCtrls,       ComCtrls, ExtCtrls, Menus, StdCtrls, MMSystem, DateUtils, Math,
 {$IF Defined(DELPRO) }
        SHDocVw,                                                                                         
        MSHTML,
@@ -7168,6 +7168,8 @@ var
        Wnd: THandle;
        delta: Integer;
 //     msg: TMessage;
+const
+       ICON_SIZE = 16;
 begin
        Handled := False;
        Wnd := WindowFromPoint(MousePos);
@@ -7182,9 +7184,9 @@ begin
                BrowserTab.ScrollTabs(Delta);
        end else if Wnd = ListView.Handle then begin
                if ListView.ViewStyle = vsList then
-                       ListView.Scroll( Delta * Mouse.WheelScrollLines * Abs( ListView.Font.Height ), 0 )
+                       ListView.Scroll( Delta * Mouse.WheelScrollLines * Abs( ListView.Font.Height ) + Delta * ICON_SIZE, 0 )
                else
-                       ListView.Scroll( 0, Delta * Mouse.WheelScrollLines * Abs( ListView.Font.Height ) );
+                       ListView.Scroll( 0, Delta * Mouse.WheelScrollLines * Abs( ListView.Font.Height ) + Delta * ICON_SIZE );
        end else begin
                Handled := False;
        end;