ImagenList en browse

[carloskds]

Estimados, no se si sea asi como lo diseñaro o un problemilla,
el caso es que en un browse agrego (del gestor de recursos) dos bitmap ( chk_on y chk_off) de 14x14 pizeles para mostrar un campo logico,
luego agrego tres bitmap que son de un tamaño de 52x20 pixeles, pero a la hora de mostralos en la columna donde se mustran los bitmap de 50x20, la image es recortada a 14x14 que es el tamaño del primer bitmap agregado, por lo que se muestra recortado la imagen.

Código: Seleccionar todo

   WITH OBJECT  ...
      hImg[ "chk_off"  ] := :AddImage( "bms_checkoff" ) //14x14
      hImg[ "chk_on"   ] := :AddImage( "bms_checkon" ) //14x14  
      hImg[ "star1"    ] := :AddImage( "star1" ) //50x20
      hImg[ "star2"    ] := :AddImage( "star2" ) //50x20
      hImg[ "star3"    ] := :AddImage( "star3" ) //50x20
   ...

por el contrario, si pongo las imagenes mas grande primero y luego las mas pequeñas, el bitmap para el control de valor logico no muestra nada, y la columna que recortaba antes ahora se muestra bien.
aclaro que los anchos de las columnas tiene espacios suficientes.

Código: Seleccionar todo

   WITH OBJECT  ...
      hImg[ "star1"    ] := :AddImage( "star1" ) //50x20
      hImg[ "star2"    ] := :AddImage( "star2" ) //50x20
      hImg[ "star3"    ] := :AddImage( "star3" ) //50x20
      hImg[ "chk_off"  ] := :AddImage( "bms_checkoff" ) //14x14
      hImg[ "chk_on"   ] := :AddImage( "bms_checkon" ) //14x14  

   ...
 

[carloskds]

me repospondo...

Objeto TImageList con todas las imagenes que se utilizarán en el control.



Ámbito
Asignable

Tipo
Objeto

Valor inicial
TImageList()




El objeto TImageList está instanciado desde la misma creación del control con su constructor New(). La primera imagen que se incluye en la TImageList marca la dimensión de las sucesivas imagenes que se introduzcan. Si la primera imagen, es una imagen que incluye más de un Bitmap es importante que establezca las propiedades nHeight y nWidth de la TImageList antes de añadir ningún Bitmap.