control excede el tamaño cuando se corre el programa
Posted: Mon Feb 15, 2021 12:54 am
Hola muchachos, no entiendo porque el control buttonbar se aprecia mas grande de lo normal?
imagenes online
en el pelles pueden notar que el control es mas pequeño que cuando se ejecuta el programa
source code
Espero me puedan ayudar, gracias
imagenes onlineen el pelles pueden notar que el control es mas pequeño que cuando se ejecuta el programa
source code
Code: Select all
REDEFINE BUTTONBAR oBar ID 100 OF oFld:aDialogs[3] 2007 TRANSPARENT
DEFINE BUTTON OF oBar PROMPT "Add" FILE "c:\1712\fwh\bitmaps\32x32\new.bmp" ACTION ( IIF(cCodpag='02', AddRow(oBrwC), MsgAlert("Condicion de pago no es a Credito")), oBrwC:SetFocus() )
DEFINE BUTTON OF oBar PROMPT "Delete" FILE "c:\1712\fwh\bitmaps\delete.bmp" ACTION ( IIF(cCodpag='02', DeleteRow(oBrwC), MsgAlert("Condicion de pago no es a Credito")), oBrwC:SetFocus() )
REDEFINE XBROWSE oBrwC ;
COLUMNS 1, 2 ;
HEADERS "Fecha","Importe" ;
COLSIZES 70, 100 ;
ARRAY {} LINES FASTEDIT CELL FOOTERS ;
ID 4018 OF oFld:aDialogs[3] ;
UPDATE
oBrwC:aCols[ 1 ]:nEditType := EDIT_GET
WITH OBJECT oBrwC:aCols[ 2 ]
:nEditType := EDIT_GET
:nFooterType := AGGR_SUM
:nFootStrAlign := AL_RIGHT
END
oBrwC:MakeTotals()