topic-40132

Posts: 1818

Joined: Wed Oct 26, 2005 02:49 PM

Brush en TDockPnel
Posted: Thu Mar 18, 2021 11:21 PM

Cristóbal buenas tardes, que pena molestar.

Pero quería saber si se puede usar una imagen "brush" como fondo en un panel de tu clase.

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: Brush en TDockPnel
Posted: Fri Mar 19, 2021 01:55 PM

Leandro, no es molestia. Es muy sencillo

Code (fw): Select all Collapse

      :SetCtrlsPnel( { | o, nT, nL, nH, nW, nR | o:SetBrush( oBrush ), ;
                                                                    XBrowsePnel( o, cArt, nR + 110, nL, nH - 158, nW ) } )

      :Activate()

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: 1818

Joined: Wed Oct 26, 2005 02:49 PM

Re: Brush en TDockPnel
Posted: Tue Mar 23, 2021 04:53 PM

Amigo, muchas gracias por responder.

Funciona de maravilla, era lo que necesitaba.

Pero ahora me surge otra pregunta

Puedo también emular de alguna manera el ON INIT de un dialogo, en un TDockPnel?

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: Brush en TDockPnel
Posted: Tue Mar 23, 2021 05:05 PM

Leandro, prueba con esto a ver

Code (fw): Select all Collapse

      :SetCtrlsPnel( { | o, nT, nL, nH, nW, nR | o:bInit := { || MyFunction() }, ;
                                                                    XBrowsePnel( o, cArt, nR + 110, nL, nH - 158, nW ) } )

      :Activate()

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