Antonio:
Antes de passar o mouse:
http://img236.imageshack.us/img236/9161/imagem1mw1.jpgDepois de passar o mouse:
http://img236.imageshack.us/img236/2209/imagem2yk0.jpgFONTE:
Define Font fonte_ME Name 'Times New Roman' Size -0,24 BOLD
define window oWndc from 0, 0 TO 25, 70 ;
title "Controle de Mesas" MDICHILD OF oWnd vscroll icon oico COLOR EMP_MCOR,EMP_MCOR NOICONIZE
oWndc:maximize()
oGr:=TGroup():New( 00.7, 01, 04.8, nugro, "Consulta e Manutenção de Mesas:", oWndc, NIL, NIL, .F. , .F. , NIL )
@ 00.9,02 trsay "Mesa:" OF oWndc COLOR CLR_BLACK FONT fonte_ME SIZE 60,24
@ 02.3,11 get obtm VAR nmesa OF oWndc picture "999999" font fonte_ME RIGHT SIZE 90,28 SPINNER MIN 0 MAX nMaxMesa
ACTIVATE WINDOW oWndc MAXIMIZED
Grato Antonio
Aoki