FiveTech Software tech support forums

Raymundo...

los botones "nativos" de la ribbon son de la clase TRBTN (aunque podemos usar cualquier control dentro de la ribbon, es una gran ventaja que tiene sobre otros), la data que hace lo que necesitas es ::lSelected y se pintara segun code block bClrGradSelectPress

... PalBmpFree( h ) return DeleteObject( h ) static function Ribbon() ? "Hola" return nil Procedure ChangeSelect( aObj ) local n aObj[ 1 ]:lSelected := .t. for n = 2 to len( aObj ) aObj[ n ]:lSelected := .f. aObj[ n ]:Refresh() next return Function ChangeBmp( oBmp ) static lWork if lWork ...

... SAYBUTTON @ 10, 05 ADD BUTTON oBtn5 GROUP oGr1 BITMAP ".\bitmaps\bold16.bmp" GROUPBUTTON FIRST SIZE 25, 20 ROUND ; ACTION ( oBtn5:lSelected := !oBtn5:lSelected, Fuentes( 1 ) ) @ 10, 30 ADD BUTTON oBtn6 GROUP oGr1 BITMAP ".\bitmaps\italic16.bmp" GROUPBUTTON SIZE 25, 20 ...

... y END @ 10, 30 ADD BUTTON oBtn6 GROUP oGr1 BITMAP "..\bitmaps\italic16.bmp" GROUPBUTTON FIRST SIZE 25, 20 ROUND ; ACTION( oBtn6:lSelected := !oBtn6:lSelected ) @ 10, 55 ADD BUTTON oBtn7 GROUP oGr1 BITMAP "..\bitmaps\underline16.bmp" GROUPBUTTON SIZE 35, 20 ROUND Popup ...

... no estar poniendo if a todos nuestros bStrData podriamos modificar unas lineas en este metodo METHOD PaintData( nRow, nCol, nHeight, lHighLite, lSelected, nOrder ) CLASS TXBrwColumn local hDC, hBrush local oFont local aColors, aBitmap local cData local nWidth, nBmpRow, nBmpCol, nBmpNo, nButtonRow, ...

... ] else nBtnWidth := 10 endif nButtonRow := nRow nButtonCol := nCol + nWidth - nBtnWidth nWidth -= ( nBtnWidth + 5 ) . . . . if nType > 1 if lSelected WndBoxRaised(hDC, nButtonRow -1 , nButtonCol - 1,; nButtonRow + nHeight, nButtonCol + nBtnWidth + 1 ) if nType == EDIT_LISTBOX .or. nType ...

right and I made on function Show LOCAL nPage := AScan( oOutLook:aGroups, { | o | o:lSelected } ) LOCAL nAllPages := Len (oOutLook:aGroups) FOR i := 1 TO nAllPages IIF (Valtype (aCtrl[i]) ="O",aCtrl[i]:Hide(), ) NEXT nTop = oWnd:nHeight - ( Len(oOutLook:aGroups ) ...

... FUNCTION TESTDLG(oWnd,oDlg,oOutL2003) LOCAL nPage := AScan( oOutL2003:aGroups, { | o | o:lSelected } ) LOCAL nAllPages := Len (oOutL2003:aGroups) LOCAL oCtrl, i , oBtn1, oBtn2, oSplit1 LOCAL hDC :=oDlg:getdc() LOCAL oLbx,oFont, aTEIL1, aTEIL2 ...

... 5) //----------------------------------------------------------------------------// METHOD PaintData( nRow, nCol, nHeight, lHighLite, lSelected, nOrder ) CLASS TXBrwColumn hDC := ::oBrw:GetDC() oFont := ::oDataFont if ::bFntRowData != nil oFont := Eval( ::bFntRowData ) endif //----------------------------------------------------------------------------// ...

... next i2 eval(::bSkip) end ::adjust() ::GoTop() ::Refresh() Return Nil 3. Auto multi lines data METHOD PaintData( nRow, nCol, nHeight, lHighLite, lSelected, nOrder ) CLASS TXBrwColumn ... SetBkColor( hDC, aColors[ 2 ] ) // add the line ::nDataStyle := ::DefStyle( ::nDataStrAlign, (::obrw:dataheight()/::DataHeight()<2 ...