pequeño bug en tbar

[mastintin]

Adjunto esta imagen para que se entienda mejor .

Cuando introducimos varios groups en un buttonbar desde redefine va aumentando el espacio entre botones ...
el codigo que produce esto :

Code: Select all | Expand

     REDEFINE BUTTONBAR oBar ID 4006 OF oDlg 2007

     oBar:bClrGrad := oApli:bColorBar
     oBar:nClrText = { | lInvert | If( ! lInvert,nRGB( 0, 0, 0 ), nRGB( 255, 255, 255 ) ) }

      DEFINE BUTTON OF oBar RESOURCE "scanner" ;
            ACTION .t.

     DEFINE BUTTON OF oBar GROUP RESOURCE "newAdobe " ;
            ACTION .t.

     DEFINE BUTTON OF oBar  GROUP RESOURCE "edit32"   ;
            ACTION .t.

     DEFINE BUTTON OF oBar GROUP RESOURCE "Printer32" ;
            ACTION  .t.

     DEFINE BUTTON OF oBar RESOURCE "imprifac" ;
            ACTION .t.
     DEFINE BUTTON OF oBar RESOURCE "papelera" ;
            ACTION  .t.

 

[nageswaragunupudi]

Please apply this fix at line 291 of Method Initiate() in bar.prg

Code: Select all | Expand

//      AEval( ::aControls, { |o| o:nLeft += n, o:nRight += n + ::nBtnWidth, n := o:nRight } )
      AEval( ::aControls, { |o| o:nLeft += n, n += ::nBtnWidth, o:nRight += n } )   // Bug Fix: 2015-12-15
 

[mastintin]

Ok . Bug fix
thanks mr.Nages.