>>PUBLIC oform1 >> >>oform1=NEWOBJECT("form1") >>oform1.Show >>RETURN >>************************************************** >>*-- Form: form1 (c:\form1.scx) >>*-- ParentClass: form >>*-- BaseClass: form >>*-- Time Stamp: 02/11/05 09:00:04 AM >>* >>DEFINE CLASS form1 AS form >> DoCreate = .T. >> Caption = "Form1" >> Name = "Form1" >> ADD OBJECT pageframe1 AS pageframe WITH ; >> ErasePage = .T., ; >> PageCount = 2, ; >> Top = 60, ; >> Left = 36, ; >> Width = 325, ; >> Height = 185, ; >> Name = "Pageframe1", ; >> Page1.Caption = "Page1", ; >> Page1.Name = "Page1", ; >> Page2.Caption = "Page2", ; >> Page2.Name = "Page2" >> ADD OBJECT form1.pageframe1.page1.shape1 AS shape WITH ; >> Top = 44, ; >> Left = 47, ; >> Height = 85, ; >> Width = 241, ; >> Name = "Shape1" >> PROCEDURE Init >> o = thisform.pageframe1.page1.shape1 >> wleft = objtoclient(o,2) >> wtop = objtoclient(o,1) >> wwidth = objtoclient(o,3) >> wheight = objtoclient(o,4) >> define window wpreview at 0,0 size 1,1 in window form1 name wpreview >> with wpreview >> .left = wleft >> .top = wtop >> .width = wwidth >> .height = wheight >> .show() >> endwith >> ENDPROC >>ENDDEFINE >>* >>*-- EndDefine: form1 >>************************************************** >> >>>>