Foros Club Delphi - Cursores Animados

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Cursores Animados (https://www.clubdelphi.com/foros/showthread.php?t=63137)

madiazg

30-01-2009 20:22:55

Cursores Animados

Hola,
he cargado varios punteros estáticos en un fichero de recursos para poder utilizarlos en mi aplicación.

Código:

lupa     CURSOR    lupa.cur

mano    CURSOR    mano.cur

Hay alguna forma de incluir en un fichero de recursos cursores animados (*.ani)?
Utilizo Turbodelphi.

Saludos...
Miguel Angel

madiazg

30-01-2009 20:31:01

He buscado por internet y he encontrado ANICURSOR pero no me funciona, por lo menos en TurboDelphi
La información la he obtenido aquí.
Saludos...
Miguel Angel

cHackAll

30-01-2009 20:54:52

Código Delphi [-]//...
 
Screen.Cursors[crHourGlass] := LoadCursor(HInstance, PChar(666)); // 666=id
Screen.Cursor := crHourGlass;

//...

madiazg

30-01-2009 21:52:15

Cita:

Empezado por cHackAll (Mensaje 336630)

Código Delphi
Screen.Cursors[crHourGlass] := LoadCursor(HInstance, PChar(666)); // 666=id
Screen.Cursor := crHourGlass; //...

Esto me funciona con cursores estáticos, pero no con cursores animados.
Saludos...
Miguel Angel

cHackAll

30-01-2009 22:00:46

En tal caso el problema está en el recurso, prueba algo así para asegurarte;

Código Delphi [-]procedure TForm1.Button1Click(Sender: TObject);
begin
 Screen.Cursors[crHourGlass] := LoadCursorFromFile('C:\WINDOWS\Cursors\Fedora Inverse\Busy.ANI');
 Screen.Cursor := crHourGlass;
end;

madiazg

31-01-2009 00:25:49

Cita:

Empezado por cHackAll (Mensaje 336645)

En tal caso el problema está en el recurso, prueba algo así para asegurarte;

Código Delphi
procedure TForm1.Button1Click(Sender: TObject);
begin
Screen.Cursors[crHourGlass] := LoadCursorFromFile('C:\WINDOWS\Cursors\Fedora Inverse\Busy.ANI');
Screen.Cursor := crHourGlass;
end;

Así sí se carga el cursor animado. Pero desde el fichero de recursos sólo se cargan los cursores estáticos. Quizás sea la versión de Delphi que utilizo (TurboDelphi).
Gracias y saludos...
Miguel Angel

La franja horaria es GMT +2. Ahora son las 02:44:15.