Page 1 of 1

Picture and text in one column

Posted: Thu Jan 10, 2019 8:24 am
by Natter
Hi !

Is it possible to simultaneously display in one column xbrowsa the picture and the text ?

Re: Picture and text in one column

Posted: Thu Jan 10, 2019 2:18 pm
by nageswaragunupudi
Configure picture in one column and text in the next column and then use oColPic:SetColsAsRows( { n, n+ 1 } )

Sample:

Code: Select all | Expand

function XbrImageAndText()

   local cPath    := "c:\fwh\bitmaps\pngs\"
   local aDir     := DIRECTORY( cPath + "
*.png" )

   AEval( aDir, { |a| a[ 1 ] := cPath + a[ 1 ], a[ 2 ] := cFileNoExt( a[ 1 ] ) } )

   XBROWSER aDir COLUMNS { 1, 1, 2 } SETUP ( ;
      oBrw:nMarqueeStyle            := 2, ;
      oBrw:aCols[ 2 ]:cDataType     := "
F", ;
      oBrw:aCols[ 2 ]:nDataBmpAlign := AL_CENTER, ;
      oBrw:aCols[ 3 ]:nDataStrAlign := AL_CENTER, ;
      oBrw:aCols[ 3 ]:bClrStd       := { || { CLR_WHITE, CLR_GREEN } }, ;
      oBrw:aCols[ 2 ]:SetColsAsRows( { 2, 3 } ) ;
      )

return nil


Image

Re: Picture and text in one column

Posted: Thu Jan 10, 2019 8:22 pm
by Natter
Thanks, Mr.Rao !