topic-41497

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

load a image into xbrowse
Posted: Thu Mar 10, 2022 12:10 PM

cDirImages := "bitmaps\simboli"

WITH OBJECT oApp:oGrid

               WITH OBJECT  oApp():oGrid:aCols[6]
                   :bStrImage     := { || FIELD-&gt;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

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

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: load a image into xbrowse
Posted: Thu Mar 10, 2022 12:30 PM

Code (fw): Select all Collapse

// \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

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

Silvio.Falconi

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Re: load a image into xbrowse
Posted: Thu Mar 10, 2022 02:01 PM

yes of course

but I use tdata

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

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: load a image into xbrowse
Posted: Fri Mar 11, 2022 04:21 AM

Code (fw): Select all Collapse

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

Please try

Code (fw): Select all Collapse

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

but I use tdata

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

Code (fw): Select all Collapse

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

Regards

G. N. Rao.

Hyderabad, India

Silvio.Falconi

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Re: load a image into xbrowse
Posted: Fri Mar 11, 2022 08:51 AM

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

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