| Ver tema anterior :: Ver tema siguiente |
| Autor |
Mensaje |
neg1414
Master
Registrado: 31 Ene 2007Mensajes: 284
|
 Publicado: Mar 30 Sep, 2008 8:09 am Asunto: Cambiar La imagen del puntero del raton? |
 |
|
He creado una imagen que quiero que sea el puntero del raton. Pero no se como hacerlo..
Indagando he realizado las siguientes operaciones..., con el editor de imagenes he cambiado la extension de la imagen a NombrePuntero.res y la he instalado cono un nuevo componente.....
Acontinuacion he probado con las sentencias
| Código: | Form1->Cursor = NombrePuntero;
y
Screen->Cursor = NombrePuntero; |
pero na de na....
Espero haberme explicado bien...
Alguna Idea...
Gracias |
|
| Volver arriba |
|
 |
Cesar C. Salazar Gonzalez
Master
Registrado: 01 Oct 2002Mensajes: 2155Ubicación: San Cristóbal de Las Casas, Chiapas
|
| Publicado: Mar 30 Sep, 2008 8:47 am Asunto: |
|
|
Para usar un cursor, existen varias maneras, una de ellas es usarlo como se encuentra el cursor en el formato del archivo.
por ejemplo en esta parte voy a mostrarte como usar un cursor que esta dentro de la misma ruta del ejectuable.
Primero Defines un cursor donde vayas a usarlo de la siguiente manera, yo lo he puesto en el archivo.cpp
| Código: | #pragma package(smart_init)
#pragma resource "*.dfm"
#define ccCursor 100 // <-- Número de cursor |
Posteriormente en el evento OnActivate del formulario usas una declaracion como esta
| Código: | //---------------------------------------------------------------------------
void __fastcall TForm::FormActivate(TObject *Sender)
{
Screen->Cursors[ccCursor]= LoadCursorFromFile("ccWait.ani");
Screen->Cursor= (TCursor)ccCursor;
} |
como podras darte cuenta el cursor es un cursor animado.ani
el cual lo paso a los cursores pero con un numero diferente, y posteriormente lo establezco en el cursor por default, eso se hace para no afectar a los cursores pre-definidos por el sistema.
y al salir de tu formulario restableces el cursor normal en el evento OnDestroy del Formulario
| Código: | //---------------------------------------------------------------------------
void __fastcall TForm::FormDestroy(TObject *Sender)
{
Screen->Cursor = crDefault;
} |
Saludos espero te sirva de esta manera.
_________________
 |
|
| Volver arriba |
|
|
neg1414
Master
Registrado: 31 Ene 2007Mensajes: 284
|
| Publicado: Mar 30 Sep, 2008 9:33 am Asunto: |
|
|
Perfecto....
Muchas Gracias..
La ignorancia es un mal que se cura preguntando |
|
| Volver arriba |
|
|
escafandra
Master
Registrado: 29 Nov 2007Mensajes: 625Ubicación: Madrid - España
|
| Publicado: Mie 01 Oct, 2008 9:54 pm Asunto: |
|
|
Mira tambien las API:
| Código: | // Desde archivo de recursos hecho con WorkShop
::SetCursor(LoadCursor(HInstance, MAKEINTRESOURCE(ID_CURSOR)));
// Desde archivo de cursor
::SetCursor(LoadCursorFromFile(FileName)); |
La ventaja es que al realizar estos métodos el cursor se mantiene en toda la aplicación, y no solo en una determinada ventana (como ocurre si usas la propiedad cursor del Form. Esto puede ser también una desventaja si el deseo es un cursor por ventana, pero se puede remediar...
Sólo quería abrirte más posibilidades.
Saludos. |
|
| Volver arriba |
|
|
|
FAQ
Buscar
Miembros
Grupos de Usuarios
Registrarse
Perfil
Entra para ver tus mensajes privados
Entrar
