Picture and text in one column

[Natter]

Hi !

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

[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 view  RUN

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

[Natter]

Thanks, Mr.Rao !