Clomosy | Forum Ana Sayfa
Forum Anasayfa Forum Anasayfa > Genel Programlama > Genel İşlemler
  Aktif Konular Aktif Konular RSS - uygulama girişine animasyon
  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.

uygulama girişine animasyon
 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
  Konu Arama Konu Arama  Topic Seçenekleri Topic Seçenekleri
kayra12 Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 23 Aralık 2024
Durum: Aktif Değil
Puanlar: 32 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı kayra12 Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: uygulama girişine animasyon
    Gönderim Zamanı: 14 Saat 40 Dakika Önce Saat 13:50
var
  Formum: TclForm;
  AdGiris, BoyGiris, KiloGiris: TclProEdit;
  SonucYazi, OneriYazi, HareketBilgiYazi, hareketBaslik, bolgeBaslik, baslikLabel: TclProLabel;
  HesaplaButton, resimlinkButton: TclProButton;
  AnaAlan, BilgiAlan, ButtonAlan, SonucAlani, OneriAlani, HareketAlani, BolgeAlan, TakvimAlani, bolgeButtonPanel: TclProPanel;
  HareketResim: TclProImage;
  
  KolButton, SirtButton, BacakButton, Barbell_BicepsCurlButton, Dumbell_Hammer_CurlButton, 
  Incline_Dumbell_PressButton, AlternateDumbellCurlButton, Dumbell_Concentration_CurlButton, 
  HyperextensionButton, Latpull_downButton, BarfiksButton, BentoverowButton, Barbell_deadliftButton, 
  HackSquatButton, LegPressButton, Standing_LegCurlButton, LyingLeg_CurlButton, LegExtensionButton: TclProButton;
  
  KOL_Btn, SIRT_Btn, BACAK_Btn: TclProButton;
  
  KolResim, SirtResim, BacakResim, setImage: TclProImage;
  TakvimEtiketi: TclProLabel;
  ad: String;
  boy, kilo, vki: Float;
  durum, secilenBolge: String;
  bugunTarihi: String;

void HesaplaButtonTikla
{
  if ((AdGiris.Text == '') || (BoyGiris.Text == '') || (KiloGiris.Text == '')) {
    ShowMessage('Lütfen tüm alanları doldurunuz.');
  } else {
    ad = AdGiris.Text;
    boy = StrToFloat(BoyGiris.Text) / 100;
    kilo = StrToFloat(KiloGiris.Text);
    vki = kilo / (boy * boy);
    vki = Round(vki * 10) / 10;

    if (vki < 18.5) {
      durum = 'Zayıf - Direnç antrenmanları yapabilirsiniz.';
    } else if (vki < 25) {
      durum = 'Normal - Haftada 3-4 gün kardiyo ve güç antrenmanı önerilir.';
    } else if (vki < 30) {
      durum = 'Fazla kilolu - Düzenli yürüyüş ve hafif kardiyo yapmalısınız.';
    } else {
      durum = 'Obez - Uzman kontrolünde düşük etkili egzersiz yapınız.';
    }

    SonucYazi.Text = 'Merhaba ' + ad + ', VKİ: ' + FloatToStr(vki);
    OneriYazi.Text = durum;
    HareketBilgiYazi.Text = '';

    bugunTarihi = DateToStr(Date());
    TakvimEtiketi.Text = 'Bugünkü kayıt: ' + bugunTarihi + ' | VKİ: ' + FloatToStr(vki);
  }
}

void KolButtonTikla
{
  secilenBolge = 'Kol';
  Clomosy.RunUnit ('uKOL');
  Barbell_BicepsCurlButton.Visible = True;
  Dumbell_Hammer_CurlButton.Visible = True;
  Incline_Dumbell_PressButton.Visible = True;
  AlternateDumbellCurlButton.Visible = True;
  Dumbell_Concentration_CurlButton.Visible = True;
  
  // Diğer bölge butonlarını gizle 
  HyperextensionButton.Visible = False;
  Latpull_downButton.Visible = False;
  BarfiksButton.Visible = False;
  BentoverowButton.Visible = False;
  Barbell_deadliftButton.Visible = False;
  HackSquatButton.Visible = False;
  LegPressButton.Visible = False;
  Standing_LegCurlButton.Visible = False;
  LyingLeg_CurlButton.Visible = False;
  LegExtensionButton.Visible = False;
}

