Health Organizer Code

{

    Health Organizer (http://sourceforge.net/projects/hor/,
                      http://hor.sourceforge.net/)
    Copyright (C) 2014  Andrea Urbani ( matfanjol@users.sf.net,
	                                matfanjol@mail.com )

    This program is free software: you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation, either version 3 of the License, or
    (at your option) any later version.

    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU General Public License for more details.

    You should have received a copy of the GNU General Public License
    along with this program.  If not, see <http://www.gnu.org/licenses/>.

}
unit about;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, RTTICtrls, Forms, Controls, Graphics, Dialogs,
  StdCtrls, ExtCtrls;

type

  { TfrmAbout }

  TfrmAbout = class(TForm)
    imgGPLv3: TImage;
    lblGPLv3: TLabel;
    lblEmail1: TLabel;
    lblEmail2: TLabel;
    lblSite: TLabel;
    lblCopyright: TLabel;
    lblWarranty: TLabel;
    lblAuthor: TLabel;
    lblTitle: TLabel;
    lblBrief: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure lblGPLv3Click(Sender: TObject);
    procedure lblAuthorClick(Sender: TObject);
    procedure lblEmail1Click(Sender: TObject);
    procedure lblEmail2Click(Sender: TObject);
    procedure lblSiteClick(Sender: TObject);
    procedure lblSiteMouseEnter(Sender: TObject);
    procedure lblSiteMouseLeave(Sender: TObject);
  protected
    procedure ActivateDeactivateLink( ToBeActivated: boolean; TheLabel : TLabel);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  frmAbout: TfrmAbout;

resourcestring
  rsAboutTitle = 'Health Organizer';
  rsAboutBrief = 'Organize your health and the health of your loved ones';

implementation

{$R *.lfm}

{ TfrmAbout }

Uses LCLIntf;

procedure TfrmAbout.FormCreate(Sender: TObject);
begin
  lblTitle.Caption:=rsAboutTitle;
  lblBrief.Caption:=rsAboutBrief;
end;

procedure TfrmAbout.lblGPLv3Click(Sender: TObject);
begin
  OpenURL('http://www.gnu.org/licenses/');
end;

procedure TfrmAbout.lblAuthorClick(Sender: TObject);
begin
  OpenURL( 'http://matfanjol.users.sourceforge.net/' );
end;

procedure TfrmAbout.lblEmail1Click(Sender: TObject);
begin
  // I type the url to be sure it is not changed via the translations...
  OpenURL( 'mailto:matfanjol@users.sf.net' );
end;

procedure TfrmAbout.lblEmail2Click(Sender: TObject);
begin
  // I type the url to be sure it is not changed via the translations...
  OpenURL( 'mailto:matfanjol@mail.com' );
end;

procedure TfrmAbout.lblSiteClick(Sender: TObject);
begin
  // I type the url to be sure it is not changed via the translations...
  OpenURL( 'http://hor.sourceforge.net' );
end;

procedure TfrmAbout.lblSiteMouseEnter(Sender: TObject);
begin
  if ( Sender is TLabel ) then
    ActivateDeactivateLink(true, Sender as TLabel );
end;

procedure TfrmAbout.lblSiteMouseLeave(Sender: TObject);
begin
  if ( Sender is TLabel ) then
    ActivateDeactivateLink(false, Sender as TLabel );
end;

procedure TfrmAbout.ActivateDeactivateLink(ToBeActivated: boolean;
  TheLabel: TLabel);
begin
  if ToBeActivated then
  begin
    TheLabel.Font.Color:=clBlue;
    TheLabel.Font.Style:=TheLabel.Font.Style + [fsBold,fsUnderline];
  end
  else
  begin
    TheLabel.Font.Color:=clDefault;
    TheLabel.Font.Style:=TheLabel.Font.Style - [fsBold,fsUnderline];
  end
end;

end.