Re: RichViewEdit and using small fonts

Return to index

Author

Message

Alexander Rumpfhuber

Posted: 07/17/2005 1:27:57

procedure TForm1.SwitchToDPI(dpi: integer);

begin

    RichViewPixelsPerInch := dpi; // global variable from RVFuncs unit

    richview1.Style.TextStyles.PixelsPerInch := dpi; // RVStyle linked with

richview

    richview1.reformat;

end;

For instance:

   SwitchToDPI(screen.pixelsperinch * 2);  //double DPI

Hope it helps...

Alex

"Alan" <aolson@bizwi.rr.com> wrote

> Is there any simple way to apply a zoom factor to the TRichViewEdit whereby

> i could still use the proper fonts and page settings, but the TRichViewEdit

> would "zoom in" by a factor of 2x?