Genel İşlemler - Kod tekrarları hk.

Kod tekrarları hk.

Nereden Yazdırıldığı: Clomosy | Forum
Kategori: Genel Programlama
Forum Adı: Genel İşlemler
Forum Tanımlaması: TRObject dili ile programlama yaparken karşılaşılan genel işlemler
URL: https://forum.clomosy.com.tr/forum_posts.asp?TID=637
Tarih: 08 Ocak 2025 Saat 00:22
Program Versiyonu: Web Wiz Forums 12.07 - https://www.webwizforums.com

Konu: Kod tekrarları hk.

Mesajı Yazan: Seyit
Konu: Kod tekrarları hk.
Mesaj Tarihi: 10 Temmuz 2024 Saat 17:53

Resimde görüldüğü gibi tasarım yaparken bazı komponentlere aynı özellikleri giriyorum ve bu da kod tekrarları oluşturmaya başladı. Ayrıca sonradan özelliklerin değerlerini değiştirmeye çalıştığımda teker teker değiştirmek zorunda kalıyorum. Resimde tekrar eden özellikleri bir fonksiyonda tanımlasak sonra da o fonksiyonu resimde görüldüğü gibi SetupComponent içerisinde çağırabilir miyiz?

Cevaplar:

Mesajı Yazan: Atiker01
Mesaj Tarihi: 11 Temmuz 2024 Saat 10:20

Merhaba Seyit,

Bahsetmiş olduğun uygulama üzerinde kod tekrarını önlemek için bir procedure veya fonksiyon oluşturarak tekrarı önleyebilirsin ya da setupComponent yerine clProSettings özelliğini kullanarak yapabilirsin. Aşağıda her iki kullanım mevcuttur.

Örnek kullanım 1:

Var   
   MyForm:TclForm;
   showFileBtn,updateFileBtn : TClProButton;
 
 void componentSettings(Tbutton: TclProButton);
{
 clComponent.SetupComponent(Tbutton,'{"Align" : "Center","BorderColor":"#652020","RoundHeight":10,
  "RoundWidth":10,"Width" :150,"BorderWidth":2}');
}

 
 {
  MyForm = TclForm.Create(Self);
  showFileBtn = MyForm.AddNewProButton(MyForm,'showFileBtn','Dosya içeriğini görüntüle');
  componentSettings(showFileBtn);
  updateFileBtn = MyForm.AddNewProButton(MyForm,'updateFileBtn','Dosya içeriğini güncelle');
  componentSettings(updateFileBtn);
  updateFileBtn.Margins.Left = 500;
  MyForm.Run;
 
 }

Örnek kullanım 2:

  Var   
   MyForm:TclForm;
   showFileBtn,updateFileBtn : TClProButton;
 
 {
  MyForm = TclForm.Create(Self);
  showFileBtn = MyForm.AddNewProButton(MyForm,'showFileBtn','Dosya içeriğini görüntüle');
  showFileBtn.Align = alCenter;
  showFileBtn.Width = 150;
  showFileBtn.clProSettings.BorderColor = clAlphaColor.clHexToColor('#652020');
  showFileBtn.clProSettings.RoundHeight = 10;
  showFileBtn.clProSettings.RoundWidth = 10;
  showFileBtn.clProSettings.BorderWidth = 2;
  showFileBtn.SetclProSettings(showFileBtn.clProSettings);
  
  updateFileBtn = MyForm.AddNewProButton(MyForm,'updateFileBtn','Dosya içeriğini güncelle');
  updateFileBtn.Align = alCenter;
  updateFileBtn.Width = 150;
  updateFileBtn.Margins.Left = 500;
  updateFileBtn.SetclProSettings(showFileBtn.clProSettings);
  MyForm.Run;
 
 }

Bunun dışında kod tekrarı yaşadığın verileri bir string değişkenine atayarak da kullanımını sağlayabilirsin.