Show an Image on xbrowse Resolved!!

Show an Image on xbrowse Resolved!!

Postby Silvio.Falconi » Wed Jan 30, 2019 4: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 ?
Last edited by Silvio.Falconi on Wed Jan 30, 2019 8:14 pm, edited 1 time in total.
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour November 2023 - January 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
User avatar
Silvio.Falconi
 
Posts: 6804
Joined: Thu Oct 18, 2012 7:17 pm

Re: Show an Image on xbrowse

Postby ukoenig » Wed Jan 30, 2019 5: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 :D
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.
User avatar
ukoenig
 
Posts: 4043
Joined: Wed Dec 19, 2007 6:40 pm
Location: Germany

Re: Show an Image on xbrowse

Postby Baxajaun » Wed Jan 30, 2019 5:50 pm

Hi Silvio,

here you are a small sample.
Code: Select all  Expand view
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.

Image

Best regards
User avatar
Baxajaun
 
Posts: 962
Joined: Wed Oct 19, 2005 2:17 pm
Location: Gatika. Bizkaia

Re: Show an Image on xbrowse

Postby nageswaragunupudi » Wed Jan 30, 2019 6: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
User avatar
nageswaragunupudi
 
Posts: 10259
Joined: Sun Nov 19, 2006 5:22 am
Location: India

Re: Show an Image on xbrowse

Postby Silvio.Falconi » Wed Jan 30, 2019 8: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 November 2023 - January 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
User avatar
Silvio.Falconi
 
Posts: 6804
Joined: Thu Oct 18, 2012 7:17 pm


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 20 guests