listbox y campo lógico

Post Reply
User avatar
Manuel Valdenebro
Posts: 706
Joined: Thu Oct 06, 2005 9:57 pm
Location: Málaga-España

listbox y campo lógico

Post by Manuel Valdenebro »

1) En un Listbox con _ 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
User avatar
Willi Quintana
Posts: 859
Joined: Sun Oct 09, 2005 10:41 pm
Location: Cusco - Perú
Contact:

Post by Willi Quintana »

.......
.......
REDEFINE LISTBOX oLbx :
FIELDS If(Base->campo_log, "1","2") ;
HEADERS "Estado" ;
.......
.......


Salu2
Willi Quintana
User avatar
Willi Quintana
Posts: 859
Joined: Sun Oct 09, 2005 10:41 pm
Location: Cusco - Perú
Contact:

Post 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
User avatar
Manuel Valdenebro
Posts: 706
Joined: Thu Oct 06, 2005 9:57 pm
Location: Málaga-España

Post 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
User avatar
Willi Quintana
Posts: 859
Joined: Sun Oct 09, 2005 10:41 pm
Location: Cusco - Perú
Contact:

Post 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:
User avatar
Willi Quintana
Posts: 859
Joined: Sun Oct 09, 2005 10:41 pm
Location: Cusco - Perú
Contact:

Post 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
User avatar
Manuel Valdenebro
Posts: 706
Joined: Thu Oct 06, 2005 9:57 pm
Location: Málaga-España

Post 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
Post Reply