var

  hesapForm : TclForm;

  titleLabel: TClProLabel;

  hesapPanel : TclProPanel;

  displayLabel : TClProLabel;

  btn : TClProButton;

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

  i, col, row: Integer;

  

  // HESAPLAMA İÇİN YENİ EKLENEN DEĞİŞKENLER

  ilkSayi: Double;

  islem: String;

  yeniSayiMi: Boolean;

// TUŞLARA TIKLANDIĞINDA ÇALIŞACAK ANA FONKSİYON

void ButtonClick;

var

  tiklananTus: String;

  ikinciSayi, sonuc: Double;

{

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

  tiklananTus = TClProButton(hesapForm.ClSender).Caption; 

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

  // 1. Temizleme Tuşu (C)

  if (tiklananTus == 'C')

  {

    displayLabel.Text = '0';

    ilkSayi = 0;

    islem = '';

    yeniSayiMi = True;

  }

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

  else if (tiklananTus == '⌫')

  {

    if (Length(displayLabel.Text) > 1)

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

    else

      displayLabel.Text = '0';

  }

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

  else if (tiklananTus == '=')

  {

    if (islem <> '')

    {

      ikinciSayi = StrToFloat(displayLabel.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;

      }

      

      displayLabel.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(displayLabel.Text);

    islem = tiklananTus;

    yeniSayiMi = True;

  }

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

  else if (tiklananTus == '%')

  {

    ilkSayi = StrToFloat(displayLabel.Text);

    sonuc = ilkSayi / 100;

    displayLabel.Text = FloatToStr(sonuc);

    yeniSayiMi = True;

  }

  // 6. Rakamlar ve Nokta

  else

  {

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

    {

      displayLabel.Text = tiklananTus;

      yeniSayiMi = False;

    }

    else

    {

      displayLabel.Text = displayLabel.Text + tiklananTus;

    }

  }

}

void setLabel;

{

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

  titleLabel.Align = alTop;

  titleLabel.Height = 70;

  

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

  titleLabel.clProSettings.FontSize = 40;

  titleLabel.clProSettings.FontVertAlign = palcenter;

  titleLabel.clProSettings.FontHorzAlign = palCenter;

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

  titleLabel.SetclProSettings(titleLabel.clProSettings);

}

void setPanel;

{

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

  hesapPanel.Align = alCenter; 

  hesapPanel.Width = 460;

  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);

}

void setDisplay;

{

  displayLabel = hesapForm.AddNewProLabel(hesapPanel,'displayLabel','0');

  displayLabel.Align = alTop;

  displayLabel.Height = 70;

  displayLabel.Margins.Top = 15;

  displayLabel.Margins.Left = 15;

  displayLabel.Margins.Right = 15;

  

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

  displayLabel.clProSettings.FontSize = 36;

  displayLabel.clProSettings.FontVertAlign = palCenter;

  displayLabel.clProSettings.FontHorzAlign = palTrailing; 

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

  displayLabel.clProSettings.IsFill = True;

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

  displayLabel.clProSettings.IsRound = True;

  displayLabel.clProSettings.BorderColor = clAlphaColor.clHexToColor('#f5428d');

  displayLabel.clProSettings.BorderWidth = 2;

  displayLabel.SetclProSettings(displayLabel.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);