Code: Select all | Expand
local ahBmp:={ReadBitmap( "bmp\si16.bmp" ), ReadBitmap( "bmp\no16.bmp" ) } @ 2,0 LISTBOX oBrw FIELDS Iif((Alicli)->vis_cli == .t. ,ahBmp[1],ahBmp[2] ) , str((alicli)->cod_cli,5) ,(alicli)->No2_cli ; COLSIZES 20,180,50 ; HEADERS "vis","Código","Nombre" ; SIZE 240,175 ; ON DBLCLICK Eligefichacli(); FONT ofont
Saludso.