Wie Smooth-Scrollen in TJvPreViewControl? Jedi

[BrunoT]

Hi DPler,

Problem: in TJvPreViewControl (Jedi-Jvcl) will ich mit der Wheel-Maus langsam scrollen.
ich habe folgendes versucht:

Delphi-Quellcode:

procedure TFStBerechng.JvPreViewMouseWheelDown(Sender: TObject;
  Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
  with (Sender as TJvPreViewControl) do
    VertScrollBar.Position:= VertScrollBar.Position+10;
end;

procedure TFStBerechng.JvPreViewMouseWheelUp(Sender: TObject;
  Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
  with (Sender as TJvPreViewControl)Do
    VertScrollBar.Position:= VertScrollBar.Position-10;
end;

aber irgendwie ignoriert TJvPreViewControl diese Anweisungen und springt seitenweise.
Kennt jemand eine Lösung?

mfg