FiveTech Software tech support forums

... and line 503 ::nWide_P := 22 Line 525 If( oPopup != nil, ::nWide_P, 0 ) //// My_modi If( oPopup != nil, 13, 0 ) Line 578 //::oWnd:nWidth := ::oWnd:nBtnWidth + If( ::oWnd:l3D, 3, 1 ) + 13 + 1 ::oWnd:nWidth := ::oWnd:nBtnWidth + If( ::oWnd:l3D, 3, 1 ) + ::nWide_P + 1 Line 1062 //if nCol >= ::nWidth() ...

... and line 503 ::nWide_P := 22 Line 525 If( oPopup != nil, ::nWide_P, 0 ) //// My_modi If( oPopup != nil, 13, 0 ) Line 578 //::oWnd:nWidth := ::oWnd:nBtnWidth + If( ::oWnd:l3D, 3, 1 ) + 13 + 1 ::oWnd:nWidth := ::oWnd:nBtnWidth + If( ::oWnd:l3D, 3, 1 ) + ::nWide_P + 1 Line 1062 //if nCol >= ::nWidth() ...

... the Window? The wiki shows:   @ <nRow>, <nCol> BUTTONBAR [<oBar>];   [SIZE <nWidth>, <nHeight>];   [BUTTONSIZE <nBtnWidth>, <nBtnHeight>];   [3D | 3DLOOK | _3D | _3DLOOK];   [TOP | LEFT | RIGHT | BOTTOM | FLOAT];   [OF | WINDOW | DIALOG <oWnd>]; ...

... := AL_RIGHT oBrowse:aCols[2]:nDataStrAlign := oBrowse:aCols[2]:DefStyle(AL_LEFT,.f.) oBrowse:aCols[2]:cHeader := 'Vencimento' oBrowse:aCols[2]:nBtnWidth := 30 oBrowse:aCols[2]:nWidth := 160 oBrowse:aCols[2]:cEditPicture := '@!' oBrowse:aCols[2]:bEditValue := {|| aParcelasModalidade[oBrowse:nArrayAt,3]} ...

... := '-' oBrwcp:aCols[10]:cBtnCaption := '-' oBrwcp:aCols[10]:cEditPicture := '@!' oBrwcp:aCols[10]:nWidth := 16 oBrwcp:aCols[10]:nBtnWidth := 12 oBrwcp:aCols[10]:nEditType := EDIT_GET_BUTTON oBrwcp:aCols[10]:bStrData := {|| ''} oBrwcp:aCols[10]:bEditBlock := {|| Produto_Bonificar_Menos( ...

... the button disappears. I made this change in class xbrowse, evaluate the interest in putting in the next versions of fivewin. oBrowse:aCols[1]:nBtnWidth := 30 oBrowse:aCols[1]:nWidth := 160 oBrowse:aCols[1]:cEditPicture := '@!' oBrowse:aCols[1]:nEditType := EDIT_GET_BUTTON oBrowse:aCols[1]:lUseBtnWidthEditOfCol ...

Implementado en la clase XBROWSE un TOOLTIP en el botón de columna, por ejemplo: oBrw:aCols[1]:nBtnWidth := 8 oBrw:aCols[1]:cBtnCaption := '$' oBrw:aCols[1]:cBtnToolTip := 'Recalcular o preço de venda' <-------------- NEW :D oBrw:aCols[1]:nEditType := EDIT_GET_BUTTON ...

method paintdata() class txcolumn if nType > 1 if ! Empty( aBitmap := ::aBitmap( ::nBtnBmp ) ) nBtnWidth := aBitMap[ BITMAP_WIDTH ] + 1 aBitmap := nil else nBtnWidth := 10 endif nButtonRow := nRow nButtonCol := nCol + nWidth - nBtnWidth // nWidth -= ( nBtnWidth + 5 ) ...

... the ON INIT clause only. This is not an issue but for clarification only. 2) While defining buttons, we get runtime errors because oBar:l3D, oBar:nBtnWidth and oBar:nBtnHeight remain nil. I suggest assigning suitable default values for l3D, nWith and nHeight in the method Redefine(). Because the ...

FWH 12.08:
It is enough to assign appropriate values to
oCol:cBtnCaption
and
oCol:nBtnWidth

Rest is taken care by xbrowse.

... not transparent, (8) New: samples\xblstgrd.prg: Control derived from xBrowse to switch List View/GridView (9) New DATAs for XBrowse Column Object: nBtnWidth, cBtnCaption. When specified edit-button uses the caption and/or btnwidth. * Enhancement: new clause MULTILINE for @ ..., ... BUTTON to support ...

And in this line its size can be changed:

::oBtnElip:Move( nButtonRow, nButtonCol, nBtnWidth + 1, nHeight, .f.)

If those changes are fine, then we can see how to set it from your app, instead of modifying the Class source code.

sorry I made a mistake this is the good ch #xcommand DEFINE METRO <oMtr> ; [ BACKGROUND <cFileName> ] ; [ BTNSIZE <nBtnWidth>, <nBtnHeight> ] ; [ TITLE <cTitle> ] ; [ SUBTITLE <cSubTitle> ] ; [ TO <nEndCol> ] ; [ USER <cUser> ] ; [ <Botton: ...

Antonio, error at : Ambiguous reference: 'PIXEL'

@ nX, nY BTNBMP oBtn ;
SIZE ( ::nBtnWidth * If( lLarge, 2, 1 ) ) + If( lLarge, 8, 0 ), ::nBtnHeight ;
PIXEL OF ::oWnd PROMPT cCaption NOBORDER

yo estoy utilizando la TTOOLBAR y no consigo redimensiona-la. Durante la execucion de lo programa mudo los valores de oToolbar1:nBtnWidth:= 300 , otoolbar1:nBtnHeight:=50 , otoolbar1:refresh() y no redimensiona corretamente la Toolbar. Si altero los otoolbar1:nWidth y otoolbar1:nHeight ...