Zoom action increment?

ehimmer

I've been using the standard WPTools zoom actions WPAZoomIn and WPAZoomOut. The zoom increments in steps of 20% when it is >= 100% and steps of 10% when it is <= 80%. The mouse wheel zoom steps vary and is not consistent, but that is probably OK. Is there anyway to set my own zoom values for the actions? Specifically when using the WPAZoomIn/Out actions and the current zoom level is >= 100%? (I'd like the actions to be consistent at 10% no matter what the current zoom level is (rounding at steps of 10%, so if it is at 105%, it would increment to 110% or decrement to 100%).

wpsupport

The zoom actions have been calibrated for a sensible zooming. It may not fit all needs, though. They use calls to SetZoomMode, mode -26 and -25.

You can check out

procedure TWPCustomRtfEdit.SetZoomMode(ZoomShortcutValue: Integer);

to see the code required to switch zoom settings.

Code

    -25: // ZoomIn      WPI_CO_ZoomIn
      begin
        if AutoZoom <> wpAutoZoomAdjustColumnCount then
          AutoZoom := wpAutoZoomOff;
        if Zooming > 200 then
          zdiff := 50
        else if Zooming >= 100 then
          zdiff := 20
        else
          zdiff := 10;
        if Zooming < 999 then
          Zooming := ((Zooming + zdiff + 1) div zdiff) * zdiff
        else
          Zooming := 1000;
      end;
    -26: // ZoomOut       WPI_CO_ZoomOut
      begin
        if AutoZoom <> wpAutoZoomAdjustColumnCount then
          AutoZoom := wpAutoZoomOff;
        if Zooming > 200 then
          zdiff := 50
        else if Zooming >= 100 then
          zdiff := 20
        else
          zdiff := 10;
        if Zooming > 10 then
          Zooming := ((Zooming - zdiff) div zdiff) * zdiff
        else
          Zooming := 10;
      end;

Alles anzeigen