Iconos y colores en controles fallan

[ecfisa]

Hola.

crLinkSelect no es un identificador válido para la propiedad TControl->Cursor, es decir que no se puede asignar ese valor a la propiedad TLabel->Cursor.

¿ Estamos hablando del componente TLabel de VCL o es otro de terceros ?

Saludos

[ecfisa]

Hola de nuevo.

Me quedé pensando si la pregunta se encaminaba por otro lado... Y el valor crLinkSelect, tampoco es válido para la propiedad Cursor de Screen, por ejemplo la asignación:

Código PHP:

  Screen->Cursor = crLinkSelect; 


provocará el error de compilación: Undefined symbol 'crLinkSelect'

Saludos

[aguml]

Es un TLabel de la VCL estandar. He creado una etiqueta la cual funciona como un link a una página y la idea es que al poner el puntero encima se comporte como un link y para ello se usa ese cursor. La verdad es que no entiendo como viene en el desplegable del cursor en la propiedades del TLabel y no es válido. Lo probé con el form y algunos componentes más y no era válido en ninguno. ¿La única solución sería descargarme el cursor y meterlo en los recursos para usarlo desde allí?

[ecfisa]

Hola.

¿ Y no te sirve ajustar la propiedad Cursor de los Labels ?

Ejemplo:

Código PHP:

void __fastcall TForm1::FormCreate(TObject *Sender)
{
  for(int i = 0; i < ControlCount; i++)
    if (Controls[i]->ClassNameIs("TLabel"))
      ((TLabel*)Controls[i])->Cursor = crHandPoint;  // cursor mano
} 


¿ O también deseabas cambiar el color de la fuente cuando pase el cursor por encima ?

Saludos

[aguml]

Así lo tengo aunque ese cursor parece de Windows 95 y el crLinkSelect se ve más moderno.

[ecfisa]

Hola.

Otra opción es que te hagas tu cursor, hice uno retocando la imágen de una mano. Pude mantener la transparencia pero soy muy malo dibujando así que no esperes mucho.

Igual te adjunto los fuentes de la prueba por si te resulta útil.

[aguml]

He estado liado con esto y tengo ya mi archivo de recursos con dos cursores, uno para todo y otro para el link. El del link va perfecto pero el que quiero que se muestre en todo lo demas no funciona y me muestra el que tengo por defecto. He probado varias cosas pero lo que tengo ahora mismo es esto:
En el .cpp:

Código PHP:

void __fastcall TForm1::FormCreate(TObject *Sender)
{
    //Pongo los cursores deseados para mi aplicacion
    CursorOriginalDefault = ::GetCursor(); // Salvas tu cursor original
    CursorOriginalLabelURL = Screen->Cursors[crLink];
    crOriginalLabelURL = LabelURL->Cursor;

    ::SetCursor(LoadCursor(HInstance, MAKEINTRESOURCE(crDefault))); // Siendo MI_CURSOR el ID del cursor en cursores.res
    Screen->Cursors[crDefault] = LoadCursor(HInstance, "ARROW");
    Screen->Cursors[crLink] = LoadCursor(HInstance, "LINK");
    LabelURL->Cursor = (TCursor)crLink;
    ...
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
    ::SetCursor(CursorOriginalDefault); // Restauras tu antiguo cursor
    Screen->Cursors[crLink] = CursorOriginalLabelURL; // Restauras tu antiguo cursor
    LabelURL->Cursor = crOriginalLabelURL;
} 


En el .h:

Código PHP:

...
private:    // User declarations
    //Necesarios para restaurar los cursores por defecto
    enum{crDefault, crLink};
    TCursor crOriginalLabelURL;
    HCURSOR CursorOriginalDefault;
    HCURSOR CursorOriginalLabelURL;
    ... 


Espero puedas ayudarme y de paso quitar todo lo que sobre que estoy dando palos de ciego