Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/Giko.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 4 |
|
|
| 5 |
uses |
uses |
| 6 |
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, |
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, |
| 7 |
OleCtrls, ComCtrls, ExtCtrls, Menus, StdCtrls, MMSystem, DateUtils, |
OleCtrls, ComCtrls, ExtCtrls, Menus, StdCtrls, MMSystem, DateUtils, Math, |
| 8 |
{$IF Defined(DELPRO) } |
{$IF Defined(DELPRO) } |
| 9 |
SHDocVw, |
SHDocVw, |
| 10 |
MSHTML, |
MSHTML, |
| 7168 |
Wnd: THandle; |
Wnd: THandle; |
| 7169 |
delta: Integer; |
delta: Integer; |
| 7170 |
// msg: TMessage; |
// msg: TMessage; |
| 7171 |
|
const |
| 7172 |
|
ICON_SIZE = 16; |
| 7173 |
begin |
begin |
| 7174 |
Handled := False; |
Handled := False; |
| 7175 |
Wnd := WindowFromPoint(MousePos); |
Wnd := WindowFromPoint(MousePos); |
| 7184 |
BrowserTab.ScrollTabs(Delta); |
BrowserTab.ScrollTabs(Delta); |
| 7185 |
end else if Wnd = ListView.Handle then begin |
end else if Wnd = ListView.Handle then begin |
| 7186 |
if ListView.ViewStyle = vsList then |
if ListView.ViewStyle = vsList then |
| 7187 |
ListView.Scroll( Delta * Mouse.WheelScrollLines * Abs( ListView.Font.Height ), 0 ) |
ListView.Scroll( Delta * Mouse.WheelScrollLines * Abs( ListView.Font.Height ) + Delta * ICON_SIZE, 0 ) |
| 7188 |
else |
else |
| 7189 |
ListView.Scroll( 0, Delta * Mouse.WheelScrollLines * Abs( ListView.Font.Height ) ); |
ListView.Scroll( 0, Delta * Mouse.WheelScrollLines * Abs( ListView.Font.Height ) + Delta * ICON_SIZE ); |
| 7190 |
end else begin |
end else begin |
| 7191 |
Handled := False; |
Handled := False; |
| 7192 |
end; |
end; |
|
|
Legend:
| Removed from v.1.116 |
|
| changed lines |
| |
Added in v.1.117 |
|
|
| |