Cambiar icono TDockPnel tiempo ejecución

Posts: 1816

Joined: Wed Oct 26, 2005 02:49 PM

Cambiar icono TDockPnel tiempo ejecución
Posted: Mon Feb 21, 2022 08:40 PM

Buenas 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?

Code (fw): Select all Collapse

   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

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: Cambiar icono TDockPnel tiempo ejecución
Posted: Tue Feb 22, 2022 01:47 AM

Leandro

Code (fw): Select all Collapse

//----------------------------------------------------------------------------//
//
//----------------------------------------------------------------------------//

Function CreaDocks()

   oDock1  := TDockPnel():New( oWindow )
   WITH OBJECT oDock1
      :SetHeightCaption( 40 )
      :SetCoors( { | o | 10 }, { | o | 10 }, ;
                 { | o | Int( o:oWnd:nHeight / 2 ) + 54 }, ;
                 { | o | Int( o:oWnd:nWidth / 3 ) - XEVal( o:nLeft, o ) } )
      :SetCaption( { | o | "Title" } )
      :SetColors( METRO_RED, CLR_WHITE, Rgb( 88, 88, 88 ), CLR_HGRAY )
      :SetFont( oFont4 )
      :SetBorderSize( 1 )
      :SetSizeImgs( 48, 48, .F. )

      :SetImgsFiles( { { "..\bitmaps\32x32\notes.bmp", ;
                        { || oDock1:aBtnBmps[ 1 ]:SetImages( if( oDock1:lSelected, "..\bitmaps\32x32\notes.bmp", "\Fwh\bitmaps\32x32\checkbox.bmp" ) ), ;
                             oDock1:lSelected := !oDock1:lSelected }, "ToolTip" } } )

      :SetCtrlsPnel( { | o, nT, nL, nH, nW, oB | oB := Test1( o, nT, nL, nH, nW ) } )
      :bRClicked   := { || MsgInfo( oDock1:oWnd:aControls[ 1 ]:ClassName() ) }
      :Activate()
   END

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

leandro

Posts: 1816

Joined: Wed Oct 26, 2005 02:49 PM

Re: Cambiar icono TDockPnel tiempo ejecución
Posted: Tue Feb 22, 2022 10:42 AM

Excelente Cristo

Funciono la perfección, te molesto con otra cosilla que salió :oops: , es posible hacer lo mismo con el tooltip?

De antemano gracias

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: Cambiar icono TDockPnel tiempo ejecución
Posted: Wed Feb 23, 2022 11:10 PM

Si sabes como cambiar el tooltip a cualquier boton construído con Fw, entonces sabes como cambiarle el tooltip a estos botones, sólo has de saber como identificar esos objetos, y en mi ejemplo aparece cómo hacerlo:

oDock1:aBtnBmps[ 1 ]:

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

FiveTech Support Forums

Continue the discussion