void SirtButtonTikla
{
  secilenBolge = 'Sırt';
  Clomosy.RunUnit ('uSIRT');
  HyperextensionButton.Visible = True;
  Latpull_downButton.Visible = True;
  BarfiksButton.Visible = True;
  BentoverowButton.Visible = True;
  Barbell_deadliftButton.Visible = True;
  
  // Diğer bölge butonlarını gizle
  Barbell_BicepsCurlButton.Visible = False;
  Dumbell_Hammer_CurlButton.Visible = False;
  Incline_Dumbell_PressButton.Visible = False;
  AlternateDumbellCurlButton.Visible = False;
  Dumbell_Concentration_CurlButton.Visible = False;
  HackSquatButton.Visible = False;
  LegPressButton.Visible = False;
  Standing_LegCurlButton.Visible = False;
  LyingLeg_CurlButton.Visible = False;
  LegExtensionButton.Visible = False;
}

void BacakButtonTikla
{
  Clomosy.RunUnit ('uBACAK');
  secilenBolge = 'Bacak';
  HackSquatButton.Visible = True;
  LegPressButton.Visible = True;
  Standing_LegCurlButton.Visible = True;
  LyingLeg_CurlButton.Visible = True;
  LegExtensionButton.Visible = True;
  
  // Diğer bölge butonlarını gizle
  Barbell_BicepsCurlButton.Visible = False;
  Dumbell_Hammer_CurlButton.Visible = False;
  Incline_Dumbell_PressButton.Visible = False;
  AlternateDumbellCurlButton.Visible = False;
  Dumbell_Concentration_CurlButton.Visible = False;
  HyperextensionButton.Visible = False;
  Latpull_downButton.Visible = False;
  BarfiksButton.Visible = False;
  BentoverowButton.Visible = False;
  Barbell_deadliftButton.Visible = False;
}

