FiveTech Software tech support forums

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



saludos

Es todo nativo de FWH

TPanel
SPLITTER
TExplorerBar
xBrowse

el espiral va en el splitter

Code: Select all  Expand view

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 !

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

revisare, los ejemplos

saludos
Muchas gracias

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

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

Imagen a mostrar:

Code: Select all  Expand view

// 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

       
   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.