Propiedad oCursos en TCardItem

[xhermita]

Estoy probando con el Samples Cards1;

Asigno a la propiedad oCursor de un TCardItem el valor IDC_HAND y en tiempo de ejecución no cambia el cursor al pasar por encima del item.

He comprobado si el asistente del IDE lo estaba creando bien y parece que sí.

Código: Seleccionar todo

      WITH OBJECT TCardItem():New( ::oCardBox1 )
         :Cargo := "IMAGE"
         :oCursor := IDC_HAND
         :nColumn := 1
         :nType := ctIMAGEINDEX
         :nSize := 100
         :Create()
      END

[ignacio]

Pues probar si funciona utilizando un objeto TCursor. En vez de un recurso? Gracias