Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Gráficos (https://www.clubdelphi.com/foros/forumdisplay.php?f=8)
-   -   Problemas con el crDefault (https://www.clubdelphi.com/foros/showthread.php?t=38814)

Anunakis 29-12-2006 19:19:37

Problemas con el crDefault
 
Hola a todos los foreros,

Mi problema es el siguiente: cargo todos los cursores como indico más abajo, y me funcionan todo, menos el por defecto :confused: y eso que en teoria lo carga...

Código Delphi [-]
procedure CargarCursores;
var RutaEXE: String;
begin
RutaEXE := ExtractFileDir( Application.ExeName ) + '\Cursores\';
if not DirectoryExists ( RutaEXE ) then Exit;
Screen.Cursors[crDefault ] := LoadCursorFromFile(PChar(RutaEXE+'aero_arrow.cur'));
Screen.Cursors[crArrow ] := LoadCursorFromFile(PChar(RutaEXE+'aero_arrow.cur'));
Screen.Cursors[crCross ] := LoadCursorFromFile(PChar(RutaEXE+'aero_prec.cur'));
Screen.Cursors[crIBeam ] := LoadCursorFromFile(PChar(RutaEXE+'aero_select.cur'));
Screen.Cursors[crSize ] := LoadCursorFromFile(PChar(RutaEXE+'aero_move.cur'));
Screen.Cursors[crSizeNESW ] := LoadCursorFromFile(PChar(RutaEXE+'aero_nesw.cur'));
Screen.Cursors[crSizeNS ] := LoadCursorFromFile(PChar(RutaEXE+'aero_ns.cur'));
Screen.Cursors[crSizeNWSE ] := LoadCursorFromFile(PChar(RutaEXE+'aero_nwse.cur'));
Screen.Cursors[crSizeWE ] := LoadCursorFromFile(PChar(RutaEXE+'aero_ew.cur'));
Screen.Cursors[crUpArrow ] := LoadCursorFromFile(PChar(RutaEXE+'aero_up.cur'));
Screen.Cursors[crHourGlass] := LoadCursorFromFile(PChar(RutaEXE+'aero_busy.ani'));
Screen.Cursors[crDrag ] := LoadCursorFromFile(PChar(RutaEXE+'aero_pen.cur'));
Screen.Cursors[crNoDrop ] := LoadCursorFromFile(PChar(RutaEXE+'aero_unavail.cur'));
Screen.Cursors[crHSplit ] := LoadCursorFromFile(PChar(RutaEXE+'aero_hsplit.cur'));
Screen.Cursors[crVSplit ] := LoadCursorFromFile(PChar(RutaEXE+'aero_vsplit.cur'));
Screen.Cursors[crMultiDrag] := LoadCursorFromFile(PChar(RutaEXE+'aero_link.cur'));
Screen.Cursors[crSQLWait ] := LoadCursorFromFile(PChar(RutaEXE+'aero_busy.ani'));
Screen.Cursors[crNo ] := LoadCursorFromFile(PChar(RutaEXE+'aero_unavail.cur'));
Screen.Cursors[crHelp ] := LoadCursorFromFile(PChar(RutaEXE+'aero_helpsel.cur'));
Screen.Cursors[crHandPoint] := LoadCursorFromFile(PChar(RutaEXE+'aero_link.cur'));
 
end;
Que puedo hacer?Gracias de antemano


La franja horaria es GMT +2. Ahora son las 18:36:47.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi