unit Uhc;

interface

uses
  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, MPlayer,unitgen, StdCtrls, ExtCtrls, SensMap, Menus;

type
  TFormHC6000 = class(TForm)
    MediaPlayerhc6000: TMediaPlayer;
    Image1: TImage;
    Image2: TImage;
    MainMenu1: TMainMenu;
    Opciones1: TMenuItem;
    Panelfrontal1: TMenuItem;
    Ayuda1: TMenuItem;
    Ayuda2: TMenuItem;
    Cuestiones1: TMenuItem;
    N1: TMenuItem;
    Volver1: TMenuItem;
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Volver1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Panelfrontal1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormHC6000: TFormHC6000;

implementation

{$R *.DFM}

procedure TFormHC6000.FormShow(Sender: TObject);
begin
if sonido then mediaplayerhc6000.play;
end;

procedure TFormHC6000.FormCreate(Sender: TObject);
begin
{Screen.cursors[CR]:=cur;
SensitiveMap1.Cursor_alt:=CR;
SensitiveMap1.Situar_Cuadro(17,16,176,148,'Lector de intensidad',label1);
SensitiveMap1.Situar_Cuadro(237,16,396,147,'Lector de voltaje',label2);}
end;

procedure TFormHC6000.Volver1Click(Sender: TObject);
begin
     hc6000ppal;
end;

procedure TFormHC6000.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     hc6000ppal;
end;

procedure TFormHC6000.Panelfrontal1Click(Sender: TObject);
begin
     hc6000frontpanel;
end;

end.
