topic-43944

jbrita

Posts: 537

Joined: Mon Jan 16, 2006 03:42 PM

Imagen en XBROWSE
Posted: Fri Nov 24, 2023 01:10 PM

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

saludos

sysctrl2

Posts: 1144

Joined: Mon Feb 05, 2007 07:15 PM

Re: Imagen en XBROWSE
Posted: Fri Nov 24, 2023 11:09 PM

Es todo nativo de FWH

TPanel
SPLITTER
TExplorerBar
xBrowse

el espiral va en el splitter

Code (fw): Select all Collapse

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 !

Cesar Cortes Cruz

SysCtrl Software

Mexico

' Sin +- FWH es mejor "

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: Imagen en XBROWSE
Posted: Sat Nov 25, 2023 01:59 AM

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

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

jbrita

Posts: 537

Joined: Mon Jan 16, 2006 03:42 PM

Re: Imagen en XBROWSE
Posted: Sat Nov 25, 2023 11:35 PM

revisare, los ejemplos

saludos

Muchas gracias

jll-fwh

Posts: 408

Joined: Fri Jan 29, 2010 08:14 PM

Re: Imagen en XBROWSE
Posted: Tue Dec 12, 2023 08:46 PM

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 (fw): Select all Collapse

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

Imagen a mostrar:

Code (fw): Select all Collapse

// 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 (fw): Select all Collapse

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

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

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/jllorispersonal/?next=%2Falbarakatr%2Ffeed%2F&ref=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.

Libreria: FWH/FWH1109 + Harbour 5.8.2 + Borland C++ 5.8.2
Editor de Recursos: PellecC
ADA, OURXDBU
S.O: XP / Win 7 /Win10
Blog: http://javierlloris.blogspot.com.es/
e-mail: javierllorisprogramador@gmail.com

FiveTech Support Forums

Continue the discussion