Procedure

TfrmTemplateDialog.FormMouseWheel

Module

fTemplateDialog

Last Modified

7/15/2014 3:26:44 PM

Visibility

Public/Published

Owner

TfrmTemplateDialog

Declaration

procedure FormMouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);


Source

742   procedure TfrmTemplateDialog.FormMouseWheel(Sender: TObject; Shift: TShiftState;
743     WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
744   begin
745     If RectContains(sbMain.BoundsRect, SbMain.ScreenToClient(MousePos)) then
746     begin
747       ScrollControl(sbMain, (WheelDelta > 0));
748       Handled := True;
749     end;
750   end;