about.pas

unit About;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  ExtCtrls, StdCtrls, LCLIntf, Grids, Windows;

type

  { TAboutForm }

  TAboutForm = class(TForm)
    Button1: TButton;
    Image1: TImage;
    TitleLbl: TLabel;
    TextLbl: TLabel;
    UrlLbl: TLabel;
    procedure Exit(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: char);
    procedure GotoUrl(Sender: TObject);
    procedure ShowAboutForm(Sender: TObject);
    procedure CloseForm();
  private
    { private declarations }
  public
    { public declarations }
  end; 

var
  AboutForm: TAboutForm;

implementation

{ TAboutForm }

const
	URL = 'http://dan.hersam.com/software/snaptimer/';

procedure TAboutForm.ShowAboutForm(Sender: TObject);
const
  VersionStr = {$I version.inc};
begin
  TitleLbl.Caption := 'SnapTimer ' + VersionStr;
  TextLbl.Caption := 'Snapmagic Software' + sLineBreak + 'Written by Dan Hersam';
  UrlLbl.Caption := URL;
end;

procedure TAboutForm.FormKeyPress(Sender: TObject; var Key: char);
begin
  if key = #27 then CloseForm();
end;

procedure TAboutForm.GotoUrl(Sender: TObject);
begin
  // TODO Replace this with OpenURL when I'm using Lazarus 0.9.29.0
  ShellExecute(0, 'open', PChar(TLabel(Sender).Caption), nil, nil, SW_SHOWNORMAL);
end;

procedure TAboutForm.Exit(Sender: TObject);
begin
  CloseForm();
end;

procedure TAboutForm.CloseForm();
begin
     Close;
end;

initialization
  {$I about.lrs}

end.