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;