PrintPreview.OnMouseWheel

Please post bug reports, feature requests, or any question regarding the DELPHI AREA products here.

PrintPreview.OnMouseWheel

Postby klin » February 24th, 2011, 6:43 pm

Hi, just a trifle - SB_LINEUP and SB_LINEDOWN in PrintPreview.OnMouseWheel are in wrong places.
They should be switched. And, if I can suggest, one line step is too small. This looks better:

Code: Select all
procedure TPrintPreview.WMMouseWheel(var Message: TMessage);
var I: Integer;
[...]
         if IsNeg then
         begin
            WheelAccumulator := -WheelAccumulator;
            case LoWord(Message.WParam) of
               MK_CONTROL: Zoom := Zoom - ZoomStep;
               MK_SHIFT, MK_MBUTTON: CurrentPage := CurrentPage + 1;
//               0: Perform(WM_VSCROLL, SB_LINEUP, 0);
               0: for I:= 0 to 4 do Perform(WM_VSCROLL, SB_LINEDOWN, 0); // klin
[...]
klin
Member
Member
 
Posts: 3
Joined: February 24th, 2011, 6:14 pm

Re: PrintPreview.OnMouseWheel

Postby Kambiz » February 25th, 2011, 4:25 pm

Thank you for informing the issue.
The suggestion accepted; it works much smoother indeed.
Kambiz
User avatar
Kambiz
Administrator
Administrator
 
Posts: 2408
Joined: March 7th, 2003, 7:10 pm


Return to DELPHI AREA Products

Who is online

Users browsing this forum: No registered users and 1 guest