var

hesapForm : TclForm;

titleLabel: TClProLabel;

hesapPanel : TclProPanel;

hesapSonuc: TClProLabel;

btn : TClProButton;

buttons: array[0..19] of string;

i, col, row: Integer;

ilkSayi: Double;

islem: String;

yeniSayiMi: Boolean;

//FONCTION POUR EFFECTUER DES CALCULS

void ButtonClick;

var

  tiklananTus: String;

  ikinciSayi, sonuc: Double;

{

  // Hangi tuşa basıldığını alıyoruz

  tiklananTus = TClProButton(hesapForm.ClSender).Caption; //Recupere l'elemnet present sur le boutton qu'on a appuyer

  if (tiklananTus == '') Exit; // Boş tuşa basıldıysa hiçbir şey yapma

  // 1. Temizleme Tuşu (C)

  if (tiklananTus == 'C')

  {

    hesapSonuc.Text = '0';

    ilkSayi = 0;

    islem = '';

    yeniSayiMi = True;

  }

  // 2. Geri Silme Tuşu (⌫)

  else if (tiklananTus == '⌫')

  {

    if (Length(hesapSonuc.Text) > 1)

      hesapSonuc.Text = Copy(hesapSonuc.Text, 1, Length(hesapSonuc.Text) - 1);

    else

      hesapSonuc.Text = '0';

  }

  // 3. Eşittir Tuşu (=) - Sonucu Hesapla

  else if (tiklananTus == '=')

  {

    if (islem <> '')

    {

      ikinciSayi = StrToFloat(hesapSonuc.Text);

      

      if (islem == '+') sonuc = ilkSayi + ikinciSayi;

      else if (islem == '-') sonuc = ilkSayi - ikinciSayi;

      else if (islem == '*') sonuc = ilkSayi * ikinciSayi;

      else if (islem == '/')

      {

        if (ikinciSayi == 0) sonuc = 0; // Sıfıra bölme hatasını engellemek için

        else sonuc = ilkSayi / ikinciSayi;

      }

      

      hesapSonuc.Text = FloatToStr(sonuc);

      islem = '';

      yeniSayiMi = True; // İşlem bitti, yeni rakam girildiğinde ekranı temizle

    }

  }

  // 4. Dört İşlem Tuşları (+, -, *, /)

  else if ((tiklananTus == '+') || (tiklananTus == '-') || (tiklananTus == '*') || (tiklananTus == '/'))

  {

    ilkSayi = StrToFloat(hesapSonuc.Text);

    islem = tiklananTus;

    yeniSayiMi = True;

  }

  // 5. Yüzde Alma İşlemi (%)

  else if (tiklananTus == '%')

  {

    ilkSayi = StrToFloat(hesapSonuc.Text);

    sonuc = ilkSayi / 100;

    hesapSonuc.Text = FloatToStr(sonuc);

    yeniSayiMi = True;

  }

  // 6. Rakamlar ve Nokta

  else

  {

    if (yeniSayiMi || (hesapSonuc.Text == '0'))

    {

      hesapSonuc.Text = tiklananTus;

      yeniSayiMi = False;

    }

    else

    {

      hesapSonuc.Text = hesapSonuc.Text + tiklananTus;

    }

  }

}

void setLabel;

{

  titleLabel = hesapForm.AddNewProLabel(hesapForm,'titleLabel','My First Hesap Makinesi');

  titleLabel.Align = alTop;

  titleLabel.Width = 150;

  titleLabel.Height = 70;

  titleLabel.Margins.Left=120;

  titleLabel.clProSettings.FontColor = clAlphaColor.clHexToColor('#bdf4e2');

  titleLabel.clProSettings.FontSize = 40;

  titleLabel.clProSettings.FontVertAlign = palcenter;

  titleLabel.clProSettings.FontHorzAlign = palLeading;

  titleLabel.clProSettings.TextSettings.Font.Style = [fsBold];

  titleLabel.clProSettings.IsFill = True; 

  titleLabel.clProSettings.IsRound = True;

  titleLabel.SetclProSettings(titleLabel.clProSettings);

}

void setPanel{

  hesapPanel=hesapForm.AddNewProPanel(hesapForm,'hesapPanel');

  hesapPanel.Width = 500;

  hesapPanel.Height = 420;

  hesapPanel.clProSettings.BorderColor = clAlphaColor.clHexToColor('#46484e');

  hesapPanel.clProSettings.BorderWidth = 2;

  hesapPanel.clProSettings.IsFill = True; 

  hesapPanel.clProSettings.IsRound = True;

  hesapPanel.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#080c16')

  hesapPanel.SetclProSettings(hesapPanel.clProSettings);

  hesapPanel.Align = alCenter;

}

void setEdit

  {

    hesapSonuc = hesapForm.AddNewProLabel(hesapPanel,'hesapSonuc','0.0');

    hesapSonuc.Align = alTop;

    hesapSonuc.Height = 70;

    hesapSonuc.Width=100;

    hesapSonuc.Margins.Top = 15;

    hesapSonuc.Margins.Left = 15;

    hesapSonuc.Margins.Right = 15;

    hesapSonuc.clProSettings.BorderColor = clAlphaColor.clHexToColor('#bdf4e2');

    hesapSonuc.clProSettings.BorderWidth = 2;

    hesapSonuc.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');

    hesapSonuc.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#101d2d');

    

    hesapSonuc.clProSettings.FontSize = 40;

    hesapSonuc.clProSettings.FontVertAlign = palcenter;//palLeading , palCenter , palTrailing

    hesapSonuc.clProSettings.FontHorzAlign = palTrailing;

    hesapSonuc.clProSettings.TextSettings.Font.Style = [fsBold];

  

    hesapSonuc.clProSettings.IsFill = True; 

    hesapSonuc.clProSettings.IsRound = True;

    hesapSonuc.SetclProSettings(hesapSonuc.clProSettings);

 }

 

 void setButtons;

{

  buttons[0] = 'C';  buttons[1] = '%';  buttons[2] = '⌫'; buttons[3] = '/';

  buttons[4] = '7';  buttons[5] = '8';  buttons[6] = '9';  buttons[7] = '*';

  buttons[8] = '4';  buttons[9] = '5';  buttons[10] = '6'; buttons[11] = '-';

  buttons[12] = '1'; buttons[13] = '2'; buttons[14] = '3'; buttons[15] = '+';

  buttons[16] = '0'; buttons[17] = '.'; buttons[18] = '='; buttons[19] = '';

}

void createButtonUI;

{

  for (i = 0 to 19)

  {

    col = i mod 4; 

    row = i div 4; 

    

    btn = hesapForm.AddNewProButton(hesapPanel, 'btn'+IntToStr(i), buttons);