load a image into xbrowse

[Silvio.Falconi]

cDirImages := "bitmaps\simboli"

WITH OBJECT oApp:oGrid

WITH OBJECT oApp():oGrid:aCols[6]
:bStrImage := { || FIELD->E1 }
:aImgRect := { nil, nil, -40, nil }
END


but FIELD->E1 is a number and I have n that folder images name as 1.png,2.png....
Hiow I can load the image ?
I made :bStrImage := { ||cDirImages+ ltrim(str(FIELD->E1))+".png" } but not work

[karinha]

Code: Select all  Expand view

// \SAMPLES\XBRIMAG3.PRG

#include "fivewin.ch"

function Main()

   local oWnd, oBrw, oFont, oBold

   USE WWONDERS NEW

   DEFINE FONT oFont NAME "TAHOMA"  SIZE 0,-12
   DEFINE FONT oBold NAME "VERDANA" SIZE 0,-13 BOLD

   DEFINE WINDOW oWnd TITLE "Image and Text in same cell"
   oWnd:SetFont( oFont )

   @ 0,0 XBROWSE oBrw OF oWnd DATASOURCE "WWONDERS" ;
      COLUMNS "NAME","DETAILS" COLSIZES 200, 250 ;
      LINES NOBORDER

   WITH OBJECT oBrw
      :nRowHeight := 200
      WITH OBJECT :aCols[ 1 ]
         :bStrImage     := { || FIELD->IMAGE }
         :oDataFont     := oBold
         :nDataStrAlign := AL_CENTER + AL_BOTTOM
         :nDataBmpAlign := AL_CENTER
         :aImgRect      := { nil, nil, -40, nil }
      END
      //
      :CreateFromCode()
   END
   oWnd:oClient   := oBrw

   oWnd:nHeight   := 700


   ACTIVATE WINDOW oWnd CENTERED
   RELEASE FONT oFont, oBold

return nil
 

[Silvio.Falconi]

yes of course

but I use tdata

[nageswaragunupudi]

Code: Select all  Expand view

I made :bStrImage := { ||cDirImages+ ltrim(str(FIELD->E1))+".png" } but not work
 

Please try

Code: Select all  Expand view

:bStrImage := { ||cDirImages+ "\" + ltrim(str(FIELD->E1))+".png" }

but I use tdata

So?
Simply substitute FIELD->E1 with oDbf:e1

Code: Select all  Expand view

:bStrImage := { ||cDirImages+ "\" + ltrim(str(oDbf:E1))+".png" }

[Silvio.Falconi]

thanks Rao
the png are smaller and go up the previous column