unit calc_u;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Math, JPEG;

type
TfrmCalc = class(TForm)
btn1: TButton;
btn2: TButton;
btn3: TButton;
btn4: TButton;
btn5: TButton;
btn6: TButton;
btn7: TButton;
btn8: TButton;
btn9: TButton;
btn0: TButton;
btnClear: TButton;
btnEq: TButton;
btnPlus: TButton;
btnMinus: TButton;
btnMult: TButton;
btnDiv: TButton;
btnSQRT: TButton;
btnSQ: TButton;
btnabSQ: TButton;
btnabSQRT: TButton;
pnlInput: TPanel;
pnlOutput: TPanel;
imgPic: TImage;
imgMM: TImage;
lblMM: TLabel;
lblx: TLabel;
btnDot: TButton;
btnC: TButton;
btnBs: TButton;
btnPM: TButton;
btnMod: TButton;
btnDIV2: TButton;
lblf: TLabel;
procedure btnEqClick(Sender: TObject);
procedure btn1Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure btn2Click(Sender: TObject);
procedure btn3Click(Sender: TObject);
procedure btn4Click(Sender: TObject);
procedure btn5Click(Sender: TObject);
procedure btn6Click(Sender: TObject);
procedure btn7Click(Sender: TObject);
procedure btn8Click(Sender: TObject);
procedure btn9Click(Sender: TObject);
procedure btn0Click(Sender: TObject);
procedure btnClearClick(Sender: TObject);
procedure btnPlusClick(Sender: TObject);
procedure btnMultClick(Sender: TObject);
procedure btnMinusClick(Sender: TObject);
 procedure btnDivClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure imgMMClick(Sender: TObject);
procedure btnSQRTClick(Sender: TObject);
procedure btnSQClick(Sender: TObject);
procedure btnabSQRTClick(Sender: TObject);
procedure btnabSQClick(Sender: TObject);
procedure btnBsClick(Sender: TObject);
procedure btnCClick(Sender: TObject);
procedure btnPMClick(Sender: TObject);
procedure btnDotClick(Sender: TObject);
procedure btnDIV2Click(Sender: TObject);
procedure btnModClick(Sender: TObject);

private
ra, rb : real;
bCE, bMM : boolean;
sx, sy, sAns, sFunction : string;
public
{ Public declarations }
end;

var
frmCalc: TfrmCalc;

implementation

{$R *.dfm}

procedure TfrmCalc.btn0Click(Sender: TObject);

begin
if pnlOutput.Caption = '0' then
Begin
pnlOutput.Caption := btn0.Caption;
End
Else
pnlOutput.Caption := pnlOutput.Caption + '0';

frmCalc.Color := clFuchsia;

imgPic.Stretch := true;
if bMM = true then
imgPic.Picture.LoadFromFile('5c08025d978fa.jpeg');
end;

procedure TfrmCalc.btn1Click(Sender: TObject);

begin
if pnlOutput.Caption = '0' then
Begin
pnlOutput.Caption := btn1.Caption;
End
Else
pnlOutput.Caption := pnlOutput.Caption + '1';

frmCalc.Color := clPurple;

imgPic.Stretch := true;
if bMM = true then
imgPic.Picture.LoadFromFile('anotheronelol.jpg');
end;

procedure TfrmCalc.btn2Click(Sender: TObject);

begin
if pnlOutput.Caption = '0' then
Begin
pnlOutput.Caption := btn2.Caption;
End
Else
pnlOutput.Caption := pnlOutput.Caption + '2';

frmCalc.Color := clRed;

imgPic.Stretch := true;
if bMM = true then
imgPic.Picture.LoadFromFile('97y0js.jpg');
end;

procedure TfrmCalc.btn3Click(Sender: TObject);

begin
if pnlOutput.Caption = '0' then
Begin
pnlOutput.Caption := btn3.Caption;
End
Else
pnlOutput.Caption := pnlOutput.Caption + '3';

frmCalc.Color := clLime;

imgPic.Stretch := true;
if bMM = true then
imgPic.Picture.LoadFromFile('GHKTaOfXQAAfSFR.jpg');
end;

procedure TfrmCalc.btn4Click(Sender: TObject);

begin
if pnlOutput.Caption = '0' then
Begin
pnlOutput.Caption := btn4.Caption;
End
Else
pnlOutput.Caption := pnlOutput.Caption + '4';

frmCalc.Color := clSilver;

