unit uHelp;

interface

uses
  GnuGettext, Windows, Messages, SysUtils, Variants, Classes, Graphics,
  Controls, Forms,
  Dialogs, StdCtrls, Buttons, Vcl.ExtCtrls, uTools;

type
  TfHelp = class(TForm)
    lAbout: TLabel;
    BitBtn1: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Label3Click(Sender: TObject);
    procedure Label5Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  fHelp: TfHelp;

implementation

{$R *.dfm}

procedure TfHelp.BitBtn1Click(Sender: TObject);
begin
  Close;
end;

procedure TfHelp.FormCreate(Sender: TObject);
begin
  TranslateComponent(Self);
end;

procedure TfHelp.Label3Click(Sender: TObject);
var
  App: string;
begin
  if Config.BrowserApp <> '' then
  begin
    App := Config.BrowserApp;
    ExecuteFile(App, Label3.Caption, '', SW_SHOW);
  end
  else
  begin
    ExecuteFile(Label3.Caption, '', '', SW_SHOW);
  end;
end;

procedure TfHelp.Label5Click(Sender: TObject);
var
  App: string;
begin
  if Config.BrowserApp <> '' then
  begin
    App := Config.BrowserApp;
    ExecuteFile(App, Label5.Caption, '', SW_SHOW);
  end
  else
  begin
    ExecuteFile(Label5.Caption, '', '', SW_SHOW);
  end;
end;

end.