topic-36692

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Show an Image on xbrowse Resolved!!
Posted: Wed Jan 30, 2019 04:56 PM

I made
WITH OBJECT oBrw:aCols[1]
:cDataType := 'F'
:nWidth := 80
:nDataBmpAlign := AL_CENTER
:lBmpTransparent := .T.
END

but not show the exactly image because the field have ".\images\OMBREL~2.PNG"
then I tried to insert

:bBmpData := { || lfn2sfn(rtrim( ( oBrw:cAlias )->ELIMGLIB)) }

but it make error

any solution ?

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

ukoenig

Posts: 4043

Joined: Wed Dec 19, 2007 06:40 PM

Re: Show an Image on xbrowse
Posted: Wed Jan 30, 2019 05:03 PM

from tDatabase-sample

oCol := oBrw:AddCol()
oCol:cHeader := "Married"
oCol:nHeadStrAlign := AL_CENTER
oCol:addbmpfile( c_path1 + "Checkon.bmp" ) // from Disk with path \bitmaps
oCol:addbmpfile( c_path1 + "Checkoff.bmp" ) // from Disk with path \bitmaps
oCol:bBmpData := {|| IIF( oCust:MARRIED = .T., 1, 2 ) }
oCol:bAlphaLevel := { || IF( oCust:DELETED(), 60, 255 ) } // alphalevel for bitmaps if deleted
oCol:bStrData := { || NIL }
oCol:nWidth := 70

regards
Uwe

Since 1995 ( the first release of FW 1.9 )

i work with FW.

If you have any questions about special functions, maybe i can help.

Baxajaun

Posts: 990

Joined: Wed Oct 19, 2005 02:17 PM

Re: Show an Image on xbrowse
Posted: Wed Jan 30, 2019 05:50 PM

Hi Silvio,

here you are a small sample.

Code (fw): Select all Collapse

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 400,500 PIXEL FONT oFont TITLE 'Tabla paises'  
   
   oDlgXls:lHelpIcon := .F.
   
   @ 0,0 XBROWSE oBrw OF oDlgXls columns {1,2,3} Array aArray sizes {100,100,200} HEADERS {"BANDERA","SIMIL","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

Images are from resources.

Best regards

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: Show an Image on xbrowse
Posted: Wed Jan 30, 2019 06:20 PM

made
WITH OBJECT oBrw:aCols[1]
:cDataType := 'F'
:nWidth := 80
:nDataBmpAlign := AL_CENTER
:lBmpTransparent := .T. // not required
END

This is correct.

made
but not show the exactly image because the field have ".\images\OMBREL~2.PNG"

Give full path and name of the image. If XBrowse can read the file, it will display the image.

made
then I tried to insert

:bBmpData := { || lfn2sfn(rtrim( ( oBrw:cAlias )->ELIMGLIB)) }

but it make error

This is meaningless. So the error.

Regards

G. N. Rao.

Hyderabad, India

Silvio.Falconi

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Re: Show an Image on xbrowse
Posted: Wed Jan 30, 2019 08:10 PM

Sorry I make an mostake
I saw the archive I have is wrong
the image showed is right

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

FiveTech Support Forums

Continue the discussion