imgPic.Stretch := true;
if bMM = true then
imgPic.Picture.LoadFromFile('mqdefault.jpg');
end;

procedure TfrmCalc.btn5Click(Sender: TObject);

begin
if pnlOutput.Caption = '0' then
Begin
pnlOutput.Caption := btn5.Caption;
End
Else
pnlOutput.Caption := pnlOutput.Caption + '5';
 frmCalc.Color := clMoneyGreen;

imgPic.Stretch := true;
if bMM = true then
imgPic.Picture.LoadFromFile('Dn-ks_XX0AENgGG.jpg');
end;

procedure TfrmCalc.btn6Click(Sender: TObject);

begin
if pnlOutput.Caption = '0' then
Begin
pnlOutput.Caption := btn6.Caption;
End
Else
pnlOutput.Caption := pnlOutput.Caption + '6';

frmCalc.Color := clOlive;

imgPic.Stretch := true;
if bMM = true then

imgPic.Picture.LoadFromFile('459849174_3662929490686560_5088111011716121425_n.jpg')
;
end;

procedure TfrmCalc.btn7Click(Sender: TObject);

begin
if pnlOutput.Caption = '0' then
Begin
pnlOutput.Caption := btn7.Caption;
End
Else
pnlOutput.Caption := pnlOutput.Caption + '7';

frmCalc.Color := clMaroon;

imgPic.Stretch := true;
if bMM = true then
imgPic.Picture.LoadFromFile('images.jpeg');
end;

procedure TfrmCalc.btn8Click(Sender: TObject);

begin
if pnlOutput.Caption = '0' then
Begin
pnlOutput.Caption := btn8.Caption;
End
Else
pnlOutput.Caption := pnlOutput.Caption + '8';

frmCalc.Color := clNavy;

imgPic.Stretch := true;
if bMM = true then
imgPic.Picture.LoadFromFile('99tvi9z5xh481.jpg');
end;

procedure TfrmCalc.btn9Click(Sender: TObject);

begin
 if pnlOutput.Caption = '0' then
Begin
pnlOutput.Caption := btn9.Caption;
End
Else
pnlOutput.Caption := pnlOutput.Caption + '9';

frmCalc.Color := clActiveCaption;

imgPic.Stretch := true;
if bMM = true then
imgPic.Picture.LoadFromFile('they-were-just-chilling-v0-eqpoazruednb1.jpg');
end;

procedure TfrmCalc.btnabSQClick(Sender: TObject);

begin
//Check for combo for MM
if pnlOutput.Caption = '6363' then
Begin
imgMM.Show;
lblMM.Show
End;

pnlInput.Caption := pnlOutput.Caption;

pnlOutput.Caption := '0';
btnPlus.Enabled := false;
btnMinus.Enabled := false;
btnDiv.Enabled := false;
btnMult.Enabled := false;
btnSQRT.Enabled := false;
btnabSQRT.Enabled := false;
btnSQ.Enabled := false;
btnabSQ.Enabled := false;

sFunction := 'abSQ';

frmCalc.Color := clGray;
end;

procedure TfrmCalc.btnabSQRTClick(Sender: TObject);

begin
//Check for combo for MM
if pnlOutput.Caption = '6363' then
Begin
imgMM.Show;
lblMM.Show
End;

pnlInput.Caption := pnlOutput.Caption;

pnlOutput.Caption := '0';
btnPlus.Enabled := false;
btnMinus.Enabled := false;
btnDiv.Enabled := false;
btnMult.Enabled := false;
btnSQRT.Enabled := false;
btnabSQRT.Enabled := false;
btnSQ.Enabled := false;
 btnabSQ.Enabled := false;

ra := strtoFloat(inputbox('What is the value of a?','Enter Here',''));

rb := strtoFloat(inputbox('What is the value of b?','Enter Here',''));

sx := pnlInput.Caption;

sFunction :='ab√';

frmCalc.Color := clGray;
end;

procedure TfrmCalc.btnBsClick(Sender: TObject);

begin
pnlOutput.Caption := copy(pnlOutput.Caption, 1, length(pnlOutput.Caption)-1);

if pnlOutput.Caption = '' then

pnlOutput.Caption := '0';
end;

procedure TfrmCalc.btnCClick(Sender: TObject);

begin
pnlOutput.Caption := '0';
frmCalc.Color := clskyblue;

