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" rel="nofollow - 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">