Sayılar değişince tüm görseller değişiyor.

   Hocam bütün görsel ayarları tek bir kısma bağlı. Oradaki görsel boyutunu değşitirince tüm görseller değişiyor. Ama ben tüm görsellerin boyutunu teker teker ayarlamak istiyorum. Özellikle güneş, merkür, satürn, uranüs ve güneş sistemi görsellerini ayrı ayrı boyutlandırmam gerekiyor çünkü genel boyutlandırmada onlar küçük kalıyor.
Var
  MainForm, ListForm, DetailForm: TclForm;
  GoListBtn: TclButton;
  PlanetImg: TclImage;
  InfoLbl: TclLabel;
  Sky1, Sky2, Sky3: TclImage;

procedure GoBack;
begin
  DetailForm.Close;
end;

procedure ShowDetail(PlanetName, Info: String; AssetPath: String);
begin
  DetailForm := TclForm.Create(Self);
  Sky3 := DetailForm.AddNewImage(DetailForm, 'Sky3');
  Sky3.Align := alClient;
  DetailForm.SetImage(Sky3, '/assets/uzay');

  PlanetImg := DetailForm.AddNewImage(DetailForm, 'PlanetImg');
  PlanetImg.Width := 380; PlanetImg.Height := 380;    //gezegen görsellerinin büyüklüğü
  PlanetImg.Position.X := 80; PlanetImg.Position.Y := 50;
  DetailForm.SetImage(PlanetImg, AssetPath);

  InfoLbl := DetailForm.AddNewLabel(DetailForm, 'InfoLbl', Info);
  InfoLbl.Align := alBottom;
  InfoLbl.Height := 150;    //metinlerin başlayacağı yükseklik
  InfoLbl.TextSettings.HorzAlign := taCenter;

  DetailForm.Run;
end;

