drawlabel...

[FARLEY RIBEIRO]

alguém pode me ajudar.

Código: Selecionar todos

func marcos

LOCAL oWindow, nChoice

owindow:=wndinit(03,01,20,79,"CLIENTES")
WVW_DrawLabel( owindow, 06, 35, "CADASTRO", 6, 5, RGB(225,225,76), RGB(230,139,44), "Tahoma",,, 2 )
inkey( 0 )
mcor = substr("N/W,W/R,,,N/W+"+space(40),1,40)
do while (.t.)
   @ 10,02 say "Cor get:"
   @ 10,15 get mcor
   read
   if lastkey()=27
      exit
   endif
enddo

wndclose()

RETURN .t.