Page 1 of 1
load a image into xbrowse
Posted: Thu Mar 10, 2022 12:10 pm
by 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
Re: load a image into xbrowse
Posted: Thu Mar 10, 2022 12:30 pm
by karinha
Code: Select all | Expand
// \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
Re: load a image into xbrowse
Posted: Thu Mar 10, 2022 2:01 pm
by Silvio.Falconi
yes of course
but I use tdata
Re: load a image into xbrowse
Posted: Fri Mar 11, 2022 4:21 am
by nageswaragunupudi
Code: Select all | Expand
I made :bStrImage := { ||cDirImages+ ltrim(str(FIELD->E1))+".png" } but not work
Please try
Code: Select all | Expand
:bStrImage := { ||cDirImages+ "\" + ltrim(str(FIELD->E1))+".png" }
but I use tdata
So?
Simply substitute FIELD->E1 with oDbf:e1
Code: Select all | Expand
:bStrImage := { ||cDirImages+ "\" + ltrim(str(oDbf:E1))+".png" }
Re: load a image into xbrowse
Posted: Fri Mar 11, 2022 8:51 am
by Silvio.Falconi
thanks Rao
the png are smaller and go up the previous column