monitor.pas

Monitor.dfm Meter.dpr pasMain.pas

unit Monitor;

interface

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

type
  TfrmMonitor = class(TForm)
    Image1: TImage;
    BorderShape: TShape;
    RunShape: TShape;
    Timer1: TTimer;
    Image2: TImage;
    Image3: TImage;
    procedure SpeedButton1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }

  public
    { Public declarations }
  end;

var
  frmMonitor: TfrmMonitor;

implementation

{$R *.DFM}

procedure TfrmMonitor.SpeedButton1Click(Sender: TObject);
begin
    close;
end;

procedure TfrmMonitor.Timer1Timer(Sender: TObject);
begin
    if RunShape.Left < BorderShape.Left + BorderShape.Width -8 then
        RunShape.Left := RunShape.Left + 1
    else
        RunShape.Left := BorderShape.Left;
end;

procedure TfrmMonitor.FormCreate(Sender: TObject);
begin
    RunShape.Left := BorderShape.Left;
    image3.Picture :=image2.Picture ;
end;

end.