Sayfayı Yazdır | Pencereyi Kapat

Resim Değiştirme

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=1127
Tarih: 26 Temmuz 2025 Saat 10:28
Program Versiyonu: Web Wiz Forums 12.07 - https://www.webwizforums.com


Konu: Resim Değiştirme
Mesajı Yazan: Ahmet_27
Konu: Resim Değiştirme
Mesaj Tarihi: 24 Temmuz 2025 Saat 09:51
Resme basınca resim değişsin istiyorum.
TCLImage'da     MultiResBitmap.Clear; şu özellik olduğu için yapılabiliyor.
TclProImage'da mümkün değil mi bir yolu var mı?



Cevaplar:
Mesajı Yazan: Mahmutdmr
Mesaj Tarihi: 24 Temmuz 2025 Saat 10:42
Merhaba Ahmet,

Bu şekilde prosedür oluşturarak gerçekleşmesini istediğin eylemi yapabilirsin örnek çalışan bir kod yolluyorum. Umarım yardımcı olabilmişimdir. İyi çalışmalar dilerim.

var
  Form1: TclForm;
  MainPanel: TclProPanel;
  Img: TclProImage;
  resimDegisti: Boolean;

void ImgClick
{
  if not resimDegisti
  {
    Form1.SetImage(Img, ' https://www.medyaege.com.tr/d/news/87363.jpg" rel="nofollow - https://www.medyaege.com.tr/d/news/87363.jpg ');
    resimDegisti = True;
  }
  else
  {
    Form1.SetImage(Img, ' https://www.konyaekspres.com/images/haberler/2019/10/fotograf-sanatcilarindan-harika-fotograflar.jpg" rel="nofollow - https://www.konyaekspres.com/images/haberler/2019/10/fotograf-sanatcilarindan-harika-fotograflar.jpg ');
    resimDegisti = False;
  }
}

{
  resimDegisti = False;

  Form1 = TclForm.Create(Self);
  MainPanel = Form1.AddNewProPanel(Form1, 'MainPanel');
  MainPanel.Align = alClient;

  Img = Form1.AddNewProImage(MainPanel, 'Img');
  Img.Align = alCenter;
  Img.Width = 300;
  Img.Height = 200;
  Img.Margins.Top = 30;

  Form1.SetImage(Img, ' https://www.konyaekspres.com/images/haberler/2019/10/fotograf-sanatcilarindan-harika-fotograflar.jpg" rel="nofollow - https://www.konyaekspres.com/images/haberler/2019/10/fotograf-sanatcilarindan-harika-fotograflar.jpg ');

  Form1.AddNewEvent(Img, tbeOnClick, 'ImgClick');

  Form1.Run;
}




Mesajı Yazan: Ahmet_27
Mesaj Tarihi: 24 Temmuz 2025 Saat 10:53
Oldu Teşekkür ederim.



Sayfayı Yazdır | Pencereyi Kapat

Forum Software by Web Wiz Forums® version 12.07 - https://www.webwizforums.com
Copyright ©2001-2024 Web Wiz Ltd. - https://www.webwiz.net