CodeForge.com

unit1.pas in 126303006.rar

			
unit unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ExtCtrls;

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    floor7: TLabel;
    floor2: TLabel;
    floor1: TLabel;
    floor5: TLabel;
    floor3: TLabel;
    floor4: TLabel;
    floor6: TLabel;
    GroupBox2: TGroupBox;
    eledoorstate: TLabel;
    eledown2: TBitBtn;
    eleup2: TBitBtn;
    eleup3: TBitBtn;
    eledown3: TBitBtn;
    eledown4: TBitBtn;
    eleup4: TBitBtn;
    eledown5: TBitBtn;
    eleup5: TBitBtn;
    eleup6: TBitBtn;
    eledown6: TBitBtn;
    eledown7: TBitBtn;
    target7: TBitBtn;
    target6: TBitBtn;
    target1: TBitBtn;
    target4: TBitBtn;
    target5: TBitBtn;
    target2: TBitBtn;
    target3: TBitBtn;
    doorclose: TBitBtn;
    eleup1: TBitBtn;
    doortimer: TTimer;
    eletimer: TTimer;
    dooropen: TBitBtn;
    about: TButton;
    exitdemo: TButton;
    GroupBox3: TGroupBox;
    elelocate1: TLabel;
    elestate2: TLabel;
    elemovedown1: TLabel;
    elemoveup1: TLabel;
    GroupBoxin: TGroupBox;
    manin1: TRadioButton;
    manin6: TRadioButton;
    GroupBoxout: TGroupBox;
    manout1: TRadioButton;
    manout6: TRadioButton;
    manin2: TRadioButton;
    manin7: TRadioButton;
    manin3: TRadioButton;
    manin8: TRadioButton;
    manin4: TRadioButton;
    manin9: TRadioButton;
    manin5: TRadioButton;
    manin10: TRadioButton;
    manout2: TRadioButton;
    manout3: TRadioButton;
    manout4: TRadioButton;
    manout5: TRadioButton;
    manout7: TRadioButton;
    manout8: TRadioButton;
    manout9: TRadioButton;
    manout10: TRadioButton;
    Panel1: TPanel;
    Panel2: TPanel;
    eleShape: TShape;
    doorimage: TImage;
    doorocTimer: TTimer;
    ElemoveTimer: TTimer;
    waitTimer: TTimer;
    GroupBox4: TGroupBox;
    elestate3: TLabel;
    elemoveup2: TLabel;
    elemovedown2: TLabel;
    elelocate2: TLabel;
    procedure doorcloseClick(Sender			

			...
			...
			... to be continued.

  This is a preview. To get the complete source file, 
  please click here to download the whole source code package.