Propiedad oCursos en TCardItem
Publicado: Jue Nov 30, 2023 10:49 am
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í.
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