>*---------------------------------------- >* 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 ) >