Imagen en XBROWSE

[jbrita]

Buenos dias, cesar saque esta imagen tuya queria saber como poner esa imagen de cuadernillo



saludos

[sysctrl2]

Es todo nativo de FWH

TPanel
SPLITTER
TExplorerBar
xBrowse

el espiral va en el splitter

Code: Select all  Expand view  RUN

DEFINE BRUSH oBrush FILE PATH_BMPS + "spiral.bmp"
 60, oSelf:oPanelExplorer:nWidth + 2 SPLITTER oSelf:oVSplit ;
        VERTICAL ;
        PREVIOUS CONTROLS ::oBar,oSelf:oPanelExplorer ;
        HINDS CONTROLS oSelf:oPanelBrowse ;
        LEFT MARGIN 10 ;
        RIGHT MARGIN 80 ;
        SIZE 12, ScreenHeight() - 1 - 23;
        PIXEL ;
        COLOR rgb(255, 165, 0) ; //CLR_GRAY rgb(255, 165, 0)
        OF oParent UPDATE

   oSelf:oVSplit:SetBrush( oBrush )
 

Saludos !

[cnavarro]

Mira el ejemplo que puse hace ya unos años
viewtopic.php?f=17&t=34973&start=0#p208655

[jbrita]

revisare, los ejemplos

saludos
Muchas gracias

[jll-fwh]

Hola jBrita:

Aquí te dejo una opción mas y sencilla ( este ejemplo lo uso en arrays y si quieres también en BD dimelo:

Declaras el ancho y el número de lineas:

Code: Select all  Expand view  RUN

    oGrid:nRowHeight  := 100
    oGrid:nDataLines   := 4
 

Imagen a mostrar:

Code: Select all  Expand view  RUN

// Si quieres una imagen del disco
// oGrid:aCols[1]:AddBmpFile( , "c:\program\recursos\TuBitmapenelRecurso.bmp")

   oGrid:aCols[1]:AddBmpFile( "TuBitmapenelRecurso",)
   oGrid:aCols[1]:nHeadBmpAlign := AL_CENTER
   oGrid:aCols[1]:nDataStrAlign := AL_CENTER
   oGrid:aCols[1]:nHeadStrAlign := AL_CENTER
   oGrid:aCols[1]:nWidth        := 100
   oGrid:aCols[1]:cHeader       := "Portada"
   oGrid:aCols[1]:nHeadBmpNo    := 1
 

Para que se pueda mostrar la imagen de la portada en arrays, en BD no es necesario:

Code: Select all  Expand view  RUN

       
   WITH OBJECT oGrid:aCols[ 1 ]
        :cDataType  := "F"
   END

 

Mañana ya mirare mas consultas a ver si puedo ayudar, para hoy ya estoy reventado:

Un abrazo y que tengáis todos salud y felicidad;
Javier Lloris
javierllorisprogramador@gmail.com

Blogs personales:
Programación: https://javierlloris.blogspot.com/
Japonés: https://bitacorajaponesa.blogspot.com/
Cubos de Rubik: https://www.instagram.com/jllorisperson ... 2ybz0gmvul
Tengo una colección de unos 100 cubos de todo tipo de formas geométricas, todos resueltos, en instagram solo hay unos cuentos cubos.