// The following will give you complete control:
procedure TCmdForm.PageMemoWheelDown(Sender: TObject; Shift: TShiftState; // scroll-wheel down
MousePos: TPoint; var Handled: Boolean); // for line or image
begin
PageMemo.VertScrollBar.Position:= PageMemo.VertScrollBar.Position + 20; // + 20 is twips down
Handled:= true; // set to "true" over-rides system response // as one 12pt line
end;
procedure TCmdForm.PageMemoWheelUp(Sender: TObject; Shift: TShiftState; // scroll-wheel up
MousePos: TPoint; var Handled: Boolean); // for line or image
begin
PageMemo.VertScrollBar.Position:= PageMemo.VertScrollBar.Position - 20; // - 20 is twips up
Handled:= true; // set to "true" over-rides system response // as one 12pt line
end;
// set these as reactors to the page events
OnMouseWheelUp:= @PageMemoWheelUp; // controls image & text scrolling
OnMouseWheelDown:= @PageMemoWheelDown; // controls image & text scrolling
// the above is for when pages are built on-the-fly.
// normally you would just reference the procedures to the page events.
// as noted, this uses the same speed for images in the file;
// without them an image is treated as a line.