Hello Programmers,

I wrote this little Print-Preview-Component within a day. The reason was that
I wanted to add preview capabilities to my app after designing the print procedures.
The comps I found in the web didn't fit my requirements (too complicated and too much
stuff) and so I created my one. 

So, feel free to use it. Send me a e-mail if it works : 


  lnie@bilfinger.de



Description:

 Use the instance of TAdvPrinter (maybe AdvPrinter1) like the "Printer" variable
 of the VCL. I mapped some Methods of the .Canvas property directly to the object:

 StretchDraw, LineTo, MoveTo, RecTangle, TextOut, TextHeight, TextWidth, Font, Brush,
 Pen

 Only these things will cause a preview effect. If you prefer to print directly, use the
 PrintDevice property.

 if you set the PreviewOnly property, the methods above have only effect on Preview.

 The Previews are Bitmaps size-dependent from the PaintBox you choose as Output. They
 are accessible from the Previews property.

 For Details in use see the added Demo app.



Greetings and fun with it!



CEVis
