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
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()Espero me puedan ayudar, gracias
fwh 17.12, harbour 3.2.0, pelles C, bcc7, Ms-Sql
