uygulama

var

  Formum: TclForm;

  AdGiris, BoyGiris, KiloGiris: TclEdit;

  SonucYazi, OneriYazi, HareketBilgiYazi: TclLabel;

  HesaplaButton, SquatButton, PlankButton, ZiplaButton, MekikButton, DagciButton, resimlinkButton: TclButton;

  AnaAlan, BilgiAlan, ButtonAlan, SonucAlani, OneriAlani, HareketAlani, BolgeAlan, TakvimAlani: TclPanel;

  HareketResim: TclImage;

  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: TclButton;

  KolResim, SirtResim, BacakResim, setImage: TclImage;

  TakvimEtiketi: TclLabel;

  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 SquatButtonTikla

{

  HareketBilgiYazi.Text = 'Squat:\nAyaklar omuz hizasında açık, dizleri bükerek çömel. 3 set, 15 tekrar.';

  Formum.SetImage(HareketResim, 'https://r.resimlink.com/6mVeGvN.png');

}

void PlankButtonTikla

{

  HareketBilgiYazi.Text = 'Plank:\nDirsekler ve ayak parmakları üzerinde dur, vücut düz dursun. 3 set, 30 saniye.';

  Formum.SetImage(HareketResim, 'https://r.resimlink.com/K9HqRPEpJgUT.png');

}

void ZiplaButtonTikla

{

  HareketBilgiYazi.Text = 'Zıplamalı Açma:\nAyaklar ve kollar açılıp kapanır. Kardiyo için idealdir. 3 set, 20 tekrar.';

  Formum.SetImage(HareketResim, 'https://r.resimlink.com/PwpBcnXYEQS.png');

}

void MekikButtonTikla

{

  HareketBilgiYazi.Text = 'Mekik:\nSırt üstü yat, dizler bükülü, gövdeni kaldır. 3 set, 20 tekrar.';

  Formum.SetImage(HareketResim, 'https://r.resimlink.com/OH0oJAIpT.png');

}

void DagciButtonTikla

{

  HareketBilgiYazi.Text = 'Dağcı:\nŞınav pozisyonunda dizleri sırayla çek. 3 set, 30 tekrar.';

  Formum.SetImage(HareketResim, 'https://r.resimlink.com/7NRTpK.png');

}

void KolButtonTikla

