FiveTech Software tech support forums

Estimado José,

oRb:ASizes es un array con el ancho de cada pestaña

... is "too much" ... just want that hole Text "fit" p.s. "where" is the CODE for it --- CLASS TFolderEx() have    DATA aSizes but i can not "see" Value assign to aSizes := --- METHOD PaintLR() have   nTextW = GetTextWidth() but PaintTB() not ... --- ...

CLASS TRibbonBar FROM TControl CLASSDATA lRegistered AS LOGICAL DATA oBold, oFont DATA aLeft DATA aPrompts DATA aDialogs DATA aSizes DATA aGrad DATA aGradFld DATA aGradOver DATA aGradHigh DATA aQuickRGrad DATA nQuickHigh INIT 32 <---- New METHOD Paint() CLASS TRibbonBar ... if ::aQuickRGrad ...

Dear Hua,

Please check DATA aSizes

... last artifact goes away: We change this: case nType == 1 ...          GradientFill( hDCMem, nRow, nCol + 1 , nRow + ::nHeightFld - 1, nCol +  ::aSizes[ nPrompt ], aGradFld )   into this:          GradientFill( hDCMem, nRow, nCol, nRow + ::nHeightFld - 1, nCol +  ::aSizes[ nPrompt ], aGradFld ...

... ADel(<aArray>,<nElement>,[<lShrink>])->aTarget ADir([<cFileSpec>],[<aFilenames>],[<aSizes>],[<aDates>],[<aTimes>],[<aAttributes>])->nFiles ADSBlob2File(cFileName,cFieldName)->lSuccess ADSClearAOF()->Nil ...

... ), 16, 16 ) */ Sería interesante poder modificar el BARHEIGHT de la clase con un parametro para poder hacer el cambio sin tocar la clase. el oTab:aSizes solo guarda el ancho del tab pero no el alto muchas gracias

Prueba a modificar:

oTabs:aSizes[ nTab ] := nNuevoAncho
...
oTabs:Refresh()

tendrás que hacerlo para cada una de los tabs

... ) -> dNewDate ADel(<aArray>, <nElement>, [<lShrink>]) -> aTarget ADir([<cFileSpec>], [<aFilenames>], [<aSizes>], [<aDates>], [<aTimes>], [<aAttributes>]) -> nFiles AEval(<aArray>, <bBlock>, [<nStart>], [<nCount>]) ...

... de la CLASE) Sin embargo, luego aparece en el METHOD CalcPos (linea 976 en mi version FWH 12.03) METHOD CalcPos() CLASS TRibbonBar local n, j ::ASizes := {} AFill( ::aLeft, 0 ) for n = 1 to Len( ::aDialogs ) AAdd( ::aSizes, If( ::aVisible[ n ], GetTextWidth( 0, StrTran( ::aPrompts[ n ], "&", ...

... Memo Ihave a xbrowse with .... @ 0, 0 XBROWSE oBrwLook OF oDlgLook SIZE -1,-20 PIXEL ; DATASOURCE cdbf ; COLUMNS aFields HEADERS aNames COLSIZES aSizes for n := 1 to Len( oBrwLook:aCols ) if oBrwLook:aCols[ n ]:cDataType == 'M' oBrwLook:aCols[ n ]:bStrData = GenLocalBlock( oBrwLook:aCols, n ) ...

... explain you I made this test : On this test I open clienti.dbf and set array for the field I wish to show I need to have this arrays (aCampi,aNomi,aSizes) to create the xbrowse Main Function test() aCampi := { "CODCF", "RAGSOC", "RAGSOC1", "INDIR" } aNomi:= ...

... and how I can to create acols from xbrowse ? I thiked this : LOCAL nLen := Len( oBrowse:aCols ) LOCAL aHeader [ nLen ] LOCAL aShow [ nlen ] LOCAL aSizes [ nLen ] LOCAL aArray [ nLen ] FOR n := 1 TO nLen aHeader [ n ] := oBrowse:aCols[ n ]:cHeader aShow [ n ] := ! oBrowse:aCols[ n ]:value aArray ...

... } aNomi:={"Codice","Ragione Sociale","Ragione Sociale2","Indirizzo Legale"} aSizes:= {50,250 ,200,100 } the test run but it not show the records #Include "Fivewin.ch"#include 'xbrowse.ch'#include "constant.ch"Function ...

... HB_FUNC( WBRWSELBOX )// ( hWnd, hDC, nRow, nFirstCol, nCurCol,; // lFocus, aSizes, hFont) { HWND hWnd = (HWND) hb_parnl( 1 ); HDC hDC = (HDC) hb_parnl( 2 ); WORD wRow = hb_parni( 3 ); WORD wIndex = hb_parni( 4 ); WORD wCol ...