unit UAbout;
{ ********************************************************************************* }
{ (c) GNU                                                                           }
{ author: Heiko Tietze                                                              }
{ version: 1.5                                                                      }
{ date: 23.04.2005                                                                  }
{ description: about the program, information on version                            }
{ ********************************************************************************* }

{$I Def.inc}

interface

uses {$IFDEF VCL}
     Windows, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls,ShellAPI,
     {$ELSE}
     QGraphics, QControls, QForms, QDialogs, QStdCtrls, QExtCtrls,
     {$ENDIF}
     Messages, SysUtils, Variants, Classes;

type TAbout = class(TForm)
        bvAbout: TBevel;
        imAbout: TImage;
        lbTitle: TLabel;
        lbVersion: TLabel;
        lbCopyright: TLabel;
        lbDate: TLabel;
        btnOK: TButton;
        lbAuthor: TLabel;
        lbContact: TLabel;
        lbInternet: TLabel;
        procedure FormClose(Sender: TObject; var Action: TCloseAction);
        procedure lbInternetClick(Sender: TObject);
        procedure lbContactClick(Sender: TObject);
      private
      public
     end;

var About: TAbout;

implementation

{$R *.dfm}

procedure TAbout.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   Action:=caFree;
end;

procedure TAbout.lbInternetClick(Sender: TObject);
begin
  {$IFDEF VCL}
  ShellExecute(Application.Handle,'open',PChar(lbInternet.Caption),nil,nil,SW_SHOWNORMAL);
  {$ENDIF}
end;

procedure TAbout.lbContactClick(Sender: TObject);
begin
  {$IFDEF VCL}
  ShellExecute(Application.Handle,'open',PChar('mailto:heiko_tietze@web.de?subject=Scrabble'),nil,nil,SW_SHOWNORMAL);
  {$ENDIF}
end;

end.