aquí os dejo un ejemplo sencillo de imágenes en un xBrowse.
- Code: Select all Expand view
#include "fivewin.ch"
Function Main()
CountryTable()
Return nil
//----------------------------------------------------------------------------//
Function CountryTable()
local oDlgXls, oBrw, oFont
local aArray:= {}
aadd( aArray, { "", "AD", "ANDORRA" } )
aadd( aArray, { "", "AT", "AUSTRIA" } )
aadd( aArray, { "", "BE", "BELGICA" } )
aadd( aArray, { "", "BG", "BULGARIA" } )
aadd( aArray, { "", "CZ", "REPUBLICA CHECA" } )
aadd( aArray, { "", "DE", "ALEMANIA" } )
aadd( aArray, { "", "DK", "DINAMARCA" } )
aadd( aArray, { "", "EE", "ESTONIA" } )
aadd( aArray, { "", "ES", "ESPAÑA" } )
aadd( aArray, { "", "FI", "FINLANDIA" } )
aadd( aArray, { "", "FR", "FRANCIA" } )
aadd( aArray, { "", "GR", "GRECIA" } )
aadd( aArray, { "", "HR", "CROACIA" } )
aadd( aArray, { "", "HU", "HUNGRIA" } )
aadd( aArray, { "", "IE", "IRLANDA" } )
aadd( aArray, { "", "IT", "ITALIA" } )
aadd( aArray, { "", "LT", "LITUANIA" } )
aadd( aArray, { "", "LU", "LUXEMBURGO" } )
aadd( aArray, { "", "LV", "LETONIA" } )
aadd( aArray, { "", "MT", "MALTA" } )
aadd( aArray, { "", "NL", "HOLANDA" } )
aadd( aArray, { "", "NO", "NORUEGA" } )
aadd( aArray, { "", "PL", "POLONIA" } )
aadd( aArray, { "", "PT", "PORTUGAL" } )
aadd( aArray, { "", "RO", "RUMANIA" } )
aadd( aArray, { "", "RS", "SERBIA" } )
aadd( aArray, { "", "RU", "RUSIA" } )
aadd( aArray, { "", "SE", "SUECIA" } )
aadd( aArray, { "", "SI", "ESLOVENIA" } )
aadd( aArray, { "", "SK", "ESLOVAQUIA" } )
aadd( aArray, { "", "UA", "UCRANIA" } )
aadd( aArray, { "", "UK", "REINO UNIDO" } )
DEFINE FONT oFont NAME 'Arial' SIZE 0,-12 BOLD
DEFINE DIALOG oDlgXls SIZE 300,600 PIXEL FONT oFont TITLE 'Tabla paises'
@ 0,0 XBROWSE oBrw OF oDlgXls columns {1,2,3} Array aArray sizes {100,50,200} HEADERS {"BANDERA","SIM","PAIS"} LINES CELL NOBORDER AUTOCOLS AUTOSORT
oBrw:nMarqueeStyle := 1
oBrw:nRowHeight := 40
WITH OBJECT oBrw
:nRowDividerStyle = LINESTYLE_BLACK
:nColDividerStyle = LINESTYLE_BLACK
:nMarqueeStyle = MARQSTYLE_HIGHLROW
END
oBrw:aCols[ 1 ]:nEditType := TYPE_IMAGE
oBrw:aCols[ 1 ]:lBmpStretch := .F.
oBrw:aCols[ 1 ]:lBmpTransparent := .F.
oBrw:aCols[ 1 ]:bStrImage := {|oCol, oBrw| oBrw:aRow[ 2 ] }
oBrw:aCols[ 1 ]:nDataBmpAlign := AL_CENTER
oBrw:aCols[ 1 ]:bAlphaLevel := { | o | o:oBrw:aRow[ 3 ] }
oDlgXls:oClient := oBrw
oBrw:CreateFromCode()
ACTIVATE DIALOG oDlgXls CENTERED ON INIT oDlgXls:Resize()
Return NIL
//----------------------------------------------------------------------------//
El fichero con el fuente y los recursos lo tenéis en
https://bitbucket.org/fivetech/fivewin-contributions/downloads/Flags.zip
Es un ejemplo muy sencillo.
Saludos
