{
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 Unit6;

interface

uses
  {$IFDEF LINUX} Libc, {$ENDIF} Qt {Windows}, {Messages} SysUtils, Variants, Classes, QGraphics, QControls, QForms,
  QDialogs, QExtCtrls, QStdCtrls, QButtons,uentradas,unit2;
type tejecucion=(normal,continua);
type
   TipoPunterolista = ^TipoNodo;
   TipoNodo    = record
        contador:integer;
        salida1:Tfsalidas;
        salida2:Tfsalidas;
        salida3:Tfsalidas;
        sensor1:Tfentradasp4;
        sig, ant: TipoPunterolista;
   end;

   TLista = record
   	      inicio: TipoPunterolista;
              actual: TipoPunterolista;
   	   end;

type
  Tfprogramador = class(TForm)
    Image3: TImage;
    Image4: TImage;
    Image5: TImage;
    Image6: TImage;
    Image7: TImage;
    Image1: TImage;
    Image2: TImage;
    Image8: TImage;
    procedure Image2Click(Sender: TObject);
    procedure Image3Click(Sender: TObject);
    procedure Image5Click(Sender: TObject);
    procedure Image6Click(Sender: TObject);
    procedure Image7Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Image8Click(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fprogramador: Tfprogramador;

implementation

uses proyecto2, Unit7, Unit9, Unit1, ffunciones, piloto4;

{$R *.xfm}

procedure Tfprogramador.Image2Click(Sender: TObject);
begin
hide;
end;

procedure Tfprogramador.Image3Click(Sender: TObject);
begin
      fprogramador.Hide;
      fprincipal.show;
end;

procedure Tfprogramador.Image5Click(Sender: TObject);
begin
Application.CreateForm(Tpilot1, pilot1);
//fprincipal.Hide;

//fprogramador.show;
//pilot1.left:=fprogramador.Left-5;
//pilot1.top:=fprogramador.top-20;
pilot1.left:=(screen.Width div 2)-(pilot1.width div 2);
pilot1.top:=(screen.height div 2)-(pilot1.height div 2);

//pilot1.borderstyle:=fbstoolwindow;

pilot1.inicializar;
end;

procedure Tfprogramador.Image6Click(Sender: TObject);
begin
 Application.CreateForm(Tpilot2, pilot2);
pilot2.left:=(screen.Width div 2)-(pilot2.width div 2);
pilot2.top:=(screen.height div 2)-(pilot2.height div 2);



pilot2.inicializar;
end;

procedure Tfprogramador.Image7Click(Sender: TObject);
begin
pilot33.left:=(screen.Width div 2)-(pilot33.width div 2);
pilot33.top:=(screen.height div 2)-(pilot33.height div 2);



 pilot33.inicializar;
end;

procedure Tfprogramador.BitBtn1Click(Sender: TObject);
begin
        funciones.show;
end;

procedure Tfprogramador.Image8Click(Sender: TObject);
begin
pilot4.left:=(screen.Width div 2)-(pilot4.width div 2);
pilot4.top:=(screen.height div 2)-(pilot4.height div 2);


 pilot4.inicializar;
end;

end.