Procedure

TfrmRemDlg.FormMouseWheel

Module

fReminderDialog

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public/Published

Owner

TfrmRemDlg

Declaration

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

Calls Hierarchy


TfrmRemDlg.FormMouseWheel
 └TfrmRemDlg.GetBox

Calls

Name Declaration Comments
TfrmRemDlg.GetBox function GetBox(Other: boolean = FALSE): TScrollBox; -


Source

429   procedure TfrmRemDlg.FormMouseWheel(Sender: TObject; Shift: TShiftState;
430     WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
431   var
432     box: TScrollBox;
433   begin
434     box := GetBox(TRUE);
435     If RectContains(box.BoundsRect, box.ScreenToClient(MousePos)) then
436     begin
437       ScrollControl(box, (WheelDelta > 0));
438       Handled := True;
439     end;
440   end;