Page 1 of 1

listbox y campo lógico

PostPosted: Thu Nov 17, 2005 8:13 pm
by Manuel Valdenebro
1) En un Listbox con varios campos quiero que se vea un campo lógico, pero sale en blanco.- ¿Hay que emplear algun comando de conversión?

2) En el caso de que quisiera sustituir el valor .t. por un bitmap y el .f. por otro, sería posible sin convertirlo en 1/2?

Gracias y un saludo para todos

Manuel

PostPosted: Fri Nov 18, 2005 12:53 am
by Willi Quintana
.......
.......
REDEFINE LISTBOX oLbx :
FIELDS If(Base->campo_log, "1","2") ;
HEADERS "Estado" ;
.......
.......


Salu2
Willi Quintana

PostPosted: Fri Nov 18, 2005 12:58 am
by Willi Quintana
UPS,,, aqui va con bmp`s

oBmpOn := LoadBitMap(GetResources(),"Chk1")
oBmpOff := LoadBitMap(GetResources(),"Chk0")
...
...
REDEFINE LISTBOX oLbx;
FIELDS If(Base->campo_logo, oBmpOn,oBmpOff) ;
HEADRES "Estado" ;
...
...

Salu2
Willi Quintana

PostPosted: Fri Nov 18, 2005 3:38 am
by Manuel Valdenebro
Gracias Willi por tu respuesta. La primera opción funcionó, pero no la segunda con los bitmaps:

local oBmpSi := LOADBitmap( GetResources(), "\fw23\bitmaps\level1.bmp" )
local oBmpNo := LoadBitmap( GetResources(), "\fw23\bitmaps\level2.bmp" )

.....

@ 1,1 LISTBOX oLbx FIELDS IF (visitas->PENDIENTE, ;
oBmpSi , oBmpNo ),;
...


Un saludo y gracias de nuevo

Manuel

PostPosted: Fri Nov 18, 2005 4:45 am
by Willi Quintana
Amigo.
Los BMP`s los debes tener en tu DLL o en tu RC, no en ficheros...

local oBmpOff := LoadBitMap(GetResources(),"Chk0")
local oBmpOn := LoadBitMap(GetResources(),"Chk1")

Chk0 y Chk1 son BMP`s que deben estar dentro del recurso xxxx.rc o xxxx.dll segun uses..

Salu2
Willi :lol:

PostPosted: Fri Nov 18, 2005 4:51 am
by Willi Quintana
Para cargar BMP`s desde ficheros seria : (aunque no lo uso)

local oBmpSi := LoadBmp("\fw23\bitmaps\level1.bmp" )
local oBmpNo := LoadBmp("\fw23\bitmaps\level2.bmp" )

.....

@ 1,1 LISTBOX oLbx ;
FIELDS IF (visitas->PENDIENTE, oBmpSi , oBmpNo ),;
...

Salu2
Willi :D

PostPosted: Fri Nov 18, 2005 5:16 pm
by Manuel Valdenebro
Willi, ahora, gracias a tí, si funciona, aunque he tenido que sustituir LoadBmp por ReadBitmap y ha quedado así:

local oBmpSi := ReadBitmap( 0, "\fw23\bitmaps\level1.bmp" )
local oBmpNo := ReadBitmap(0 "\fw23\bitmaps\level2.bmp" )

.....

@ 1,1 LISTBOX oLbx ;
FIELDS IF (visitas->PENDIENTE, oBmpSi , oBmpNo ),;
...


Muchas gracias por tu tiempo y ayuda.

Un saludo

Manuel