control excede el tamaño cuando se corre el programa

[artu01]

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

Code: Select all  Expand view

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

[karinha]

\samples\barfrmrc.prg

Saludos.