{
  Formum = TclForm.Create(Self);
  Formum.SetFormColor('#f5f5f5', 'color2', clGNone);

  // Ana Alan - Mobile uyumlu spacing
  AnaAlan = Formum.AddNewProPanel(Formum, 'AnaAlan');
  AnaAlan.Align = alClient;
  AnaAlan.Margins.Top = 15;
  AnaAlan.Margins.Bottom = 20;
  AnaAlan.Margins.Left = 15;
  AnaAlan.Margins.Right = 15;

  // Bilgi Giriş Alanı - Daha büyük ve kullanıcı dostu
  BilgiAlan = Formum.AddNewProPanel(AnaAlan, 'BilgiAlan');
  BilgiAlan.Align = alTop;
  BilgiAlan.Height = 180;
  BilgiAlan.Margins.Bottom = 20;

  // Başlık
  baslikLabel = Formum.AddNewProLabel(BilgiAlan, 'baslikLabel', 'VKİ Hesaplayıcı');
  baslikLabel.Align = alTop;
  baslikLabel.Height = 40;
  baslikLabel.clProSettings.FontSize = 20;
  baslikLabel.clProSettings.FontColor = clAlphaColor.clHexToColor('#2c3e50');
  baslikLabel.clProSettings.FontHorzAlign = palCenter;
  baslikLabel.clProSettings.TextSettings.Font.Style = [fsBold];
  baslikLabel.Margins.Bottom = 15;
  baslikLabel.SetclProSettings(baslikLabel.clProSettings);

  AdGiris = Formum.AddNewProEdit(BilgiAlan, 'AdGiris','Adınız');
  AdGiris.Align = alTop;
  AdGiris.Height = 35;
  AdGiris.Margins.Bottom = 10;
  AdGiris.clProSettings.FontSize = 16;
  AdGiris.SetclProSettings(AdGiris.clProSettings);

  BoyGiris = Formum.AddNewProEdit(BilgiAlan, 'BoyGiris','Boy (cm)');
  BoyGiris.Align = alTop;
  BoyGiris.clTypeOfField = taFloat;
  BoyGiris.Height = 35;
  BoyGiris.Margins.Bottom = 10;
  BoyGiris.clProSettings.FontSize = 16;
  BoyGiris.SetclProSettings(BoyGiris.clProSettings);

  KiloGiris = Formum.AddNewProEdit(BilgiAlan, 'KiloGiris','Kilo (kg)');
  KiloGiris.Align = alTop;
  KiloGiris.clTypeOfField = taFloat;
  KiloGiris.Height = 35;
  KiloGiris.Margins.Bottom = 10;
  KiloGiris.clProSettings.FontSize = 16;
  KiloGiris.SetclProSettings(KiloGiris.clProSettings);

  // Hesapla Butonu - Modern tasarım
  ButtonAlan = Formum.AddNewProPanel(AnaAlan, 'ButtonAlan');
  ButtonAlan.Align = alTop;
  ButtonAlan.Height = 60;
  ButtonAlan.Margins.Bottom = 30;

  HesaplaButton = Formum.AddNewProButton(ButtonAlan, 'HesaplaButton', 'VKİ Hesapla');
  HesaplaButton.Align = alCenter;
  HesaplaButton.Width = 200;
  HesaplaButton.Height = 50;
  HesaplaButton.clProSettings.FontSize = 16;
  HesaplaButton.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');
  HesaplaButton.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#4CAF50');
  HesaplaButton.clProSettings.IsRound = True;
  HesaplaButton.clProSettings.RoundHeight = 25;
  HesaplaButton.clProSettings.RoundWidth = 25;
  HesaplaButton.SetclProSettings(HesaplaButton.clProSettings);
  Formum.AddNewEvent(HesaplaButton, tbeOnClick, 'HesaplaButtonTikla');

  // Sonuç Alanı - Daha görsel
  SonucAlani = Formum.AddNewProPanel(AnaAlan, 'SonucAlani');
  SonucAlani.Align = alTop;
  SonucAlani.Height = 70;
  SonucAlani.Margins.Bottom = 15;

  SonucYazi = Formum.AddNewProLabel(SonucAlani, 'SonucYazi', '');
  SonucYazi.Align = alClient;
  SonucYazi.clProSettings.FontSize = 18;
  SonucYazi.clProSettings.FontColor = clAlphaColor.clHexToColor('#27ae60');
  SonucYazi.clProSettings.FontHorzAlign = palCenter;
  SonucYazi.clProSettings.TextSettings.Font.Style = [fsBold];
  SonucYazi.Margins.Left = 15;
  SonucYazi.Margins.Right = 15;
  SonucYazi.SetclProSettings(SonucYazi.clProSettings);

  // Öneri Alanı
  OneriAlani = Formum.AddNewProPanel(AnaAlan, 'OneriAlani');
  OneriAlani.Align = alTop;
  OneriAlani.Height = 80;
  OneriAlani.Margins.Bottom = 30;

  OneriYazi = Formum.AddNewProLabel(OneriAlani, 'OneriYazi', '');
  OneriYazi.Align = alClient;
  OneriYazi.clProSettings.WordWrap = True;
  OneriYazi.clProSettings.FontSize = 15;
  OneriYazi.clProSettings.FontColor = clAlphaColor.clHexToColor('#856404');
  OneriYazi.clProSettings.FontHorzAlign = palCenter;
  OneriYazi.Margins.Left = 15;
  OneriYazi.Margins.Right = 15;
  OneriYazi.SetclProSettings(OneriYazi.clProSettings);

  // Takvim Alanı
  TakvimAlani = Formum.AddNewProPanel(AnaAlan, 'TakvimAlani');
  TakvimAlani.Align = alTop;
  TakvimAlani.Height = 60;
  TakvimAlani.Margins.Bottom = 20;

  TakvimEtiketi = Formum.AddNewProLabel(TakvimAlani, 'TakvimEtiketi', 'Bugünkü kayıt: -');
  TakvimEtiketi.Align = alClient;
  TakvimEtiketi.clProSettings.FontSize = 13;
  TakvimEtiketi.clProSettings.FontColor = clAlphaColor.clHexToColor('#6c757d');
  TakvimEtiketi.clProSettings.FontHorzAlign = palCenter;
  TakvimEtiketi.clProSettings.TextSettings.Font.Style = [fsBold];
  TakvimEtiketi.Margins.Left = 15;
  TakvimEtiketi.Margins.Right = 15;
  TakvimEtiketi.SetclProSettings(TakvimEtiketi.clProSettings);

  // Bölge Seçim Alanı - Modern ProButton'lar ile
  BolgeAlan = Formum.AddNewProPanel(AnaAlan, 'BolgeAlan');
  BolgeAlan.Align = alTop;
  BolgeAlan.Height = 120;
  BolgeAlan.Margins.Bottom = 30;

  // Bölge başlığı
  bolgeBaslik = Formum.AddNewProLabel(BolgeAlan, 'bolgeBaslik', 'Antrenman Bölgesi Seçin');
  bolgeBaslik.Align = alTop;
  bolgeBaslik.Height = 30;
  bolgeBaslik.clProSettings.FontSize = 16;
  bolgeBaslik.clProSettings.FontColor = clAlphaColor.clHexToColor('#2c3e50');
  bolgeBaslik.clProSettings.FontHorzAlign = palCenter;
  bolgeBaslik.clProSettings.TextSettings.Font.Style = [fsBold];
  bolgeBaslik.Margins.Bottom = 10;
  bolgeBaslik.SetclProSettings(bolgeBaslik.clProSettings);

  // Bölge butonları - Horizontal düzen
  bolgeButtonPanel = Formum.AddNewProPanel(BolgeAlan, 'bolgeButtonPanel');
  bolgeButtonPanel.Align = alClient;
  bolgeButtonPanel.Margins.Left = 20;
  bolgeButtonPanel.Margins.Right = 20;

  // Kol Butonu
  KOL_Btn = Formum.AddNewProButton(bolgeButtonPanel, 'KOL_Btn', '');
  KOL_Btn.Align = alLeft;
  KOL_Btn.Width = 80;
  KOL_Btn.Height = 60;
  KOL_Btn.Margins.Right = 15;
  KOL_Btn.clProSettings.BorderColor = clAlphaColor.clHexToColor('#e74c3c');
  KOL_Btn.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');
  KOL_Btn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#ffffff');
  KOL_Btn.clProSettings.RoundHeight = 12;
  KOL_Btn.clProSettings.RoundWidth = 12;
  KOL_Btn.clProSettings.BorderWidth = 2;
  KOL_Btn.SetclProSettings(KOL_Btn.clProSettings);
  Formum.SetImage(KOL_Btn, 'https://r.resimlink.com/xLAKF5tZ.jpg');
  Formum.AddNewEvent(KOL_Btn, tbeOnClick, 'KolButtonTikla');

  // Sırt Butonu
  SIRT_Btn = Formum.AddNewProButton(bolgeButtonPanel, 'SIRT_Btn', '');
  SIRT_Btn.Align = alLeft;
  SIRT_Btn.Width = 80;
  SIRT_Btn.Height = 60;
  SIRT_Btn.Margins.Right = 15;
  SIRT_Btn.clProSettings.BorderColor = clAlphaColor.clHexToColor('#3498db');
  SIRT_Btn.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');
  SIRT_Btn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#ffffff');
  SIRT_Btn.clProSettings.RoundHeight = 12;
  SIRT_Btn.clProSettings.RoundWidth = 12;
  SIRT_Btn.clProSettings.BorderWidth = 2;
  SIRT_Btn.SetclProSettings(SIRT_Btn.clProSettings);
  Formum.SetImage(SIRT_Btn, 'https://r.resimlink.com/mH6DWJEr.jpg');
  Formum.AddNewEvent(SIRT_Btn, tbeOnClick, 'SirtButtonTikla');

  // Bacak Butonu
  BACAK_Btn = Formum.AddNewProButton(bolgeButtonPanel, 'BACAK_Btn', '');
  BACAK_Btn.Align = alLeft;
  BACAK_Btn.Width = 80;
  BACAK_Btn.Height = 60;
  BACAK_Btn.clProSettings.BorderColor = clAlphaColor.clHexToColor('#27ae60');
  BACAK_Btn.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');
  BACAK_Btn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#ffffff');
  BACAK_Btn.clProSettings.RoundHeight = 12;
  BACAK_Btn.clProSettings.RoundWidth = 12;
  BACAK_Btn.clProSettings.BorderWidth = 2;
  BACAK_Btn.SetclProSettings(BACAK_Btn.clProSettings);
  Formum.SetImage(BACAK_Btn, 'https://r.resimlink.com/rAgk5.png');
  Formum.AddNewEvent(BACAK_Btn, tbeOnClick, 'BacakButtonTikla');

  // Hareket Alanı - Scrollable
  HareketAlani = Formum.AddNewProPanel(AnaAlan, 'HareketAlani');
  HareketAlani.Align = alClient;
  HareketAlani.Margins.Top = 10;
  HareketAlani.Margins.Bottom = 10;
  

  // Hareket başlığı
  hareketBaslik = Formum.AddNewProLabel(HareketAlani, 'hareketBaslik', 'Antrenman Hareketleri');
  hareketBaslik.Align = alTop;
  hareketBaslik.Height = 35;
  hareketBaslik.clProSettings.FontSize = 16;
  hareketBaslik.clProSettings.FontColor = clAlphaColor.clHexToColor('#2c3e50');
  hareketBaslik.clProSettings.FontHorzAlign = palCenter;
  hareketBaslik.clProSettings.TextSettings.Font.Style = [fsBold];
  hareketBaslik.Margins.Bottom = 15;
  hareketBaslik.Margins.Left = 15;
  hareketBaslik.SetclProSettings(hareketBaslik.clProSettings);

  // Kol hareketleri - Modern buton tasarımı
  Barbell_BicepsCurlButton = Formum.AddNewProButton(HareketAlani, 'Barbell_BicepsCurlButton', 'Barbell Biceps Curl');
  Barbell_BicepsCurlButton.Align = alTop;
  Barbell_BicepsCurlButton.Height = 45;
  Barbell_BicepsCurlButton.Margins.Bottom = 8;
  Barbell_BicepsCurlButton.Margins.Left = 15;
  Barbell_BicepsCurlButton.Margins.Right = 15;
  Barbell_BicepsCurlButton.clProSettings.FontSize = 14;
  Barbell_BicepsCurlButton.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#f8f9fa');
  Barbell_BicepsCurlButton.clProSettings.BorderColor = clAlphaColor.clHexToColor('#dee2e6');
  Barbell_BicepsCurlButton.clProSettings.BorderWidth = 1;
  Barbell_BicepsCurlButton.clProSettings.IsRound = True;
  Barbell_BicepsCurlButton.clProSettings.RoundHeight = 22;
  Barbell_BicepsCurlButton.clProSettings.RoundWidth = 22;
  Barbell_BicepsCurlButton.Visible = False;
  Barbell_BicepsCurlButton.SetclProSettings(Barbell_BicepsCurlButton.clProSettings);

  Dumbell_Hammer_CurlButton = Formum.AddNewProButton(HareketAlani, 'Dumbell_Hammer_CurlButton', 'Dumbell Hammer Curl');
  Dumbell_Hammer_CurlButton.Align = alTop;
  Dumbell_Hammer_CurlButton.Height = 45;
  Dumbell_Hammer_CurlButton.Margins.Bottom = 8;
  Dumbell_Hammer_CurlButton.Margins.Left = 15;
  Dumbell_Hammer_CurlButton.Margins.Right = 15;
  Dumbell_Hammer_CurlButton.clProSettings.FontSize = 14;
  Dumbell_Hammer_CurlButton.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#f8f9fa');
  Dumbell_Hammer_CurlButton.clProSettings.BorderColor = clAlphaColor.clHexToColor('#dee2e6');
  Dumbell_Hammer_CurlButton.clProSettings.BorderWidth = 1;
  Dumbell_Hammer_CurlButton.clProSettings.IsRound = True;
  Dumbell_Hammer_CurlButton.clProSettings.RoundHeight = 22;
  Dumbell_Hammer_CurlButton.clProSettings.RoundWidth = 22;
  Dumbell_Hammer_CurlButton.Visible = False;
  Dumbell_Hammer_CurlButton.SetclProSettings(Dumbell_Hammer_CurlButton.clProSettings);

  Incline_Dumbell_PressButton = Formum.AddNewProButton(HareketAlani, 'Incline_Dumbell_PressButton', 'Incline Dumbell Press');
  Incline_Dumbell_PressButton.Align = alTop;
  Incline_Dumbell_PressButton.Height = 45;
  Incline_Dumbell_PressButton.Margins.Bottom = 8;
  Incline_Dumbell_PressButton.Margins.Left = 15;
  Incline_Dumbell_PressButton.Margins.Right = 15;
  Incline_Dumbell_PressButton.clProSettings.FontSize = 14;
  Incline_Dumbell_PressButton.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#f8f9fa');
  Incline_Dumbell_PressButton.clProSettings.BorderColor = clAlphaColor.clHexToColor('#dee2e6');
  Incline_Dumbell_PressButton.clProSettings.BorderWidth = 1;
  Incline_Dumbell_PressButton.clProSettings.IsRound = True;
  Incline_Dumbell_PressButton.clProSettings.RoundHeight = 22;
  Incline_Dumbell_PressButton.clProSettings.RoundWidth = 22;
  Incline_Dumbell_PressButton.Visible = False;
  Incline_Dumbell_PressButton.SetclProSettings(Incline_Dumbell_PressButton.clProSettings);

  AlternateDumbellCurlButton = Formum.AddNewProButton(HareketAlani, 'AlternateDumbellCurlButton', 'Alternate Dumbell Curl');
  AlternateDumbellCurlButton.Align = alTop;
  AlternateDumbellCurlButton.Height = 45;
  AlternateDumbellCurlButton.Margins.Bottom = 8;
  AlternateDumbellCurlButton.Margins.Left = 15;
  AlternateDumbellCurlButton.Margins.Right = 15;
  AlternateDumbellCurlButton.clProSettings.FontSize = 14;
  AlternateDumbellCurlButton.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#f8f9fa');
  AlternateDumbellCurlButton.clProSettings.BorderColor = clAlphaColor.clHexToColor('#dee2e6');
  AlternateDumbellCurlButton.clProSettings.BorderWidth = 1;
  AlternateDumbellCurlButton.clProSettings.IsRound = True;
  AlternateDumbellCurlButton.clProSettings.RoundHeight = 22;
  AlternateDumbellCurlButton.clProSettings.RoundWidth = 22;
  AlternateDumbellCurlButton.Visible = False;
  AlternateDumbellCurlButton.SetclProSettings(AlternateDumbellCurlButton.clProSettings);

  Dumbell_Concentration_CurlButton = Formum.AddNewProButton(HareketAlani, 'Dumbell_Concentration_CurlButton', 'Dumbell Concentration Curl');
  Dumbell_Concentration_CurlButton.Align = alTop;
  Dumbell_Concentration_CurlButton.Height = 45;
  Dumbell_Concentration_CurlButton.Margins.Bottom = 8;
  Dumbell_Concentration_CurlButton.Margins.Left = 15;
  Dumbell_Concentration_CurlButton.Margins.Right = 15;
  Dumbell_Concentration_CurlButton.clProSettings.FontSize = 14;
  Dumbell_Concentration_CurlButton.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#f8f9fa');
  Dumbell_Concentration_CurlButton.clProSettings.BorderColor = clAlphaColor.clHexToColor('#dee2e6');
  Dumbell_Concentration_CurlButton.clProSettings.BorderWidth = 1;
  Dumbell_Concentration_CurlButton.clProSettings.IsRound = True;
  Dumbell_Concentration_CurlButton.clProSettings.RoundHeight = 22;
  Dumbell_Concentration_CurlButton.clProSettings.RoundWidth = 22;
  Dumbell_Concentration_CurlButton.Visible = False;
  Dumbell_Concentration_CurlButton.SetclProSettings(Dumbell_Concentration_CurlButton.clProSettings);

  // Sırt hareketleri
  HyperextensionButton = Formum.AddNewProButton(HareketAlani, 'HyperextensionButton', 'Hyperextension');
  HyperextensionButton.Align = alTop;
  HyperextensionButton.Height = 45;
  HyperextensionButton.Margins.Bottom = 8;
  HyperextensionButton.Margins.Left = 15;
  HyperextensionButton.Margins.Right = 15;
  HyperextensionButton.clProSettings.FontSize = 14;
  HyperextensionButton.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#f8f9fa');
  HyperextensionButton.clProSettings.BorderColor = clAlphaColor.clHexToColor('#dee2e6');
  HyperextensionButton.clProSettings.BorderWidth = 1;
  HyperextensionButton.clProSettings.IsRound = True;
  HyperextensionButton.clProSettings.RoundHeight = 22;
  HyperextensionButton.clProSettings.RoundWidth = 22;
  HyperextensionButton.Visible = False;
  HyperextensionButton.SetclProSettings(HyperextensionButton.clProSettings);

  Latpull_downButton = Formum.AddNewProButton(HareketAlani, 'Latpull_downButton', 'Lat Pull Down');
  Latpull_downButton.Align = alTop;
  Latpull_downButton.Height = 45;
  Latpull_downButton.Margins.Bottom = 8;
  Latpull_downButton.Margins.Left = 15;
  Latpull_downButton.Margins.Right = 15;
  Latpull_downButton.clProSettings.FontSize = 14;
  Latpull_downButton.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#f8f9fa');
  Latpull_downButton.clProSettings.BorderColor = clAlphaColor.clHexToColor('#dee2e6');
  Latpull_downButton.clProSettings.BorderWidth = 1;
  Latpull_downButton.clProSettings.IsRound = True;
  Latpull_downButton.clProSettings.RoundHeight = 22;
  Latpull_downButton.clProSettings.RoundWidth = 22;
  Latpull_downButton.Visible = False;
  Latpull_downButton.SetclProSettings(Latpull_downButton.clProSettings);

  BarfiksButton = Formum.AddNewProButton(HareketAlani, 'BarfiksButton', 'Barfiks');
  BarfiksButton.Align = alTop;
  BarfiksButton.Height = 45;
  BarfiksButton.Margins.Bottom = 8;
  BarfiksButton.Margins.Left = 15;
  BarfiksButton.Margins.Right = 15;
  BarfiksButton.clProSettings.FontSize = 14;
  BarfiksButton.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#f8f9fa');
  BarfiksButton.clProSettings.BorderColor = clAlphaColor.clHexToColor('#dee2e6');
  BarfiksButton.clProSettings.BorderWidth = 1;
  BarfiksButton.clProSettings.IsRound = True;
  BarfiksButton.clProSettings.RoundHeight = 22;
  BarfiksButton.clProSettings.RoundWidth = 22;
  BarfiksButton.Visible = False;
  BarfiksButton.SetclProSettings(BarfiksButton.clProSettings);

  BentoverowButton = Formum.AddNewProButton(HareketAlani, 'BentoverowButton', 'Bent Over Row');
  BentoverowButton.Align = alTop;
  BentoverowButton.Height = 45;
  BentoverowButton.Margins.Bottom = 8;
  BentoverowButton.Margins.Left = 15;
  BentoverowButton.Margins.Right = 15;
  BentoverowButton.clProSettings.FontSize = 14;
  BentoverowButton.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#f8f9fa');
  BentoverowButton.clProSettings.BorderColor = clAlphaColor.clHexToColor('#dee2e6');
  BentoverowButton.clProSettings.BorderWidth = 1;
  BentoverowButton.clProSettings.IsRound = True;
  BentoverowButton.clProSettings.RoundHeight = 22;
  BentoverowButton.clProSettings.RoundWidth = 22;
  BentoverowButton.Visible = False;
  BentoverowButton.SetclProSettings(BentoverowButton.clProSettings);

  Barbell_deadliftButton = Formum.AddNewProButton(HareketAlani, 'Barbell_deadliftButton', 'Barbell Deadlift');
  Barbell_deadliftButton.Align = alTop;
  Barbell_deadliftButton.Height = 45;
  Barbell_deadliftButton.Margins.Bottom = 8;
  Barbell_deadliftButton.Margins.Left = 15;
  Barbell_deadliftButton.Margins.Right = 15;
  Barbell_deadliftButton.clProSettings.FontSize = 14;
  Barbell_deadliftButton.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#f8f9fa');
  Barbell_deadliftButton.clProSettings.BorderColor = clAlphaColor.clHexToColor('#dee2e6');
  Barbell_deadliftButton.clProSettings.BorderWidth = 1;
  Barbell_deadliftButton.clProSettings.IsRound = True;
  Barbell_deadliftButton.clProSettings.RoundHeight = 22;
  Barbell_deadliftButton.clProSettings.RoundWidth = 22;
  Barbell_deadliftButton.Visible = False;
  Barbell_deadliftButton.SetclProSettings(Barbell_deadliftButton.clProSettings);

  // Bacak hareketleri
  HackSquatButton = Formum.AddNewProButton(HareketAlani, 'HackSquatButton', 'Hack Squat');
  HackSquatButton.Align = alTop;
  HackSquatButton.Height = 45;
  HackSquatButton.Margins.Bottom = 8;
  HackSquatButton.Margins.Left = 15;
  HackSquatButton.Margins.Right = 15;
  HackSquatButton.clProSettings.FontSize = 14;
  HackSquatButton.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#f8f9fa');
  HackSquatButton.clProSettings.BorderColor = clAlphaColor.clHexToColor('#dee2e6');
  HackSquatButton.clProSettings.BorderWidth = 1;
  HackSquatButton.clProSettings.IsRound = True;
  HackSquatButton.clProSettings.RoundHeight = 22;
  HackSquatButton.clProSettings.RoundWidth = 22;
  HackSquatButton.Visible = False;
  HackSquatButton.SetclProSettings(HackSquatButton.clProSettings);

  LegPressButton = Formum.AddNewProButton(HareketAlani, 'LegPressButton', 'Leg Press');
  LegPressButton.Align = alTop;
  LegPressButton.Height = 45;
  LegPressButton.Margins.Bottom = 8;
  LegPressButton.Margins.Left = 15;
  LegPressButton.Margins.Right = 15;
  LegPressButton.clProSettings.FontSize = 14;
  LegPressButton.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#f8f9fa');
  LegPressButton.clProSettings.BorderColor = clAlphaColor.clHexToColor('#dee2e6');
  LegPressButton.clProSettings.BorderWidth = 1;
  LegPressButton.clProSettings.IsRound = True;
  LegPressButton.clProSettings.RoundHeight = 22;
  LegPressButton.clProSettings.RoundWidth = 22;
  LegPressButton.Visible = False;
  LegPressButton.SetclProSettings(LegPressButton.clProSettings);

  Standing_LegCurlButton = Formum.AddNewProButton(HareketAlani, 'Standing_LegCurlButton', 'Standing Leg Curl');
  Standing_LegCurlButton.Align = alTop;
  Standing_LegCurlButton.Height = 45;
  Standing_LegCurlButton.Margins.Bottom = 8;
  Standing_LegCurlButton.Margins.Left = 15;
  Standing_LegCurlButton.Margins.Right = 15;
  Standing_LegCurlButton.clProSettings.FontSize = 14;
  Standing_LegCurlButton.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#f8f9fa');
  Standing_LegCurlButton.clProSettings.BorderColor = clAlphaColor.clHexToColor('#dee2e6');
  Standing_LegCurlButton.clProSettings.BorderWidth = 1;
  Standing_LegCurlButton.clProSettings.IsRound = True;
  Standing_LegCurlButton.clProSettings.RoundHeight = 22;
  Standing_LegCurlButton.clProSettings.RoundWidth = 22;
  Standing_LegCurlButton.Visible = False;
  Standing_LegCurlButton.SetclProSettings(Standing_LegCurlButton.clProSettings);

  LyingLeg_CurlButton = Formum.AddNewProButton(HareketAlani, 'LyingLeg_CurlButton', 'Lying Leg Curl');
  LyingLeg_CurlButton.Align = alTop;
  LyingLeg_CurlButton.Height = 45;
  LyingLeg_CurlButton.Margins.Bottom = 8;
  LyingLeg_CurlButton.Margins.Left = 15;
  LyingLeg_CurlButton.Margins.Right = 15;
  LyingLeg_CurlButton.clProSettings.FontSize = 14;
  LyingLeg_CurlButton.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#f8f9fa');
  LyingLeg_CurlButton.clProSettings.BorderColor = clAlphaColor.clHexToColor('#dee2e6');
  LyingLeg_CurlButton.clProSettings.BorderWidth = 1;
  LyingLeg_CurlButton.clProSettings.IsRound = True;
  LyingLeg_CurlButton.clProSettings.RoundHeight = 22;
  LyingLeg_CurlButton.clProSettings.RoundWidth = 22;
  LyingLeg_CurlButton.Visible = False;
  LyingLeg_CurlButton.SetclProSettings(LyingLeg_CurlButton.clProSettings);

  LegExtensionButton = Formum.AddNewProButton(HareketAlani, 'LegExtensionButton', 'Leg Extension');
  LegExtensionButton.Align = alTop;
  LegExtensionButton.Height = 45;
  LegExtensionButton.Margins.Bottom = 8;
  LegExtensionButton.Margins.Left = 15;
  LegExtensionButton.Margins.Right = 15;
  LegExtensionButton.clProSettings.FontSize = 14;
  LegExtensionButton.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#f8f9fa');
  LegExtensionButton.clProSettings.BorderColor = clAlphaColor.clHexToColor('#dee2e6');
  LegExtensionButton.clProSettings.BorderWidth = 1;
  LegExtensionButton.clProSettings.IsRound = True;
  LegExtensionButton.clProSettings.RoundHeight = 22;
  LegExtensionButton.clProSettings.RoundWidth = 22;
  LegExtensionButton.Visible = False;
  LegExtensionButton.SetclProSettings(LegExtensionButton.clProSettings);

  // Hareket bilgi alanı
  HareketBilgiYazi = Formum.AddNewProLabel(HareketAlani, 'HareketBilgiYazi', '');
  HareketBilgiYazi.Align = alTop;
  HareketBilgiYazi.Height = 80;
  HareketBilgiYazi.clProSettings.WordWrap = True;
  HareketBilgiYazi.clProSettings.FontSize = 14;
  HareketBilgiYazi.clProSettings.FontColor = clAlphaColor.clHexToColor('#2c3e50');
  HareketBilgiYazi.clProSettings.FontHorzAlign = palCenter;
  HareketBilgiYazi.Margins.Left = 15;
  HareketBilgiYazi.Margins.Right = 15;
  HareketBilgiYazi.Margins.Bottom = 15;
  HareketBilgiYazi.SetclProSettings(HareketBilgiYazi.clProSettings);

  // Hareket resmi
  HareketResim = Formum.AddNewProImage(HareketAlani, 'HareketResim');
  HareketResim.Align = alClient;
  HareketResim.Margins.Top = 10;
  HareketResim.Margins.Left = 15;
  HareketResim.Margins.Right = 15;
  HareketResim.Margins.Bottom = 15;

  Formum.Run;
}


spor uygulamasının giriş ekranı için animasyonlu duvar kağıdı yapmak istiyordum ancak duvar kağıdını yaptım ezGif sayfasından video bölümlere ayarladım ama yapamadım 
 lütfen yardım edin 
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: 249 		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ı: 11 Saat 45 Dakika Önce Saat 16:45
Merhaba Kayra, 
Hata devam ediyor mu?
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,063 Saniyede Yüklendi.