MouseWheel in FrxPreview

Comments

• gordk St.Catherines On. Canada.

  December 2007 edited 1:01PM

  you must write your own handler for the form on which the tfrxpreview componet is located.
  see the programmers manual creating a custom preview.
• sbdre

  December 2007 edited 1:01PM

  Thanks, works fine.
• calikmurat

  February 2008 edited 1:01PM

  tell mee too please. im beginner . how will i enable scroll in frxpreview ??
  thanks in advance
• hansluijten

  March 2009 edited 1:01PM

  calikmurat wrote: »

  tell mee too please. im beginner . how will i enable scroll in frxpreview ??
  thanks in advance

  
  I'm looking at exactly the same thing ... anyone?
• hansluijten

  March 2009 edited 1:01PM

  It's actually easier than I thought it would be to implement;
  
  Set the onMouseWheelDown and onMouseWheelUp events from the form that holds frxPreview.
  This works great on my reports (watch the -20 for down and 20 for up);
  
  

  procedure TForm1.[b]FormMouseWheelDown[/b](Sender: TObject; Shift: TShiftState;
    MousePos: TPoint; var Handled: Boolean);
  begin
    [b]frxPreview1.MouseWheelScroll(-20,false,false);[/b]
  end;
  
  procedure TForm1.[b]FormMouseWheelUp[/b](Sender: TObject; Shift: TShiftState;
    MousePos: TPoint; var Handled: Boolean);
  begin
    [b]frxPreview1.MouseWheelScroll(20,false,false);[/b]
  end;