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;