Clomosy | Forum Ana Sayfa
Forum Anasayfa Forum Anasayfa > Genel Programlama > Genel İşlemler
  Aktif Konular Aktif Konular RSS - satir 127 Width 100 verdim ama goruntuden gelmiyor
  SSS SSS  Forumu Ara   Etkinlikler   Kayıt Ol Kayıt Ol  Giriş Giriş

Clomosy Resmi Forum Sitesidir. Amacımız kullanıcılarımıza, iş ortaklarımıza, danışmanlara, yazılımcılara programlarımız hakkında destek ve bilgi vermektir.

satir 127 Width 100 verdim ama goruntuden gelmiyor
 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
  Konu Arama Konu Arama  Topic Seçenekleri Topic Seçenekleri
Barthe_dev Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 07 Temmuz 2026
Konum: konya
Durum: Aktif Değil
Puanlar: 12 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı Barthe_dev Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: satir 127 Width 100 verdim ama goruntuden gelmiyor
    Gönderim Zamanı: 07 Temmuz 2026 Saat 17:58
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);
    btn.Align = alNone; 
    btn.Width = 100;
    btn.Height = 55;
    
    btn.Position.X = (col * 110) + 40; 
    btn.Position.Y = (row * 60) + 105; 
    
    btn.clProSettings.IsRound = True;
    btn.clProSettings.IsFill = True; 
    btn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#101d2d'); 
    btn.clProSettings.BorderColor = clAlphaColor.clHexToColor('#bdf4e2');
    btn.clProSettings.BorderWidth = 2;
    btn.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); 
    btn.clProSettings.FontSize = 22;
    btn.clProSettings.TextSettings.Font.Style = [fsBold];
    btn.SetclProSettings(btn.clProSettings);

    // YENİ EKLENEN KISIM: Tuşları ButtonClick fonksiyonuna bağlıyoruz
    hesapForm.AddNewEvent(btn, tbeOnClick, 'ButtonClick');
  }
}



{
  hesapForm = TCLForm.Create(Self);
  hesapForm.SetFormColor('#101d2d','',clGNone);
  yeniSayiMi = True; 
  ilkSayi = 0;
  islem = '';
  setLabel;
  setPanel;
  setEdit;
  setButtons; 
  createButtonUI; 
  hesapForm.Run;
}


https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">
Yukarı Dön
Emr.Erkmn Açılır Kutu İzle
Moderatör
Moderatör


Kayıt Tarihi: 28 Şubat 2025
Durum: Aktif Değil
Puanlar: 967 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı Emr.Erkmn Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: Dün Saat 09:58
Merhaba Barthez
Bir componenti hizalama da alTop kullandığın da width veremiyorsun 
çünkü hizalandığında formun tüm genişliğini alıyor. Aynı durum bileşeni albottom hizalamasında da geçerli. 

Yine birleşeni sağda veya solda hizaladığında yükseklik değeri verdiğinde etkilemiyorhttps://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">
Yukarı Dön
 Yanıt Yaz Yanıt Yaz

Forum Atla Forum İzinleri Açılır Kutu İzle

Forum Software by Web Wiz Forums® version 12.07
Copyright ©2001-2024 Web Wiz Ltd.

Bu Sayfa 0,121 Saniyede Yüklendi.