5 replies to this topic

[monchito_elroro]

buenas amiguitos, despues de un tiempito vengo con una consulta..

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....

[fredycc]

Hola monchito, creo si entendí bien, solo reemplaza por estos eventos.

delphi

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
    Image1.Picture.LoadFromLazarusResource('encima');
end;
 
procedure TForm1.Image1MouseLeave(Sender: TObject);
begin
  Image1.Picture.LoadFromLazarusResource('normal');
end;
 
procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
      Image1.Picture.LoadFromLazarusResource('normal');
end;

Saludos

[escafandra]

Te recomiendo la lectura de este tema, concretamente este mensaje. Está en delphi, por lo tanto fácilmente trasladable a Lazarus.


PD. La última versión la tienes aquí.


Saludos.

[monchito_elroro]

Gracias le darè un vistazo.....

[monchito_elroro]

Buenas amiguitos, disculpando la demora, al fin pude sincronizar los eventos del
mouse con una imagen que la hago pasar como botón para darle vida a un form.

les adjunto todo mi ejercicio y les pongo el código esencial por si a alguien
le puede servir...

delphi

unit Unit1; 
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls, LResources;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Image1: TImage;
    procedure FormCreate(Sender: TObject);
    procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image1MouseEnter(Sender: TObject);
    procedure Image1MouseLeave(Sender: TObject);
    procedure Image1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { private declarations }
  public
    { public declarations }
  end; 
 
var
  Form1: TForm1; 
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 
end;
 
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Image1.Picture.LoadFromLazarusResource('pulsar');
  //ShowMessage('Hola....!!!');
end;
 
procedure TForm1.Image1MouseEnter(Sender: TObject);
begin
  Image1.Picture.LoadFromLazarusResource('encima');
end;
 
procedure TForm1.Image1MouseLeave(Sender: TObject);
begin
  Image1.Picture.LoadFromLazarusResource('normal');
end;
 
procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Image1.Picture.LoadFromLazarusResource('normal');
  ShowMessage('Hola....!!!');
end;
 
initialization
 {$I boton.lrs}
end.

saludos.... 

[escafandra]

Buen ejemplo. 


Saludos.