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.