{

  secilenBolge = 'Kol';

  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';

  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

{

  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);

  AnaAlan = Formum.AddNewPanel(Formum, 'AnaAlan');

  AnaAlan.Align = alClient;

  AnaAlan.Margins.Top = 10;

  AnaAlan.Margins.Bottom = 10;

  AnaAlan.Margins.Left = 10;

  AnaAlan.Margins.Right = 10;

  BilgiAlan = Formum.AddNewPanel(AnaAlan, 'BilgiAlan');

  BilgiAlan.Align = alTop;

  BilgiAlan.Height = 120;

  AdGiris = Formum.AddNewEdit(BilgiAlan, 'AdGiris', 'Adınız...');

  AdGiris.Align = alTop;

  AdGiris.Height = 30;

  BoyGiris = Formum.AddNewEdit(BilgiAlan, 'BoyGiris', 'Boy (cm)...');

  BoyGiris.Align = alTop;

  BoyGiris.clTypeOfField = taFloat;

  BoyGiris.Height = 30;

  KiloGiris = Formum.AddNewEdit(BilgiAlan, 'KiloGiris', 'Kilo (kg)...');

  KiloGiris.Align = alTop;

  KiloGiris.clTypeOfField = taFloat;

  KiloGiris.Height = 30;

  ButtonAlan = Formum.AddNewPanel(AnaAlan, 'ButtonAlan');

  ButtonAlan.Align = alTop;

  ButtonAlan.Height = 50;

  HesaplaButton = Formum.AddNewButton(ButtonAlan, 'HesaplaButton', 'VKİ Hesapla');

  HesaplaButton.Align = alCenter;

  HesaplaButton.Width = 140;

  Formum.AddNewEvent(HesaplaButton, tbeOnClick, 'HesaplaButtonTikla');

  SonucAlani = Formum.AddNewPanel(AnaAlan, 'SonucAlani');

  SonucAlani.Align = alTop;

  SonucAlani.Height = 60;

  SonucYazi = Formum.AddNewLabel(SonucAlani, 'SonucYazi', '');

  SonucYazi.Align = alClient;

  SonucYazi.TextSettings.Font.Size = 16;

  OneriAlani = Formum.AddNewPanel(AnaAlan, 'OneriAlani');

  OneriAlani.Align = alTop;

  OneriAlani.Height = 70;

  OneriYazi = Formum.AddNewLabel(OneriAlani, 'OneriYazi', '');

  OneriYazi.Align = alClient;

  OneriYazi.WordWrap = True;

  OneriYazi.TextSettings.Font.Size = 14;

  TakvimAlani = Formum.AddNewPanel(AnaAlan, 'TakvimAlani');

  TakvimAlani.Align = alTop;

  TakvimAlani.Height = 50;

  TakvimEtiketi = Formum.AddNewLabel(TakvimAlani, 'TakvimEtiketi', 'Bugünkü kayıt: -');

  TakvimEtiketi.Align = alClient;

  TakvimEtiketi.TextSettings.Font.Size = 12;

  TakvimEtiketi.TextSettings.Font.Style = [fsBold];

  BolgeAlan = Formum.AddNewPanel(AnaAlan, 'BolgeAlan');

  BolgeAlan.Align = alTop;

  BolgeAlan.Height = 100;

  BolgeAlan.Margins.Bottom = 10;

  KolButton = Formum.AddNewButton(BolgeAlan, 'KolButton', 'Kol');

  KolButton.Align = alLeft;

  KolButton.Width = 100;

  KolButton.Height = 80;

  Formum.AddNewEvent(KolButton, tbeOnClick, 'KolButtonTikla');

  KolResim = Formum.AddNewImage(KolButton, 'KolResim');

  Formum.SetImage(KolResim, 'https://r.resimlink.com/xLAKF5tZ.jpg');

  KolResim.Align = alClient;

  SirtButton = Formum.AddNewButton(BolgeAlan, 'SirtButton', 'Sırt');

  SirtButton.Align = alLeft;

  SirtButton.Width = 100;

  SirtButton.Height = 80;

  Formum.AddNewEvent(SirtButton, tbeOnClick, 'SirtButtonTikla');

  SirtResim = Formum.AddNewImage(SirtButton, 'SirtResim');

  Formum.SetImage(SirtResim, 'https://r.resimlink.com/mH6DWJEr.jpg');

  SirtResim.Align = alClient;

  BacakButton = Formum.AddNewButton(BolgeAlan, 'BacakButton', 'Bacak');

  BacakButton.Align = alLeft;

  BacakButton.Width = 100;

  BacakButton.Height = 80;

  Formum.AddNewEvent(BacakButton, tbeOnClick, 'BacakButtonTikla');

  BacakResim = Formum.AddNewImage(BacakButton, 'BacakResim');

  Formum.SetImage(BacakResim, 'https://r.resimlink.com/rAgk5.png');

  BacakResim.Align = alClient;

  HareketAlani = Formum.AddNewPanel(AnaAlan, 'HareketAlani');

  HareketAlani.Align = alClient;

  HareketAlani.Margins.Top = 10;

  SquatButton = Formum.AddNewButton(HareketAlani, 'SquatButton', 'Squat');

  SquatButton.Align = alTop;

  SquatButton.Height = 40;

  Formum.AddNewEvent(SquatButton, tbeOnClick, 'SquatButtonTikla');

  PlankButton = Formum.AddNewButton(HareketAlani, 'PlankButton', 'Plank');

  PlankButton.Align = alTop;

  PlankButton.Height = 40;

  Formum.AddNewEvent(PlankButton, tbeOnClick, 'PlankButtonTikla');

  ZiplaButton = Formum.AddNewButton(HareketAlani, 'ZiplaButton', 'Zıplamalı Açma');

  ZiplaButton.Align = alTop;

  ZiplaButton.Height = 40;

  Formum.AddNewEvent(ZiplaButton, tbeOnClick, 'ZiplaButtonTikla');

  MekikButton = Formum.AddNewButton(HareketAlani, 'MekikButton', 'Mekik');

  MekikButton.Align = alTop;

  MekikButton.Height = 40;

  Formum.AddNewEvent(MekikButton, tbeOnClick, 'MekikButtonTikla');

  DagciButton = Formum.AddNewButton(HareketAlani, 'DagciButton', 'Dağcı');

  DagciButton.Align = alTop;

  DagciButton.Height = 40;

  Formum.AddNewEvent(DagciButton, tbeOnClick, 'DagciButtonTikla');

  // Kol hareketleri

  Barbell_BicepsCurlButton = Formum.AddNewButton(HareketAlani, 'Barbell_BicepsCurlButton', 'Barbell Biceps Curl');

  Barbell_BicepsCurlButton.Align = alTop;

  Barbell_BicepsCurlButton.Height = 40;

  Barbell_BicepsCurlButton.Visible = False;

  Dumbell_Hammer_CurlButton = Formum.AddNewButton(HareketAlani, 'Dumbell_Hammer_CurlButton', 'Dumbell Hammer Curl');

  Dumbell_Hammer_CurlButton.Align = alTop;

  Dumbell_Hammer_CurlButton.Height = 40;

  Dumbell_Hammer_CurlButton.Visible = False;

  Incline_Dumbell_PressButton = Formum.AddNewButton(HareketAlani, 'Incline_Dumbell_PressButton', 'Incline Dumbell Press');

  Incline_Dumbell_PressButton.Align = alTop;

  Incline_Dumbell_PressButton.Height = 40;

  Incline_Dumbell_PressButton.Visible = False;

  AlternateDumbellCurlButton = Formum.AddNewButton(HareketAlani, 'AlternateDumbellCurlButton', 'Alternate Dumbell Curl');

  AlternateDumbellCurlButton.Align = alTop;

  AlternateDumbellCurlButton.Height = 40;

  AlternateDumbellCurlButton.Visible = False;

  Dumbell_Concentration_CurlButton = Formum.AddNewButton(HareketAlani, 'Dumbell_Concentration_CurlButton', 'Dumbell Concentration Curl');

  Dumbell_Concentration_CurlButton.Align = alTop;

  Dumbell_Concentration_CurlButton.Height = 40;

  Dumbell_Concentration_CurlButton.Visible = False;

  // Sırt hareketleri

  HyperextensionButton = Formum.AddNewButton(HareketAlani, 'HyperextensionButton', 'Hyperextension');

  HyperextensionButton.Align = alTop;

  HyperextensionButton.Height = 40;

  HyperextensionButton.Visible = False;

  Latpull_downButton = Formum.AddNewButton(HareketAlani, 'Latpull_downButton', 'Lat Pull Down');

  Latpull_downButton.Align = alTop;

  Latpull_downButton.Height = 40;

  Latpull_downButton.Visible = False;

  BarfiksButton = Formum.AddNewButton(HareketAlani, 'BarfiksButton', 'Barfiks');

  BarfiksButton.Align = alTop;

  BarfiksButton.Height = 40;

  BarfiksButton.Visible = False;

  BentoverowButton = Formum.AddNewButton(HareketAlani, 'BentoverowButton', 'Bent Over Row');

  BentoverowButton.Align = alTop;

  BentoverowButton.Height = 40;

  BentoverowButton.Visible = False;

  Barbell_deadliftButton = Formum.AddNewButton(HareketAlani, 'Barbell_deadliftButton', 'Barbell Deadlift');

  Barbell_deadliftButton.Align = alTop;

  Barbell_deadliftButton.Height = 40;

  Barbell_deadliftButton.Visible = False;

  // Bacak hareketleri

  HackSquatButton = Formum.AddNewButton(HareketAlani, 'HackSquatButton', 'Hack Squat');

  HackSquatButton.Align = alTop;

  HackSquatButton.Height = 40;

  HackSquatButton.Visible = False;

  LegPressButton = Formum.AddNewButton(HareketAlani, 'LegPressButton', 'Leg Press');

  LegPressButton.Align = alTop;

  LegPressButton.Height = 40;

  LegPressButton.Visible = False;

  Standing_LegCurlButton = Formum.AddNewButton(HareketAlani, 'Standing_LegCurlButton', 'Standing Leg Curl');

  Standing_LegCurlButton.Align = alTop;

  Standing_LegCurlButton.Height = 40;

  Standing_LegCurlButton.Visible = False;

  LyingLeg_CurlButton = Formum.AddNewButton(HareketAlani, 'LyingLeg_CurlButton', 'Lying Leg Curl');

  LyingLeg_CurlButton.Align = alTop;

  LyingLeg_CurlButton.Height = 40;

  LyingLeg_CurlButton.Visible = False;

  LegExtensionButton = Formum.AddNewButton(HareketAlani, 'LegExtensionButton', 'Leg Extension');

  LegExtensionButton.Align = alTop;

  LegExtensionButton.Height = 40;

  LegExtensionButton.Visible = False;

  HareketBilgiYazi = Formum.AddNewLabel(HareketAlani, 'HareketBilgiYazi', '');

  HareketBilgiYazi.Align = alTop;

  HareketBilgiYazi.WordWrap = True;

  HareketBilgiYazi.TextSettings.Font.Size = 14;

  HareketResim = Formum.AddNewImage(HareketAlani, 'HareketResim');

  HareketResim.Align = alClient;

  HareketResim.Margins.Top = 10;

  Formum.Run;

}

uygulamama 2 veya 3 sayfa eklemek istiyorum yapmayı denedim ama hata aldım