Clomosy | Forum Ana Sayfa
Forum Anasayfa Forum Anasayfa > Genel Programlama > Genel İşlemler
  Aktif Konular Aktif Konular RSS - Sayılar değişince tüm görseller değişiyor.
  SSS SSS  Forumu Ara   Etkinlikler   Kayıt Ol Kayıt Ol  Giriş Giriş

Clomosy Resmi Forum Sitesidir. Amacımız kullanıcılarımıza, iş ortaklarımıza, danışmanlara, yazılımcılara programlarımız hakkında destek ve bilgi vermektir.

Sayılar değişince tüm görseller değişiyor.
 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
  Konu Arama Konu Arama  Topic Seçenekleri Topic Seçenekleri
cemanurr Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 07 Mayıs 2026
Durum: Aktif Değil
Puanlar: 6 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı cemanurr Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: Sayılar değişince tüm görseller değişiyor.
    Gönderim Zamanı: 2 Saat 59 Dakika Önce Saat 22:47
hocam tüm görsel boyutları tek bir sistemden etkileniyor ama ben böyle olmasını istemiyorum çünkü misal 300 boyutu dünya gezegeni için uygunken güneş için uygun olmuyor. ayrı ayrı değiştirmek istiyorum boyutlarını ama nasıl yapacağımı bilmiyorum. özellikle güneş, merkür, satürn, uranüs ve güneş sistemi görsellerini ayrı boyutlandırmam gerekiyor diğer gezegenlerde problem yok ama bunlar farklı.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">

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;
Yukarı Dön
Emr.Erkmn Açılır Kutu İzle
Moderatör
Moderatör


Kayıt Tarihi: 28 Şubat 2025
Durum: Aktif Değil
Puanlar: 882 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı Emr.Erkmn Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 2 Saat 31 Dakika Önce Saat 23:15
var
  MainForm, ListForm, DetailForm: TclForm;
  GoListBtn, BtnBack: TclProButton;
  PlanetImg: TclProImage;
  InfoLbl: TclProLabel;
  Sky1, Sky2, Sky3: TclProImage;

void ShowDetail(PlanetName, Info, AssetPath: String; PWidth, PHeight: Integer);
{
  DetailForm = TclForm.Create(Self);
  
  Sky3 = DetailForm.AddNewProImage(DetailForm, 'Sky3');
  Sky3.Align = alClient;
  DetailForm.SetImage(Sky3, '/assets/uzay');

  PlanetImg = DetailForm.AddNewProImage(DetailForm, 'PlanetImg');
  PlanetImg.Width = PWidth; 
  PlanetImg.Height = PHeight;
  
  PlanetImg.Left = (DetailForm.clWidth / 2) - (PWidth / 2);
  PlanetImg.Top = 50;
  
  DetailForm.SetImage(PlanetImg, AssetPath);

  InfoLbl = DetailForm.AddNewProLabel(DetailForm, 'InfoLbl', Info);
  InfoLbl.Align = alBottom;
  InfoLbl.Height = 250;
  InfoLbl.clProSettings.FontColor = clAlphaColor.clWhite;
  InfoLbl.clProSettings.FontSize = 16;
  InfoLbl.clProSettings.TextSettings.HorzAlign = palCenter;
  InfoLbl.clProSettings.WordWrap = True;
  InfoLbl.SetclProSettings(InfoLbl.clProSettings);

  DetailForm.Run;
}

void OnGunes; { ShowDetail('GÜNEŞ', 'Güneş sisteminin merkezinde yer alan orta büyüklükte bir yıldızdır.', '/assets/gunes', 500, 500); }

void OnMerkur; { ShowDetail('MERKÜR', 'Güneş’e en yakın ve en küçük gezegendir.', '/assets/merkur', 250, 250); }

void Onsaturn; { ShowDetail('SATÜRN', 'Etrafındaki devasa ve parlak halkalarıyla bilinir.', '/assets/satürn', 550, 350); }

void Onuranus; { ShowDetail('URANÜS', 'Kendi ekseni etrafında yan yatmış şekilde döner.', '/assets/uranus', 380, 380); }

void Ongunessistemi; { ShowDetail('GÜNEŞ SİSTEMİ', 'Güneş Sisteminde gezegenlerin sıralanışı.', '/assets/gunessistemi', 600, 300); }

void OnDunya; { ShowDetail('DÜNYA', 'Üzerinde yaşam olan tek gezegendir.', '/assets/dunya', 350, 350); }

void OpenList;
var
  btn1, btn2, btn7, btn8, btn10: TclProButton;
{
  ListForm = TclForm.Create(Self);
  Sky2 = ListForm.AddNewProImage(ListForm, 'Sky2');
  Sky2.Align = alClient;
  ListForm.SetImage(Sky2, '/assets/uzay');

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

  btn2 = ListForm.AddNewProButton(ListForm, 'btn2', '2. MERKÜR');
  btn2.Align = alTop; btn2.Height = 50;
  ListForm.AddNewEvent(btn2, tbeOnClick, 'OnMerkur');

  btn7 = ListForm.AddNewProButton(ListForm, 'btn7', '7. SATÜRN');
  btn7.Align = alTop; btn7.Height = 50;
  ListForm.AddNewEvent(btn7, tbeOnClick, 'Onsaturn');

  btn8 = ListForm.AddNewProButton(ListForm, 'btn8', '8. URANÜS');
  btn8.Align = alTop; btn8.Height = 50;
  ListForm.AddNewEvent(btn8, tbeOnClick, 'Onuranus');

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

  ListForm.Run;
}

{
  MainForm = TclForm.Create(Self);
  Sky1 = MainForm.AddNewProImage(MainForm, 'Sky1');
  Sky1.Align = alClient;
  MainForm.SetImage(Sky1, '/assets/uzay');

  GoListBtn = MainForm.AddNewProButton(MainForm, 'GoListBtn', 'GEZEGENLERİ GÖRMEK İÇİN TIKLAYIN');
  GoListBtn.Width = 300; GoListBtn.Height = 60;
  GoListBtn.Left = (MainForm.clWidth / 2) - 150;
  GoListBtn.Top = 200;
  
  MainForm.AddNewEvent(GoListBtn, tbeOnClick, 'OpenList');

  MainForm.Run;
}
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">
Yukarı Dön
 Yanıt Yaz Yanıt Yaz

Forum Atla Forum İzinleri Açılır Kutu İzle

Forum Software by Web Wiz Forums® version 12.07
Copyright ©2001-2024 Web Wiz Ltd.

Bu Sayfa 0,031 Saniyede Yüklendi.