{
RoboLinex 1.5
Programa de control de dispositivos RCX de Lego en entorno grfico.

Copyright (C) 2003 Prodel S.A
Programador: Daniel Pascual Dominguez

Este programa es software libre. Puede redistribuirlo y/o modificarlo bajo los términos de la Licencia Pública General de GNU según es publicada por la Free Software Foundation, bien de la versión 2 de dicha Licencia o bien (según su elección) de cualquier versión posterior.
Este programa se distribuye con la esperanza de que sea útil, pero SIN NINGUNA GARANTÍA, incluso sin la garantía MERCANTIL implícita o sin garantizar la CONVENIENCIA PARA UN PROPÓSITO PARTICULAR. Véase la Licencia Pública General de GNU para más detalles.

Debería haber recibido una copia de la Licencia Pública General junto con este programa. Si no ha sido así, escriba a la Free Software Foundation, Inc., en 675 Mass Ave, Cambridge, MA 02139, EEUU.
}


unit Unit3;

interface

uses
  {$IFDEF LINUX} Libc, {$ENDIF} Qt {Windows}, {Messages} SysUtils, Variants, Classes, QGraphics, QControls, QForms,
  QDialogs, QExtCtrls;

type
  Tfpotencia = class(TForm)
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    Image5: TImage;
    Image6: TImage;
    Shape1: TShape;
    procedure FormCreate(Sender: TObject);
    procedure Image2Click(Sender: TObject);
    procedure Image3Click(Sender: TObject);
    procedure Image4Click(Sender: TObject);
    procedure Image5Click(Sender: TObject);
    procedure Image6Click(Sender: TObject);
    procedure Image1Click(Sender: TObject);
  private
    potencia: integer;
    estado:integer;
    { Private declarations }
  public
  
    procedure inicializar(posix,posiy,pot:integer);
    procedure cambiaestado;
    function dar_potencia:integer;
    { Public declarations }
  end;

//var
 // fpotencia: Tfpotencia;

implementation

{$R *.xfm}

procedure Tfpotencia.inicializar(posix,posiy,pot:integer);
begin
   left:=posix;
   top:=posiy;
   potencia:=pot;
   visible:=false;

      if potencia=1 then
                image1.Picture:=image2.picture;
        if potencia=2 then
                image1.Picture:=image3.picture;
        if potencia=3 then
                image1.Picture:=image4.picture;

       if potencia=4 then
                image1.Picture:=image5.picture;
        if potencia=5 then
                image1.Picture:=image6.picture;
        
end;
procedure Tfpotencia.cambiaestado;
begin
           if estado=1 then
           begin
                     width:=56;
                     estado:=0;
           end
                    else
           begin
                     width:=384;
                     estado:=1;
           end;
 end;


procedure Tfpotencia.FormCreate(Sender: TObject);
begin
         estado:=0;
           width:=56;


end;

procedure Tfpotencia.Image2Click(Sender: TObject);
begin
  image1.Picture:=image2.Picture;
  cambiaestado;
  potencia:=1;
end;

procedure Tfpotencia.Image3Click(Sender: TObject);
begin
image1.Picture:=image3.Picture;
cambiaestado;
  potencia:=2;
end;

procedure Tfpotencia.Image4Click(Sender: TObject);
begin
image1.Picture:=image4.Picture;
cambiaestado;
potencia:=3;
end;

procedure Tfpotencia.Image5Click(Sender: TObject);
begin
image1.Picture:=image5.Picture;
cambiaestado;
  potencia:=4;
end;

procedure Tfpotencia.Image6Click(Sender: TObject);
begin
image1.Picture:=image6.Picture;
cambiaestado;
potencia:=5;
end;

procedure Tfpotencia.Image1Click(Sender: TObject);
begin
// estado:=1;
//  width:=384;
cambiaestado;
end;

function Tfpotencia.dar_potencia:integer;
begin
          dar_potencia:=potencia;
end;
end.