var

  MyForm: TclForm;

  evreVerisi: TclJSONQuery;

  jsonMetni: String;

  evreKart: TclProButton;

  mainScroll: TclVertScrollBox;

  headerLabel: TclProLabel;

  comparePanel: TclProPanel;

  compareImg: TclProImage;

  compareTitle: TclProLabel;

  i: Integer;

void BtnOnClick;

{

  ShowMessage('Bu evrenin detaylı görselleri ve mikroskop görüntüleri hazırlanıyor...');

}

{ 

  MyForm = TclForm.Create(Self);

  

  mainScroll = MyForm.AddNewVertScrollBox(MyForm, 'mainScroll');

  mainScroll.Align = alClient;

  headerLabel = MyForm.AddNewProLabel(mainScroll, 'headerLabel', 'Hücre Bölünmesi Evreleri');

  headerLabel.Align = alTop;

  headerLabel.Height = 50;

  headerLabel.Margins.Left = 20;

  headerLabel.clProSettings.FontSize = 18;

  headerLabel.clProSettings.FontColor = clAlphaColor.clDarkslategray;

  headerLabel.clProSettings.TextSettings.Font.Style = [fsBold];

  headerLabel.SetclProSettings(headerLabel.clProSettings);

  jsonMetni = '[ ' +

    '{"tur": "MİTOZ", "evre": "Profaz", "bilgi": "Çekirdek zarı erir, iğ iplikleri oluşur.", "renk": "#E3F2FD"},' +

    '{"tur": "MİTOZ", "evre": "Metafaz", "bilgi": "Kromozomlar hücrenin merkezinde dizilir.", "renk": "#E3F2FD"},' +

    '{"tur": "MİTOZ", "evre": "Anafaz", "bilgi": "Kardeş kromatitler ayrılır.", "renk": "#E3F2FD"},' +

    '{"tur": "MİTOZ", "evre": "Telofaz", "bilgi": "İki yeni çekirdek oluşur.", "renk": "#E3F2FD"},' +

    '{"tur": "MAYOZ", "evre": "Profaz I", "bilgi": "Crossing-over görülür.", "renk": "#F3E5F5"},' +

    '{"tur": "MAYOZ", "evre": "Metafaz I", "bilgi": "Homolog kromozomlar hücrenin merkezinde dizilir.", "renk": "#F3E5F5"},' +

    '{"tur": "MAYOZ", "evre": "Anafaz I", "bilgi": "Homolog kromozomlar ayrılır.", "renk": "#F3E5F5"},' +

    '{"tur": "MAYOZ", "evre": "Telofaz I", "bilgi": "Sitoplazma bölünmesi başlar.", "renk": "#F3E5F5"},' +

    '{"tur": "MAYOZ", "evre": "Mayoz II", "bilgi": "Mitoz evreleri ile aynı özelliğe sahip evreler dizisi gerçekleşir.", "renk": "#F3E5F5"}' +

  ']';

  evreVerisi = Clomosy.ClDataSetFromJSON(jsonMetni);

  

  i = 0;

  evreVerisi.First; 

  while (not evreVerisi.EOF)

  {

    i = i + 1;

    evreKart = MyForm.AddNewProButton(mainScroll, 'btnEvre_' + IntToStr(i), '');

    evreKart.Align = alTop;

    evreKart.Height = 100;

    evreKart.Margins.Top = 10;

    evreKart.Margins.Left = 15;

    evreKart.Margins.Right = 15;

    

    

    evreKart.Text = '[' + evreVerisi.FieldByName('tur').AsString + '] ' + 

                    evreVerisi.FieldByName('evre').AsString + #13 + 

                    evreVerisi.FieldByName('bilgi').AsString;

    

    evreKart.clProSettings.FontSize = 12;

    evreKart.clProSettings.FontVertAlign = palCenter;

    evreKart.clProSettings.FontHorzAlign = palCenter;

    evreKart.clProSettings.FontColor = clAlphaColor.clBlack;

    evreKart.SetclProSettings(evreKart.clProSettings);

    

    MyForm.AddNewEvent(evreKart, tbeOnClick, 'BtnOnClick');

    evreVerisi.Next;

  }

  comparePanel = MyForm.AddNewProPanel(mainScroll, 'comparePanel');

  comparePanel.Align = alTop;

  comparePanel.Height = 350;

  comparePanel.Margins.Top = 30;

  comparePanel.Margins.Bottom = 20;

  comparePanel.Margins.Left = 15;

  comparePanel.Margins.Right = 15;

  comparePanel.clProSettings.BackgroundColor = clAlphaColor.clWhite;

  comparePanel.clProSettings.RoundHeight = 20;

  comparePanel.clProSettings.RoundWidth = 20;

  comparePanel.clProSettings.IsRound = True;

  comparePanel.SetclProSettings(comparePanel.clProSettings);

  compareTitle = MyForm.AddNewProLabel(comparePanel, 'compareTitle', 'Mitoz ve Mayoz Farkları');

  compareTitle.Align = alTop;

  compareTitle.Height = 40;

  compareTitle.Margins.Top = 10;

  compareTitle.clProSettings.FontSize = 14;

  compareTitle.clProSettings.FontColor = clAlphaColor.clBlack;

  compareTitle.clProSettings.TextSettings.Font.Style = [fsBold];

  compareTitle.clProSettings.FontHorzAlign = palCenter;

  compareTitle.SetclProSettings(compareTitle.clProSettings);

  compareImg = MyForm.AddNewProImage(comparePanel, 'compareImg');

  compareImg.Align = alClient;

  compareImg.Margins.Top = 10;

  compareImg.Margins.Bottom = 10;

  compareImg.Margins.Left = 10;

  compareImg.Margins.Right = 10;

  

  compareImg.clProSettings.PictureSource = 'https://img.freepik.com/free-vector/comparison-mitosis-meiosis-infographic_23-2148812638.jpg';

  compareImg.SetclProSettings(compareImg.clProSettings);

  MyForm.Run;

}

Emre Hocam iyi akşamlar. Ekte bulunan dosyamda hep aynı hatayı almaktayım ve bu yüzden projemde ilerleyememekteyim. Müsait olduğunuzda dönüş yaparsanız sevinirim şimdiden teşekkür ederim.