Page 1 of 1
listbox y campo lógico
Posted: 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
Posted: 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
Posted: 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
Posted: 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
Posted: 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
Posted: 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
Posted: 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