*---------------------------------------- * The Simplest Preview Ever * Devcon example, (c) Colin Nicholls *---------------------------------------- _SCREEN.AddObject("Canvas","Shape") _SCREEN.Canvas.Width = 500 _SCREEN.Canvas.Height = 500 oRL = CREATEOBJECT("ReportListener") oRL.ListenerType = 3 REPORT FORM (HOME()+'tools\filespec\90frx.frx') OBJECT m.oRL oRL.OutputPage( 1, _SCREEN.Canvas, 2 )