topic-31657

Board index FiveWin para Harbour/xHarbour pequeño bug en tbar

Posts: 1516

Joined: Thu May 27, 2010 02:06 PM

pequeño bug en tbar
Posted: Wed Dec 02, 2015 04:38 PM

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 (fw): Select all Collapse

     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

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: pequeño bug en tbar
Posted: Tue Dec 15, 2015 01:18 AM

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

Code (fw): Select all Collapse

//      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

Regards

G. N. Rao.

Hyderabad, India

mastintin

Posts: 1516

Joined: Thu May 27, 2010 02:06 PM

Re: pequeño bug en tbar
Posted: Tue Dec 15, 2015 08:10 AM

Ok . Bug fix :-)
thanks mr.Nages.

FiveTech Support Forums

Continue the discussion