Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/Giko.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 6652 |
var |
var |
| 6653 |
Wnd: THandle; |
Wnd: THandle; |
| 6654 |
delta: Integer; |
delta: Integer; |
| 6655 |
|
msg: TMessage; |
| 6656 |
begin |
begin |
| 6657 |
Handled := False; |
Handled := False; |
| 6658 |
Wnd := WindowFromPoint(MousePos); |
Wnd := WindowFromPoint(MousePos); |
| 6659 |
|
Handled := True; |
| 6660 |
|
if WheelDelta > 0 then |
| 6661 |
|
Delta := -1 |
| 6662 |
|
else |
| 6663 |
|
Delta := 1; |
| 6664 |
|
|
| 6665 |
if (Wnd = BrowserTab.Handle) or |
if (Wnd = BrowserTab.Handle) or |
| 6666 |
(Wnd = BrowserTab.Parent.Handle) then begin |
(Wnd = BrowserTab.Parent.Handle) then begin |
|
if WheelDelta > 0 then |
|
|
Delta := -1 |
|
|
else |
|
|
Delta := 1; |
|
| 6667 |
BrowserTab.ScrollTabs(Delta); |
BrowserTab.ScrollTabs(Delta); |
| 6668 |
Handled := True; |
end else if Wnd = ListView.Handle then begin |
| 6669 |
|
ListView.Scroll( 0, Delta * 30 ); |
| 6670 |
|
end else begin |
| 6671 |
|
Handled := False; |
| 6672 |
end; |
end; |
| 6673 |
end; |
end; |
| 6674 |
|
|
|
|
Legend:
| Removed from v.1.35 |
|
| changed lines |
| |
Added in v.1.36 |
|
|
|