unit Unit1;

{$mode objfpc}{$H+}

interface

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

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Image1: TImage;
    Image2: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Edit1Change(Sender: TObject);
begin

end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  image2.canvas.Brush.color:=clwhite;
  image2.canvas.FillRect(image2.clientrect);
  edit1.text:='';
  edit2.text:='';
  edit3.text:='';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  close;
end;

procedure TForm1.Button1Click(Sender: TObject);
var skore: real;
begin
  image2.canvas.Brush.color:=clwhite;
  image2.canvas.FillRect(image2.clientrect);
  if ((RadioButton1.checked=true)or(Radiobutton2.checked=true))and (edit1.text<>'') and (edit2.text<>'')and(edit3.text<>'') then
  begin
  image2.canvas.TextOut(10, 5, 'Tvoje BMI skóre je ');
  skore:=trunc(strtofloat(edit2.text)/sqr(strtofloat(edit3.text)/100)*100)/100;
  image2.canvas.textout(115, 5,floattostr(skore));
  if skore>40 then  image2.canvas.textout(10,25, 'Máš klinickú obezitu ,'+ edit1.text +' , je naÄase ÃsÅ¥ k lekárovi.')
  else if skore>35 then image2.canvas.textout(10,25, 'Máš veľkú obezitu ,'+ edit1.text +' , musÃÅ¡ schudnúť.')
  else if skore>30 then  image2.canvas.textout(10,25, 'Máš obezitu ,'+ edit1.text +' , je naÄase schudnúť.')

  else if skore>25 then if Radiobutton1.checked then image2.canvas.textout(10,25, 'Máš nadváhu ,'+ edit1.text +' , mal by si chudnúť.')
                        else image2.canvas.textout(10,25, 'Máš nadváhu ,'+ edit1.text +' , mala by si chudnúť.')
  else if skore>19 then  image2.canvas.textout(10,25, 'Máš normálnu váhu,'+ edit1.text +' , drž sa...')

  else  if Radiobutton1.checked then image2.canvas.textout(10,25, 'Máš podváhu ,'+ edit1.text +' , mal by si pribrať.')
                                else image2.canvas.textout(10,25, 'Máš podváhu ,'+ edit1.text +' , mala by si pribrať.')
  end
  else
    begin
      image2.canvas.pen.color:=clRed;
      image2.canvas.textout(10,5, 'MusÃÅ¡ oznaÄiÅ¥ jednu z možnostÃ: muž, žena');
    end
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
  image2.canvas.brush.color:=clwhite;
  image2.canvas.FillRect(image2.ClientRect);
  edit1.text:='';
  edit2.text:='';
  edit3.text:='';
end;

end.