btn0.Enabled := true;
btn1.Enabled := true;
btn2.Enabled := true;
btn3.Enabled := true;
btn4.Enabled := true;
btn5.Enabled := true;
btn6.Enabled := true;
btn7.Enabled := true;
btn8.Enabled := true;
btn9.Enabled := true;
end;

procedure TfrmCalc.btnClearClick(Sender: TObject);

begin
//Check for combo for MM
if pnlOutput.Caption = '6363' then
Begin
imgMM.Show;
lblMM.Show
End;

pnlOutput.Caption := '0';
pnlInput.Caption := '';
sx := '';
sy := '';
ra := 0;
rb := 0;
sFunction := '';

btnPlus.Enabled := true;
btnMinus.Enabled := true;
btnDiv.Enabled := true;
btnMult.Enabled := true;
btnSQRT.Enabled := true;
 btnabSQRT.Enabled := true;
btnSQ.Enabled := true;
btnabSQ.Enabled := true;
btnMod.Enabled := true;
btnDiv2.Enabled := true;
btnPM.Enabled := true;
btnDot.Enabled := true;

btn0.Enabled := true;
btn1.Enabled := true;
btn2.Enabled := true;
btn3.Enabled := true;
btn4.Enabled := true;
btn5.Enabled := true;
btn6.Enabled := true;
btn7.Enabled := true;
btn8.Enabled := true;
btn9.Enabled := true;

frmCalc.Color := clskyblue;
imgPic.Stretch := true;

//swithc pic for mm

if bCE = true then
Begin
imgPic.Picture.LoadFromFile('51RB01ZmNCL._AC_UF1000,1000_QL80_.jpg');
bCE := false;
End
else if bCE = false then
Begin
imgPic.Picture.LoadFromFile('cleanmonk_xl.jpg');
bCE := true;
End;
end;

procedure TfrmCalc.btnDIV2Click(Sender: TObject);

begin
//Check for combo for MM
if pnlOutput.Caption = '6363' then
Begin
imgMM.Show;
lblMM.Show
End;

sx := pnlOutput.Caption;
pnlOutput.Caption := inttostr(Trunc(strtofloat(sx)));
pnlInput.Caption := pnlOutput.Caption;
pnlOutput.Caption := '0';

btnPlus.Enabled := false;
btnMinus.Enabled := false;
btnDiv.Enabled := false;
btnMult.Enabled := false;
btnSQRT.Enabled := false;
btnabSQRT.Enabled := false;
btnSQ.Enabled := false;
btnabSQ.Enabled := false;
btnMod.Enabled := false;
btnDiv2.Enabled := false;
 btnDot.Enabled := false;

sFunction :='D';

frmCalc.Color := clGray;
end;

procedure TfrmCalc.btnDivClick(Sender: TObject);

begin
//Check for combo for MM
if pnlOutput.Caption = '6363' then
Begin
imgMM.Show;
lblMM.Show
End;

pnlInput.Caption := pnlOutput.Caption;
pnlOutput.Caption := '0';

btnPlus.Enabled := false;
btnMinus.Enabled := false;
btnDiv.Enabled := false;
btnMult.Enabled := false;
btnSQRT.Enabled := false;
btnabSQRT.Enabled := false;
btnSQ.Enabled := false;
btnabSQ.Enabled := false;

sx := pnlInput.Caption;

sFunction := '/';
frmCalc.Color := clGray;
end;

procedure TfrmCalc.btnDotClick(Sender: TObject);

begin
if (POS('.', pnlOutput.Caption) <> 0) then
exit
Else
Begin
pnlOutput.Caption := pnlOutput.Caption + '.';
End;

end;

procedure TfrmCalc.btnEqClick(Sender: TObject);

begin
sy := pnlOutput.Caption;
frmCalc.Color := clTeal;
btnPM.Enabled := false;

if sFunction = '*' then

begin
sAns := floattostr( strtofloat(sx) * strtofloat(sy) );
pnlOutput.Caption := sAns;
pnlInput.Caption := sx + sFunction + sy;
end

else if sFunction = '/' then

 begin
if sy = '0' then
begin
pnlOutput.Caption := 'Math Error';
end;

sAns := floattostr( strtofloat(sx) / strtofloat(sy) );

pnlOutput.Caption := sAns;
pnlInput.Caption := sx + sFunction + sy;
end

else if sFunction = '+' then

Begin
sAns := floattostr( strtofloat(sx) + strtofloat(sy) );
pnlOutput.Caption := sAns;
pnlInput.Caption := sx + sFunction + sy;
End

