Iconos y colores en controles fallan

[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

[aguml]

Asi funciona el cursor para todo el form pero no me funciona el del TLabel:

Código PHP:

//Pongo los cursores deseados para mi aplicacion
    CursorOriginalDefault = ::GetCursor(); // Salvas tu cursor original
    CursorOriginalLabelURL = Screen->Cursors[CUR_LINK];
    crOriginalLabelURL = LabelURL->Cursor;
    Screen->Cursors[CUR_DEFAULT] = LoadCursor(HInstance, "ARROW");
    Screen->Cursor = (TCursor)CUR_DEFAULT;
    Screen->Cursors[CUR_LINK] = LoadCursor(HInstance, "LINK");
    LabelURL->Cursor = (TCursor)CUR_LINK; 


Ya no se que mas probar.
Por otro lado veo que para los scrolls de los TListBox me sigue mostrando el cursor por defecto en vez del mio y en los PopupMenus igual ¿como hago para que muestre el mio?

[aguml]

Pasa lo mismo con los bordes de los TListBox y los TCheckListBox.
Me quedo a la espera por si podeis ayudarme porque por la red no veo nada que me ayude.