Cambiar icono TDockPnel tiempo ejecución
Posted: Mon Feb 21, 2022 8:40 pmBuenas tardes para todos
En esta ocasión necesito poder cambiar algunos de los iconos que están en la cabecera del TDockPnel específicamente dos, los otros siempre van a ser fijos, las imágenes de momento las monto en el método SetImgsFiles(), pero quiero que al hacer clic en ocultar / mostrar se pueda cambiar el icono. Es posible?
En esta ocasión necesito poder cambiar algunos de los iconos que están en la cabecera del TDockPnel específicamente dos, los otros siempre van a ser fijos, las imágenes de momento las monto en el método SetImgsFiles(), pero quiero que al hacer clic en ocultar / mostrar se pueda cambiar el icono. Es posible?
- Code: Select all Expand view
oDock1 := TDockPnel():New( oWChCaCn )
WITH OBJECT oDock1
:SetHeightCaption( 50 )
:SetCoors( { | o | 10 }, ;
{ | o | 10 }, ;
{ | o | Int( o:oWnd:nHeight ) - 50 }, ;
{ | o | Int( o:oWnd:nWidth / 2 ) - XEVal( o:nLeft, o ) } )
:SetCaption( { | o | "Saldos Acumulados" } )
:SetColors( CLR_WHITE, Rgb( 0,120,215 ) , Rgb( 88, 88, 88 ), CLR_HGRAY )
:SetFont( oFont4 )
:lLeftImgs := .F.
:SetBorderSize( 4 )
:SetCtrlsPnel( { | o, nT, nL, nH, nW, oB | oB := fSaldos( o, nT, nL, nH, nW ) } )
:SetImgsFiles( { { oLamcla:cIcoBcBu, { | o | consaldocero() }, "Ocultar / Mostrar Con Saldo Cero" } ,;
{ oLamcla:cIcoBcBr, { | o | ("") }, "Borrar " },;
{ oLamcla:cIcoBcEd, { | o | eval(cbModi) }, "Modificar " },;
{ oLamcla:cIcoBcAg, { | o | mantenimiento(0) }, "Agregar " } } )
:bRClicked := { || MsgInfo( oDock1:oWnd:aControls[ 1 ]:ClassName() ) }
:Activate()
END
, es posible hacer lo mismo con el tooltip?