>PUBLIC oform1 > >oform1=NEWOBJECT("form1") >oform1.Show >RETURN > >DEFINE CLASS form1 AS form > > > desktop = .t. > autocenter = .t. > Height = 581 > Width = 765 > DoCreate = .T. > Caption = "Form1" > Name = "Form1" > > > PROCEDURE Init > #define numero 20 > > this.AddProperty([posti(numero)],null) > > stepAngle = 2*PI()/numero > XCenter = (this.width-60)/2 > YCenter = (this.height-60)/2 > radius = 200 > FOR k=1 TO numero > this.AddObject("posti["+LTRIM(STR(m.k))+"]","Posto") > WITH this.Controls[m.k] > > .Fillcolor = MOD(m.k,2)*255 > > .Rotation = RTOD(stepAngle*m.k) > > .Move(m.XCenter - m.radius*COS(m.stepAngle*m.k); > ,m.YCenter + m.radius*SIN(m.stepAngle*m.k)) > > .visible = .t. > ENDWITH > NEXT > > ENDPROC > > >ENDDEFINE > >DEFINE CLASS Posto AS Shape > * is need a square > heighT = 60 > width = 60 > backstyle = 0 > FillStyle = 0 > > DIMENSION aPoints(4,2) > aPoints = 30 > aPoints[2,1] = 70 > aPoints[3,1] = 70 > aPoints[3,2] = 70 > aPoints[4,2] = 70 > PolyPoints = "this.aPoints" > >ENDDEFINE >