else if sFunction = '-' then

Begin
sAns := floattostr( strtofloat(sx) - strtofloat(sy) );
pnlOutput.Caption := sAns;
pnlInput.Caption := sx + sFunction + sy;
End

else if sFunction = '√' then

Begin
pnlOutput.Caption := floattostr(Sqrt(strtoFloat(pnlInput.Caption)));
pnlInput.Caption := '√' + pnlinput.Caption;
End

else if sFunction = '²' then

Begin
pnlOutput.Caption := floattostr(Power(strtoFloat(sx),2));
pnlInput.Caption := pnlinput.Caption + '²';
End

else if sFunction = 'ab√' then

Begin
pnlOutput.Caption := floattostr(Power(strtoFloat(sx),ra/rb));
pnlInput.Caption := floattostr(rb) + '√' + sx +'^' + floattostr(ra) ;
End

else if sFunction = 'abSQ' then

Begin
ra := strtofloat(pnlOutput.Caption);
pnlOutput.Caption := floattostr(Power(strtoFloat(sx),strtofloat(sy)));
pnlInput.Caption := floattostr(strtofloat(sx)) + '^' + floattostr(ra);
End

else if sFunction = 'D' then

Begin
pnlOutput.Caption := inttostr(strtoint(pnlInput.Caption) DIV strtoint(sy));
pnlInput.Caption := sx + ' DIV ' + sy;
End

else if sFunction = 'M' then

Begin
pnlOutput.Caption := inttostr(strtoint(pnlInput.Caption) MOD strtoint(sy));
 pnlInput.Caption := sx + ' MOD ' + sy;
End;
end;

procedure TfrmCalc.btnPlusClick(Sender: TObject);

begin
//Check for combo for MM
if pnlOutput.Caption = '6363' then
Begin
imgMM.Show;
lblMM.Show
End;

pnlInput.Caption := pnlOutput.Caption;
pnlOutput.Caption := '0';

btnPlus.Enabled := false;
btnMinus.Enabled := false;
btnDiv.Enabled := false;
btnMult.Enabled := false;
btnSQRT.Enabled := false;
btnabSQRT.Enabled := false;
btnSQ.Enabled := false;
btnabSQ.Enabled := false;
btnMod.Enabled := false;
btnDiv2.Enabled := false;

sx := pnlInput.Caption;
sFunction :='+';

frmCalc.Color := clGray;
end;

procedure TfrmCalc.btnPMClick(Sender: TObject);

begin
pnlOutput.Caption := floattostr(-1 * strtofloat(pnlOutput.Caption));
end;

procedure TfrmCalc.btnSQClick(Sender: TObject);

begin
//Check for combo for MM
if pnlOutput.Caption = '6363' then
Begin
imgMM.Show;
lblMM.Show
End;

pnlInput.Caption := pnlOutput.Caption;
pnlOutput.Caption := '0';

btnPlus.Enabled := false;
btnMinus.Enabled := false;
btnDiv.Enabled := false;
btnMult.Enabled := false;
btnSQRT.Enabled := false;
btnabSQRT.Enabled := false;
btnSQ.Enabled := false;
btnabSQ.Enabled := false;
btnMod.Enabled := false;
 btnDiv2.Enabled := false;

btn0.Enabled := false;
btn1.Enabled := false;
btn2.Enabled := false;
btn3.Enabled := false;
btn4.Enabled := false;
btn5.Enabled := false;
btn6.Enabled := false;
btn7.Enabled := false;
btn8.Enabled := false;
btn9.Enabled := false;

sx := pnlInput.Caption;
sFunction :='²';

frmCalc.Color := clGray;
end;

procedure TfrmCalc.btnSQRTClick(Sender: TObject);

begin
//Check for combo for MM
if pnlOutput.Caption = '6363' then
Begin
imgMM.Show;
lblMM.Show
End;

pnlInput.Caption := pnlOutput.Caption;
pnlOutput.Caption := '0';

btnPlus.Enabled := false;
btnMinus.Enabled := false;
btnDiv.Enabled := false;
btnMult.Enabled := false;
btnSQRT.Enabled := false;
btnabSQRT.Enabled := false;
btnSQ.Enabled := false;
btnabSQ.Enabled := false;
btnMod.Enabled := false;
btnDiv2.Enabled := false;

