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

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">