topic-45801

Natter

Posts: 1392

Joined: Mon May 14, 2007 09:49 AM

Vertical icon set

Posted: Mon Jul 14, 2025 08:19 AM

Hi !

Is it possible to show several vertically positioned icons (one above the other) in the xBrowse cell ?

cmsoft

Posts: 1344

Joined: Wed Nov 16, 2005 09:14 PM

Re: Vertical icon set

Posted: Mon Jul 14, 2025 11:50 AM

Es posible Juntando las columnas:

Code: Select all Collapse

REDEFINE XBROWSE oBrw DATASOURCE oQryBrw;
              COLUMNS "imagen1","imagen2","Numero","Nombre";
              HEADERS "","","Numero","Nombre",;
              SIZES 30,30,50,300;
              ID 111 OF oDlg 
     oBrw:aCols[1]:bStrData := {|| ""}
     oBrw:aCols[2]:bStrData := {|| ""}
     oBrw:aCols[1]:AddBitMap( 'BITMAPS\IMPOR.BMP' )
     oBrw:aCols[1]:AddBitMap( 'BITMAPS\PEND.BMP' )
     oBrw:aCols[2]:AddBitMap( 'BITMAPS\VISADA.BMP' )
     oBrw:aCols[2]:AddBitMap( 'BITMAPS\DISPO.BMP' )              
     oBrw:aCols[1]:SetColsAsRows( { 1,2} ) //Junto las columnas, por lo que te quedará uno debajo del otro
     ///... El resto de tu logica

Espero te sirva

Salu2
Cesar Gomez
https://www.bcnsoft.com.ar
https://www.pedidosbcn.com

Natter

Posts: 1392

Joined: Mon May 14, 2007 09:49 AM