* This class uses a little trick to give the _screen tappable events >DEFINE CLASS logo AS image > oscr = _SCREEN > > PROCEDURE Init > * Find a file for this object > lcFile = iif(file('ArsLogo.bmp'), 'ArsLogo.bmp', iif(file('ArsLogo.gif'), ; > 'ArsLogo.gif', iif(file('ArsLogo.jpg'), 'ArsLogo.jpg', iif(file('ArsLogo.jpeg'), ; > 'ArsLogo.jpeg', '')))) > if not empty(lcFile) > this.Picture = lcFile > else > return .F. > endif > this.Position() > ENDPROC > > PROCEDURE oscr.Resize > * This assumes the object was added to the screen as "oLogo" > this.oLogo.Position() > ENDPROC > > PROCEDURE Position > * Position this image where it should be > with this > .Left = _screen.width / 2 - .width / 2 > .Top = _screen.height / 2 - .Height / 2 > endwith > ENDPROC > >ENDDEFINE