unit Unit1;

{$mode objfpc}{$H+}

interface

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

type

  { TForm1 }

  TForm1 = class(TForm)
    begruesungbtn: TButton;
    beendenbtn: TButton;
    leerenbtn: TButton;
    Edit1: TEdit;
    ausgabelbl: TLabel;
    ausgabepnl: TPanel;
    maennlichrbtn: TRadioButton;
    SBar1: TStatusBar;
    weiblichrbtn: TRadioButton;
    procedure beendenbtnClick(Sender: TObject);
    procedure begruesungbtnClick(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure leerenbtnClick(Sender: TObject);

  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;
  Gruss: string;

const

    help : string = ('Hinweis: ')  ;
    name2 : string = ('Bitte geben Sie einen gültigen Namen an!')  ;

implementation

{$R *.lfm}

{ TForm1 }
procedure TForm1.FormCreate(Sender: TObject);
begin
  sbar1.simpletext := (help + 'Geben Sie Ihren Namen an, um eine kostenlose Begrüßung zu erhalten!');
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
 edit1.text := '';
 sbar1.simpletext := (help + 'Name und Anrede wählen.');
end;



procedure TForm1.leerenbtnClick(Sender: TObject);
begin
 edit1.text := 'hier';
 ausgabepnl.caption := '';
 ausgabepnl.color := $00BFFFBF;
 SBar1.simpletext := (help + 'Alle Felder wurden zurückgesetzt.');
 maennlichrbtn.checked := false;
 weiblichrbtn.checked := false;
end;


procedure TForm1.begruesungbtnClick(Sender: TObject);
begin
 Gruss := 'Guten Tag';

  if Edit1.text = 'weiblich'
   then begin
    ausgabepnl.caption := 'Fatal error occured!';
    ausgabepnl.color := clFuchsia
   end
   else if Edit1.text = 'Benjamin Liedtke'
    then begin
     ausgabepnl.caption := '404 Not found.';
     ausgabepnl.color := clRed
    end
    else if edit1.text = ''
     then begin
      SBar1.simpletext := (help + name2);
      ausgabepnl.color := clred;
      ausgabepnl.caption := 'Ungültig!';
     end
      else if edit1.text = 'hier'
       then begin
        SBar1.simpletext := (help + name2);
        ausgabepnl.color := clred;
        ausgabepnl.caption := 'Ungültig!';
       end
       else if (maennlichrbtn.checked = false) and (weiblichrbtn.checked = false)
        then begin
         sbar1.simpletext := (help + 'Wählen Sie eine Anrede.');
         ausgabepnl.color := clred;
         ausgabepnl.caption := 'Ungültig!';
        end
         else if maennlichrbtn.checked = true
          then begin
           ausgabepnl.color := $00BFFFBF;
           ausgabepnl.caption := (Gruss + ' ' + maennlichrbtn.caption + ' ' + Edit1.text) + '.';
          end
           else if
            weiblichrbtn.checked = true
            then begin
             ausgabepnl.color := $00BFFFBF;
             ausgabepnl.caption := (Gruss + ' ' + weiblichrbtn.caption + ' ' + Edit1.text) + '.';
            end
end;


procedure TForm1.beendenbtnClick(Sender: TObject);
begin
 if messagedlg('Bestätigung', 'Möchten Sie das Porgramm wirklich beenden?' , mtconfirmation, [mbCancel, mbyes],2 ) = mryes
  then begin
  if messagedlg('Absolut sicher?', 'Sind Sie sich wirklich sicher?', mtconfirmation, [mbCancel, mbyes],2 ) = mryes
  then begin
   if messagedlg('Wirklich? (Eltern haften für ihre Kinder)', 'Sind Sie sich vollkommen sicher?', mtconfirmation, [mbCancel, mbyes],2 ) = mryes
   then begin
    close
   end;
  end;
 end;

end;

end.