resulta que prácticando quize ver si podía cambiar el estilo de los botones estandares que vienen en lazarus, primero busque información haber si se le podia poner skins a las aplicaciones o al menos cambiarle de apariencia a uno mas llamativo.... en la busqueda encontré programas DEMOS para delphi pero eran de pago... luego uno de ustedes publicó un post sobre la expansión de lazarus llamado "CODE thypon" el cual (ahora) trae unos componentes llamado "LAVA" y la apariencia es Hermosa...
En fin, viendo que estas alternativas requieren o bien previo pago o sino tener la expansion mencionada... decidí buscar más alternativas.
Ahora lo que me he dado cuenta es que algunas aplicaciones de terceros tienen una apariencia bien preciosa y lo que encontré es que algunos de estos lo que hacen es crean imagenes (sean bmp, png o jpg) de sus texturas y/o botones a los cuales me imagino los llamaran desde sus ejecutables para hacer creer que es su apariencia en sí cuando en verdad es solo como engañar al ojo (algo bien ingenioso).
Entonces decidí tratar de hacer algo parecido al menos con un boton, es aquí en donde tengo unos pequeños inconvenientes y quisiera que me den una mano o bien me corrijan si lo estoy haciendo mal...
para comenzar cree un form y le puse un "timage" luego consegui tres imagenes que simularían los tres estados de un BOTON al pasar el mouse (normal, encima, pulsado), convertí las tres imágenes en un recurso...
ahora bien los estados "norma"l y "encima" los logró con el siguiente evento del "Timage"
"OnMouseEnter"
delphi
procedure TForm1.Image2MouseEnter(Sender: TObject); begin Image2.Picture.LoadFromLazarusResource('encima'); // cuando situo el mouse encima end;
---------------
"OnMouseLeave"
delphi
procedure TForm1.Image2MouseLeave(Sender: TObject); begin Image2.Picture.LoadFromLazarusResource('normal'); // cuando retiro el mouse del boton end;
---------------
Bien, el problema que tengo es tratar de simular al darle clic y al soltar el clic, es decir que al darle un clic a la imagen este cambie su imagen al estado "Pulsado" hasta que suelte el clic, espero me comprendan y me ayuden ....
Saludos .....
PD: les adjunto mis avances....