No me pinta boton

[JoseLuis]

Hola amigos y Feliz Año

Llevo un buen rato y algo se me escapa, porqué no me pinta el Button

**********************
FUNCTION Canon()
local oDlg,oBrw,ocurdedo
local aAlias,oboton
aAlias:= cargaAlias()
dbUseArea(.T.,,Publicas:cUnidad+"\Canon",aAlias[12],.F.)
(aAlias[12])->(ordSetfocus("numero"))

DEFINE CURSOR oCurDedo RESOURCE "Dedo"
DEFINE DIALOG oDlg FROM 0,0 TO 18, 33 TITLE "INCREMENTO EN FACTURAS"
TWBrowse():lHScroll:= .F.
@ 0,0 LISTBOX oBrw ;
FIELDS Transform((aAlias[12])->Numero,"@!") , ;
Transform((aAlias[12])->Nombre,"@!"),;
transform((aAlias[12])->Tipo,"@E 999.99"),;
transform((aAlias[12])->Forma,"@!");
OF oDlg SIZE 250,250;
HEADER "Numero","Nombre","Tipo", "(L/P)" ;
SIZES 50,120,50,50;
ALIAS aAlias[12] ;
CURSOR oCurdedo;
PIXEL

@ oBrw:nHeight+20,10 BUTTON "Agrega" OF oDlg PIXEL ;
ACTION (oBrw:Edit() ) SIZE 50,Nil

oBrw:nClrForeHead := CLR_WHITE
oBrw:nClrBackHead := CLR_BLUE
oBrw:nClrPane:={||iIF((oBrw:cAlias)->(OrdKeyNo())%2==0,nRGB(242,247,252),nRGB(226,226,208))}
oBrw:nClrfBack := RGB(3,187,85)
oBrw:aJustify := {.F.,.F.,.T.,.F.}
oBrw:aHJustify := {2,2,2,2}
oBrw:lAutoEdit := .t.
oBrw:lAdjLastCol:= .f.
oBrw:Set3DStyle()

ACTIVATE DIALOG oDlg CENTERED ON PAINT (oBrw:nHeight:=oDlg:nHeight-82)
oCurDedo:End()
(aAlias[12])->(Dbclosearea())
return nil
*********

Saludos y Gracias

Jose Luis

[Armando]

José Luis:

Será porque estas intentando pintar el botón usando las coordenadas del Browse ?
@ oBrw:nHeight+20,10 BUTTON "Agrega" OF oDlg PIXEL ;

y creo que debes pintarlo sobre las coordenadas del diálogo
@ 20,10 BUTTON "Agrega" OF oDlg PIXEL ;

Saludos, Armando