//---------------------------
// GKO -03 Demo2, tehtävä 2-5
// About.pas
// Olli Lukkarinen 21.9.2003
//---------------------------

unit About;

interface

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

type
  TFormAbout = class(TForm)
    LabelAbout: TLabel;
    ButtonOK: TButton;
    Timer2: TTimer;
    Image2: TImage;
    procedure ButtonOKClick(Sender: TObject);
    procedure KunEsitetaan (Sender:TObject);
    procedure Timer2Timer(Sender: TObject);
  private
    Nopeus : Integer;
    function GetNopeus : Integer;
    procedure SetNopeus(n : integer);
  public
    { Public declarations }
  end;

var
  FormAbout: TFormAbout;

implementation

{$R *.dfm}

procedure TFormAbout.ButtonOKClick(Sender: TObject);
begin
        Close;
end;

function TFormAbout.GetNopeus: Integer;
begin
        Result := Nopeus;
end;

procedure TFormAbout.KunEsitetaan(Sender:TObject);
begin
        SetNopeus(10);
end;

procedure TFormAbout.SetNopeus(n: integer);
begin
        Nopeus := n;
end;


procedure TFormAbout.Timer2Timer(Sender: TObject);
begin
        if ( Image2.Left >= ClientWidth - Image2.Width - GetNopeus())
          then SetNopeus(-Abs(GetNopeus()));
        if ( Image2.Left <= 0 + (Abs(GetNopeus())) )
          then SetNopeus(Abs(GetNopeus()));
        Image2.Left := Image2.Left + Nopeus;

end;
end.