* 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