WITH .Page1.Container1 .Style = 3 .backstyle = 0 && add this .move(10,10,.Parent.Parent.PageWidth-20,.Parent.Parent.Pageheight-20) .Label1.move(10,10,.Width-20,.height-20) ENDWITH>
>PUBLIC oform1 > >oform1=NEWOBJECT("form1") >oform1.Show >RETURN > >DEFINE CLASS form1 AS form > > Height = 194 > Width = 339 > DoCreate = .T. > Caption = "Form1" > BackColor = RGB(255,0,0) > > PROCEDURE Resize > WITH this.Pageframe1 > .move(10,10,.Parent.Width-20,.Parent.height-20) > WITH .Page1.Container1 > .Style = 3 > .move(10,10,.Parent.Parent.PageWidth-20,.Parent.Parent.Pageheight-20) > .Label1.move(10,10,.Width-20,.height-20) > ENDWITH > ENDWITH > ENDPROC > > > PROCEDURE Init > this.AddObject('pageFrame1','pageframe') > WITH this.Pageframe1 > .PageCount = 1 > WITH .Page1 > .AddObject('Container1','container') > WITH .Container1 > .Style = 3 && <== Container is themed > .AddObject('Label1','label') > .Label1.Style = 3 && <== Label is themed > ENDWITH > ENDWITH > ENDWITH > this.SetAll('Visible',.T.) > this.Resize > ENDPROC > >ENDDEFINE >>