topic-28735

Posts: 1048

Joined: Mon Oct 24, 2005 09:54 AM

Suggestion for XBROWSE
Posted: Tue Jun 24, 2014 11:58 AM

For variable width of the listbox i made the following changes in XBROWSE.

1. Adding this new data in CLASS TXBrwColumn

Code (fw): Select all Collapse

     DATA nLbxWidth INIT 0  //Width from Listbox

2. Change code in METHOD ShowBtnList( nKey ) CLASS TXBrwColumn

Code (fw): Select all Collapse

   
   nWidth   := max(::nWidth + 3,::nLbxWidth) //CHANGED BYTE-ONE 2014
   nCol     := if( ::nDisplayCol - 2 + nWidth > ::oBrw:BrwWidth() , ::nDisplayCol +  2 + ::nWidth - nWidth,::nDisplayCol - 2 )  //CHANGED BYTE-ONE 2014
   nHeight  := Len( ::aEditListTxt ) * ( FontHeight( ::oBrw, if(::oEditFont == NIL ,::oBrw:oFont,If( ValType( ::oEditFont ) == 'B', Eval( ::oEditFont ), ::oEditFont )) ) ) + 2 //CHANGED BYTE-ONE 2014

Regards,
Günther
---------------------------------
office@byte-one.com

FiveTech Support Forums

Continue the discussion