procedure OnGunes; begin ShowDetail('GÜNEŞ', '✅Güneş sisteminin merkezinde yer alan orta büyüklükte bir yıldızdır. 
✅Sistemdeki kütlenin %99.8ini oluşturur. 
✅Tüm gezegenlere ısı ve ışık sağlar.
✨İlginç Bilgi✨
🤔Güneş o kadar büyüktür ki, içine yaklaşık 1.3 milyon tane Dünya sığabilir!

', '/assets/gunes'); end;

procedure OnMerkur; begin ShowDetail('MERKÜR', '✅Güneş’e en yakın gezegendir.
✅En küçük gezegendir.
✅Gündüzleri çok sıcak, geceleri ise dondurucu soğuktur.
✅Yüzeyi kraterlerle doludur.
✅Uydusu yoktur.
✨İlginç Bilgi✨
🤔Bir yılı 88 gündür.

', '/assets/merkur'); end;

procedure OnVenus; begin ShowDetail('VENÜS', '✅Dünya’ya en yakın gezegenlerden biridir.
✅Güneş sisteminin en sıcak gezegenidir. 
✅Kalın atmosferi ısıyı hapseder. 
✅Gökyüzünde çok parlak görünür.
✅“Çoban Yıldızı” olarak bilinir.
✅Uydusu yoktur.
✨İlginç Bilgi✨
🤔Venüs, kendi etrafında diğer gezegenlerin tersi yönünde döner.

','/assets/venus'); end;

procedure OnDunya; begin ShowDetail('DÜNYA', '✅Üzerinde yaşam olan tek gezegendir.
✅Yüzeyinin büyük kısmı sudur.
✅Bir adet doğal uydusu vardır: Ay.
✅Atmosferi canlıların yaşaması için uygundur.
✅ görünümü nedeniyle "Mavi Gezegen" olarak adlandırılır.
✨İlginç Bilgi✨
🤔Dünyanın %70inden fazlası suyla kaplıdır.

', '/assets/dunya'); end;

procedure Onmars; begin ShowDetail('MARS', '✅“Kızıl Gezegen” olarak bilinir.
✅Yüzeyinde demir oksit bulunduğu için kırmızı görünür.
✅İnce bir atmosfere sahiptir.
✅İki tane uydusu vardır.
✅Gelecekte insanların yaşayabileceği düşünülmektedir.
✨İlginç Bilgi✨
🤔Marsta Güneş sisteminin en yüksek dağı olan Olympus Dağı bulunur.

', '/assets/MARS'); end;

procedure Onjupiter; begin ShowDetail('JÜPİTER', '✅Güneş Sistemi’nin en büyük gezegenidir.
✅Büyük bir gaz gezegenidir.
✅Katı bir yüzeyi yoktur.
✅Çok güçlü fırtınaları vardır.
✅Çok sayıda uydusu bulunur.
✅Büyük Kırmızı Leke adlı dev fırtınası ünlüdür.
✨İlginç Bilgi✨
🤔Jüpiter o kadar büyüktür ki içine 1300 tane Dünya sığabilir!

', '/assets/jupiter'); end;

procedure Onsaturn; begin ShowDetail('SATÜRN', '✅Büyük bir gaz gezegenidir.
✅Etrafındaki devasa ve parlak halkalarıyla bilinir. Bu halkalar buz ve taş parçalarından oluşur.
✅En büyük halkalara sahip gezegendir
✅Çok sayıda uyduya sahiptir.
✨İlginç Bilgi✨
🤔Satürn sudan daha az yoğundur, dev bir havuzda yüzebilirdi!

', '/assets/satürn'); end;

procedure Onuranus; begin ShowDetail('URANÜS', '✅Çok soğuk bir gezegendir.
✅Bir buz devidir.
✅Kendi ekseni etrafında yan yatmış şekilde döner.
✅Gaz ve buzdan oluşur.
✅Yan yatmış bir varil gibi dönerek ilerler.
✨İlginç Bilgi✨
🤔Uranüsün rengi atmosferindeki metan gazı nedeniyle mavidir.

', '/assets/uranus'); end;

procedure Onneptun; begin ShowDetail('NEPTÜN', '✅Güneş’e en uzak gezegendir.
✅Çok güçlü rüzgârları ve dondurucu soğukları vardır.
✅Mavi renkte görünür.
✨İlginç Bilgi✨
🤔Neptün, matematiksel hesaplamalarla bulunan ilk gezegendir.

', '/assets/neptun'); end;

procedure Ongunessistemi; begin ShowDetail('GÜNEŞ SİSTEMİ', '🌞Güneş Sisteminde gezegenlerin sıralanışı🌞

', '/assets/gunessistemi'); end;

procedure OpenList;
Var
  btn1, btn2, btn3, btn4, btn5, btn6, btn7, btn8, btn9, btn10: TclButton;
begin
  ListForm := TclForm.Create(Self);
  Sky2 := ListForm.AddNewImage(ListForm, 'Sky2');
  Sky2.Align := alClient;
  ListForm.SetImage(Sky2, '/assets/uzay');

  btn1 := ListForm.AddNewButton(ListForm, 'btn1', '1. GÜNEŞ');
  btn1.Align := alTop; btn1.Height := 50;
  ListForm.AddNewEvent(btn1, 1, 'OnGunes');

  btn2 := ListForm.AddNewButton(ListForm, 'btn2', '2. MERKÜR');
  btn2.Align := alTop; btn2.Height := 50;
  ListForm.AddNewEvent(btn2, 1, 'OnMerkur');

  btn3 := ListForm.AddNewButton(ListForm, 'btn3', '3. VENÜS');
  btn3.Align := alTop; btn3.Height := 50;
  ListForm.AddNewEvent(btn3, 1, 'OnVenus');

  btn4 := ListForm.AddNewButton(ListForm, 'btn4', '4. DÜNYA');
  btn4.Align := alTop; btn4.Height := 50;
  ListForm.AddNewEvent(btn4, 1, 'OnDunya');

  btn5 := ListForm.AddNewButton(ListForm, 'btn5', '5. MARS');
  btn5.Align := alTop; btn5.Height := 50;
  ListForm.AddNewEvent(btn5, 1, 'Onmars');

  btn6 := ListForm.AddNewButton(ListForm, 'btn6', '6. JÜPİTER');
  btn6.Align := alTop; btn6.Height := 50;
  ListForm.AddNewEvent(btn6, 1, 'Onjupiter');

  btn7 := ListForm.AddNewButton(ListForm, 'btn7', '7. SATÜRN');
  btn7.Align := alTop; btn7.Height := 50;
  ListForm.AddNewEvent(btn7, 1, 'Onsaturn');

  btn8 := ListForm.AddNewButton(ListForm, 'btn8', '8. URANÜS');
  btn8.Align := alTop; btn8.Height := 50;
  ListForm.AddNewEvent(btn8, 1, 'Onuranus');

  btn9 := ListForm.AddNewButton(ListForm, 'btn9', '9. NEPTÜN');
  btn9.Align := alTop; btn9.Height := 50;
  ListForm.AddNewEvent(btn9, 1, 'Onneptun');

  btn10 := ListForm.AddNewButton(ListForm, 'btn10', '10. GÜNEŞ SİSTEMİ');
  btn10.Align := alTop; btn10.Height := 50;
  ListForm.AddNewEvent(btn10, 1, 'Ongunessistemi');

  ListForm.Run;
end;

//Giriş Ekranı
begin
  MainForm := TclForm.Create(Self);
  Sky1 := MainForm.AddNewImage(MainForm, 'Sky1');
  Sky1.Align := alClient;
  MainForm.SetImage(Sky1, '/assets/uzay');

  GoListBtn := MainForm.AddNewButton(MainForm, 'GoListBtn', 'GEZEGENLERİ GÖRMEK İÇİN TIKLAYIN');
  GoListBtn.Width := 250; GoListBtn.Height := 60;
  GoListBtn.Position.X := 50; GoListBtn.Position.Y := 200;

  MainForm.AddNewEvent(GoListBtn, 1, 'OpenList');

  MainForm.Run;
end;

https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" 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">

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
cemanurr Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 07 Mayıs 2026 Durum: Aktif Değil Puanlar: 6	Mesaj Seçenekleri Yanıt Yaz Alıntı cemanurr Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: Sayılar değişince tüm görseller değişiyor. Gönderim Zamanı: 1 saat 38 Dakika Önce Saat 22:42
	Hocam bütün görsel ayarları tek bir kısma bağlı. Oradaki görsel boyutunu değşitirince tüm görseller değişiyor. Ama ben tüm görsellerin boyutunu teker teker ayarlamak istiyorum. Özellikle güneş, merkür, satürn, uranüs ve güneş sistemi görsellerini ayrı ayrı boyutlandırmam gerekiyor çünkü genel boyutlandırmada onlar küçük kalıyor. Var MainForm, ListForm, DetailForm: TclForm; GoListBtn: TclButton; PlanetImg: TclImage; InfoLbl: TclLabel; Sky1, Sky2, Sky3: TclImage; procedure GoBack; begin DetailForm.Close; end; procedure ShowDetail(PlanetName, Info: String; AssetPath: String); begin DetailForm := TclForm.Create(Self); Sky3 := DetailForm.AddNewImage(DetailForm, 'Sky3'); Sky3.Align := alClient; DetailForm.SetImage(Sky3, '/assets/uzay'); PlanetImg := DetailForm.AddNewImage(DetailForm, 'PlanetImg'); PlanetImg.Width := 380; PlanetImg.Height := 380; //gezegen görsellerinin büyüklüğü PlanetImg.Position.X := 80; PlanetImg.Position.Y := 50; DetailForm.SetImage(PlanetImg, AssetPath); InfoLbl := DetailForm.AddNewLabel(DetailForm, 'InfoLbl', Info); InfoLbl.Align := alBottom; InfoLbl.Height := 150; //metinlerin başlayacağı yükseklik InfoLbl.TextSettings.HorzAlign := taCenter; DetailForm.Run; end; procedure OnGunes; begin ShowDetail('GÜNEŞ', '✅Güneş sisteminin merkezinde yer alan orta büyüklükte bir yıldızdır. ✅Sistemdeki kütlenin %99.8ini oluşturur. ✅Tüm gezegenlere ısı ve ışık sağlar. ✨İlginç Bilgi✨ 🤔Güneş o kadar büyüktür ki, içine yaklaşık 1.3 milyon tane Dünya sığabilir! ', '/assets/gunes'); end; procedure OnMerkur; begin ShowDetail('MERKÜR', '✅Güneş’e en yakın gezegendir. ✅En küçük gezegendir. ✅Gündüzleri çok sıcak, geceleri ise dondurucu soğuktur. ✅Yüzeyi kraterlerle doludur. ✅Uydusu yoktur. ✨İlginç Bilgi✨ 🤔Bir yılı 88 gündür. ', '/assets/merkur'); end; procedure OnVenus; begin ShowDetail('VENÜS', '✅Dünya’ya en yakın gezegenlerden biridir. ✅Güneş sisteminin en sıcak gezegenidir. ✅Kalın atmosferi ısıyı hapseder. ✅Gökyüzünde çok parlak görünür. ✅“Çoban Yıldızı” olarak bilinir. ✅Uydusu yoktur. ✨İlginç Bilgi✨ 🤔Venüs, kendi etrafında diğer gezegenlerin tersi yönünde döner. ','/assets/venus'); end; procedure OnDunya; begin ShowDetail('DÜNYA', '✅Üzerinde yaşam olan tek gezegendir. ✅Yüzeyinin büyük kısmı sudur. ✅Bir adet doğal uydusu vardır: Ay. ✅Atmosferi canlıların yaşaması için uygundur. ✅ görünümü nedeniyle "Mavi Gezegen" olarak adlandırılır. ✨İlginç Bilgi✨ 🤔Dünyanın %70inden fazlası suyla kaplıdır. ', '/assets/dunya'); end; procedure Onmars; begin ShowDetail('MARS', '✅“Kızıl Gezegen” olarak bilinir. ✅Yüzeyinde demir oksit bulunduğu için kırmızı görünür. ✅İnce bir atmosfere sahiptir. ✅İki tane uydusu vardır. ✅Gelecekte insanların yaşayabileceği düşünülmektedir. ✨İlginç Bilgi✨ 🤔Marsta Güneş sisteminin en yüksek dağı olan Olympus Dağı bulunur. ', '/assets/MARS'); end; procedure Onjupiter; begin ShowDetail('JÜPİTER', '✅Güneş Sistemi’nin en büyük gezegenidir. ✅Büyük bir gaz gezegenidir. ✅Katı bir yüzeyi yoktur. ✅Çok güçlü fırtınaları vardır. ✅Çok sayıda uydusu bulunur. ✅Büyük Kırmızı Leke adlı dev fırtınası ünlüdür. ✨İlginç Bilgi✨ 🤔Jüpiter o kadar büyüktür ki içine 1300 tane Dünya sığabilir! ', '/assets/jupiter'); end; procedure Onsaturn; begin ShowDetail('SATÜRN', '✅Büyük bir gaz gezegenidir. ✅Etrafındaki devasa ve parlak halkalarıyla bilinir. Bu halkalar buz ve taş parçalarından oluşur. ✅En büyük halkalara sahip gezegendir ✅Çok sayıda uyduya sahiptir. ✨İlginç Bilgi✨ 🤔Satürn sudan daha az yoğundur, dev bir havuzda yüzebilirdi! ', '/assets/satürn'); end; procedure Onuranus; begin ShowDetail('URANÜS', '✅Çok soğuk bir gezegendir. ✅Bir buz devidir. ✅Kendi ekseni etrafında yan yatmış şekilde döner. ✅Gaz ve buzdan oluşur. ✅Yan yatmış bir varil gibi dönerek ilerler. ✨İlginç Bilgi✨ 🤔Uranüsün rengi atmosferindeki metan gazı nedeniyle mavidir. ', '/assets/uranus'); end; procedure Onneptun; begin ShowDetail('NEPTÜN', '✅Güneş’e en uzak gezegendir. ✅Çok güçlü rüzgârları ve dondurucu soğukları vardır. ✅Mavi renkte görünür. ✨İlginç Bilgi✨ 🤔Neptün, matematiksel hesaplamalarla bulunan ilk gezegendir. ', '/assets/neptun'); end; procedure Ongunessistemi; begin ShowDetail('GÜNEŞ SİSTEMİ', '🌞Güneş Sisteminde gezegenlerin sıralanışı🌞 ', '/assets/gunessistemi'); end; procedure OpenList; Var btn1, btn2, btn3, btn4, btn5, btn6, btn7, btn8, btn9, btn10: TclButton; begin ListForm := TclForm.Create(Self); Sky2 := ListForm.AddNewImage(ListForm, 'Sky2'); Sky2.Align := alClient; ListForm.SetImage(Sky2, '/assets/uzay'); btn1 := ListForm.AddNewButton(ListForm, 'btn1', '1. GÜNEŞ'); btn1.Align := alTop; btn1.Height := 50; ListForm.AddNewEvent(btn1, 1, 'OnGunes'); btn2 := ListForm.AddNewButton(ListForm, 'btn2', '2. MERKÜR'); btn2.Align := alTop; btn2.Height := 50; ListForm.AddNewEvent(btn2, 1, 'OnMerkur'); btn3 := ListForm.AddNewButton(ListForm, 'btn3', '3. VENÜS'); btn3.Align := alTop; btn3.Height := 50; ListForm.AddNewEvent(btn3, 1, 'OnVenus'); btn4 := ListForm.AddNewButton(ListForm, 'btn4', '4. DÜNYA'); btn4.Align := alTop; btn4.Height := 50; ListForm.AddNewEvent(btn4, 1, 'OnDunya'); btn5 := ListForm.AddNewButton(ListForm, 'btn5', '5. MARS'); btn5.Align := alTop; btn5.Height := 50; ListForm.AddNewEvent(btn5, 1, 'Onmars'); btn6 := ListForm.AddNewButton(ListForm, 'btn6', '6. JÜPİTER'); btn6.Align := alTop; btn6.Height := 50; ListForm.AddNewEvent(btn6, 1, 'Onjupiter'); btn7 := ListForm.AddNewButton(ListForm, 'btn7', '7. SATÜRN'); btn7.Align := alTop; btn7.Height := 50; ListForm.AddNewEvent(btn7, 1, 'Onsaturn'); btn8 := ListForm.AddNewButton(ListForm, 'btn8', '8. URANÜS'); btn8.Align := alTop; btn8.Height := 50; ListForm.AddNewEvent(btn8, 1, 'Onuranus'); btn9 := ListForm.AddNewButton(ListForm, 'btn9', '9. NEPTÜN'); btn9.Align := alTop; btn9.Height := 50; ListForm.AddNewEvent(btn9, 1, 'Onneptun'); btn10 := ListForm.AddNewButton(ListForm, 'btn10', '10. GÜNEŞ SİSTEMİ'); btn10.Align := alTop; btn10.Height := 50; ListForm.AddNewEvent(btn10, 1, 'Ongunessistemi'); ListForm.Run; end; //Giriş Ekranı begin MainForm := TclForm.Create(Self); Sky1 := MainForm.AddNewImage(MainForm, 'Sky1'); Sky1.Align := alClient; MainForm.SetImage(Sky1, '/assets/uzay'); GoListBtn := MainForm.AddNewButton(MainForm, 'GoListBtn', 'GEZEGENLERİ GÖRMEK İÇİN TIKLAYIN'); GoListBtn.Width := 250; GoListBtn.Height := 60; GoListBtn.Position.X := 50; GoListBtn.Position.Y := 200; MainForm.AddNewEvent(GoListBtn, 1, 'OpenList'); MainForm.Run; end; https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" 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">