btn0.Enabled := false;
btn1.Enabled := false;
btn2.Enabled := false;
btn3.Enabled := false;
btn4.Enabled := false;
btn5.Enabled := false;
btn6.Enabled := false;
btn7.Enabled := false;
btn8.Enabled := false;
btn9.Enabled := false;

sx := pnlInput.Caption;
sFunction :='√';

frmCalc.Color := clGray;
end;
procedure TfrmCalc.FormActivate(Sender: TObject);
begin
pnlOutput.Caption := '';
pnlInput.Caption := '';
sx := '';
sy := '';
ra := 0;
rb := 0;
sFunction := '';
lblMM.Caption := 'Meme mode';
frmCalc.Font.Size := 15;
frmCalc.Font.Style := [fsBold];
frmCalc.Font.Name := 'Papyrus';
frmCalc.Color := clskyblue;
imgMM.Stretch := true;
lblx.Caption := 'This is your "x" value';
lblf.Caption := 'This is your functions';
imgMM.Picture.LoadFromFile('71GH3aYEljL.jpg');
pnlInput.Alignment := taRightJustify;
pnlOutput.Alignment := taRightJustify;
imgMM.Hide;
lblMM.Hide;
bMM := false;
pnlOutput.Caption := '0';
pnlInput.BevelOuter := bvLowered;
pnlOutput.BevelOuter := bvLowered;
pnlInput.BevelInner := bvRaised;
pnlOutput.BevelInner := bvRaised;
pnlInput.Color := clWhite;
pnlOutput.Color := clWhite;
lblx.Font.Size := 10;
lblf.Font.Size := 10;
end;

procedure TfrmCalc.FormCreate(Sender: TObject);

begin
frmCalc.Width := 446;
frmCalc.Height := 517;
frmCalc.Position := poMainFormCenter;
end;

procedure TfrmCalc.imgMMClick(Sender: TObject);

begin
//activate MM
ShowMessage('Goeie dag meneer, die "mode" was geïnspereer deur Eckard...');
frmCalc.Width := 699;
frmCalc.Height := 517;
imgMM.Enabled := false;
frmCalc.Position := poMainFormCenter;
bMM := true
end;

procedure TfrmCalc.btnMinusClick(Sender: TObject);

begin
//Check for combo for MM
if pnlOutput.Caption = '6363' then
Begin
imgMM.Show;
lblMM.Show
 End;

pnlInput.Caption := pnlOutput.Caption;
pnlOutput.Caption := '0';

btnPlus.Enabled := false;
btnMinus.Enabled := false;
btnDiv.Enabled := false;
btnMult.Enabled := false;
btnSQRT.Enabled := false;
btnabSQRT.Enabled := false;
btnSQ.Enabled := false;
btnabSQ.Enabled := false;
btnMod.Enabled := false;
btnDiv2.Enabled := false;

sx := pnlInput.Caption;
sFunction :='-';

frmCalc.Color := clGray;
end;

procedure TfrmCalc.btnModClick(Sender: TObject);

begin
//Check for combo for MM
if pnlOutput.Caption = '6363' then
Begin
imgMM.Show;
lblMM.Show
End;

sx := pnlOutput.Caption;
pnlOutput.Caption := inttostr(Trunc(strtofloat(sx)));
pnlInput.Caption := pnlOutput.Caption;
pnlOutput.Caption := '0';

btnPlus.Enabled := false;
btnMinus.Enabled := false;
btnDiv.Enabled := false;
btnMult.Enabled := false;
btnSQRT.Enabled := false;
btnabSQRT.Enabled := false;
btnSQ.Enabled := false;
btnabSQ.Enabled := false;
btnMod.Enabled := false;
btnDiv2.Enabled := false;
btnDot.Enabled := false;

sFunction :='M';

frmCalc.Color := clGray;
end;

procedure TfrmCalc.btnMultClick(Sender: TObject);

begin
//Check for combo for MM
if pnlOutput.Caption = '6363' then
Begin
imgMM.Show;
 lblMM.Show
End;

pnlInput.Caption := pnlOutput.Caption;
pnlOutput.Caption := '0';

btnPlus.Enabled := false;
btnMinus.Enabled := false;
btnDiv.Enabled := false;
btnMult.Enabled := false;
btnSQRT.Enabled := false;
btnabSQRT.Enabled := false;
btnSQ.Enabled := false;
btnabSQ.Enabled := false;
btnMod.Enabled := false;
btnDiv2.Enabled := false;

sx := pnlInput.Caption;
sFunction :='*';

frmCalc.Color := clGray;
end;

end.