Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Gráficos
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 29-12-2006
Avatar de Anunakis
Anunakis Anunakis is offline
Miembro
 
Registrado: abr 2004
Posts: 37
Poder: 0
Anunakis Va por buen camino
Question 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 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
__________________
Un buen programador no se mide por los programas que hace, sino por lo que ayuda a los demás programadores.
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 16:30:16.


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
Copyright 1996-2007 Club Delphi