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