fonksiyon

= MyForm.AddNewProLabel(satir1Label, 'lblGun' + IntToStr(j) + '_' + IntToStr(i), gunler);

   var   
  MyForm: TclForm;
  MainPnl, habit1pnl, ustPanel,baslik1pnl,secimPanel,mypanel: TclProPanel;
  butonlar: array[0..31] of TClProButton;
  i, j: Integer;
  baslik1btn:TClProButton;
  hedefSatir: TclProPanel;
  gunler: array[0..6] of String;
  gunEtiketleri: array[0..6] of TclProLabel;
  vScroll: TClVertScrollBox;
  aylar: array[0..11] of String;
  ayLabel: TClProLabel;
  satir1Label, satir1, satir2, satir3, satir4, satir5: TclProPanel;
  yilbaslik:tclprolabel;
  elimage:tclproimage;
  secimaliskanlikbtn1,secimaliskanlikbtn2,secimaliskanlikbtn3,secimaliskanlikbtn4:TClProButton;
  Imagecircle,Imagecircle2,Imagecircle3,Imagecircle4:tclproimage;
  secimkapatbtn:TClProButton;
  mybuton1,mybuton2,mybuton3,mybuton4:TClProButton;

   void mybuton3click
  {
    Clomosy.RunUnit('mybuton3');
  }

   void mybuton4click
  {
    Clomosy.RunUnit('mybuton4');
  }

  void aliskanlikclick

  {
    secimpanel.Visible = not secimpanel.Visible;
  }

{
  MyForm = TclForm.Create(Self);

  MainPnl = myForm.AddNewProPanel(myForm, 'MainPnl');
  MainPnl.Align = alClient;

  MainPnl.Align=alCenter;
  MainPnl.Height=630;
  MainPnl.Width=400;
  MainPnl.clProSettings.RoundHeight=40;
  MainPnl.clProSettings.Roundwidth=40;
  MainPnl.clProSettings.IsTransparent =False;
  MainPnl.SetclProSettings(MainPnl.clProSettings); 

  habit1pnl = MyForm.AddNewProPanel(MainPnl, 'habit1pnl');
  habit1pnl.Align = alClient;
  habit1pnl.SetclProSettings(habit1pnl.clProSettings);

  baslik1pnl = MyForm.AddNewProPanel(habit1pnl, 'baslik1pnl');
  baslik1pnl.Align = alTop;
  baslik1pnl.Margins.left=11;
  baslik1pnl.Height = 100;
  baslik1pnl.width = 200;
  baslik1pnl.clProSettings.BorderColor = clAlphaColor.clHexToColor('#cccccc');
  baslik1pnl.clProSettings.BorderWidth = 1;
  baslik1pnl.SetclProSettings(baslik1pnl.clProSettings);

  yilbaslik = myform.AddNewProLabel(baslik1pnl,'yilbaslik','YILLIK ALIŞKANLIK TAKİBİ');
  yilbaslik.Align = altop;
  yilbaslik.margins.left=60;
  yilbaslik.Width = 300;
  yilbaslik.Height = 30;
  yilbaslik.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');
  yilbaslik.clProSettings.FontSize = 20;
  yilbaslik.clProSettings.FontVertAlign = palcenter;
  yilbaslik.clProSettings.FontHorzAlign = palLeading;
  yilbaslik.clProSettings.TextSettings.Font.Style = [fsBold];
  yilbaslik.clProSettings.IsFill = True; 
  yilbaslik.clProSettings.IsRound = True;
  yilbaslik.SetclProSettings(yilbaslik.clProSettings);

  baslik1btn = MyForm.AddNewProButton(baslik1pnl, 'baslik1btn', 'Alışkanlıklar');
  baslik1btn.Align = alcenter;
  baslik1btn.Width = 100;
  baslik1btn.Height = 50;
  baslik1btn.Margins.Right = 240;
  baslik1btn.clProSettings.IsRound = True;
  baslik1btn.clProSettings.FontSize = 14;
  baslik1btn.clProSettings.BorderColor = clAlphaColor.clHexToColor('#ea9eff');
  baslik1btn.clProSettings.BorderWidth = 2;
  baslik1btn.SetclProSettings(baslik1btn.clProSettings);
  MyForm.AddNewEvent(baslik1btn, tbeOnClick, 'aliskanlikclick');
 ////////////////////////////////////////////////////////////////////////////////
  secimPanel=MyForm.AddNewProPanel(MainPnl,'secimPanel');
  secimPanel.Align = AlCenter;
  secimpanel.margins.right=170;
  secimpanel.margins.bottom=200;
  secimPanel.Width = 200;
  secimPanel.Height =250;
  secimPanel.clProSettings.IsRound = True;
 secimPanel.visible=false;
 secimPanel.SetclProSettings(secimPanel.clProSettings);

  secimaliskanlikbtn1 = MyForm.AddNewProButton(secimPanel, 'secimaliskanlikbtn1', 'Alışkanlık1');
  secimaliskanlikbtn1.Align = altop;
  secimaliskanlikbtn1.margins.top=40;
  secimaliskanlikbtn1.Width = 100;
  secimaliskanlikbtn1.Height = 50;
  secimaliskanlikbtn1.clProSettings.IsRound = True;
  secimaliskanlikbtn1.clProSettings.FontSize = 14;
  secimaliskanlikbtn1.clProSettings.BorderColor = clAlphaColor.clHexToColor('#ea9eff');
  secimaliskanlikbtn1.clProSettings.BorderWidth = 2;
  secimaliskanlikbtn1.SetclProSettings(secimaliskanlikbtn1.clProSettings);

 secimaliskanlikbtn2 = MyForm.AddNewProButton(secimPanel, 'secimaliskanlikbtn2', 'Alışkanlık2');
  secimaliskanlikbtn2.Align = altop;
  secimaliskanlikbtn2.margins.top=5;
  secimaliskanlikbtn2.Width = 100;
  secimaliskanlikbtn2.Height = 50;
  secimaliskanlikbtn2.clProSettings.IsRound = True;
  secimaliskanlikbtn2.clProSettings.FontSize = 14;
  secimaliskanlikbtn2.clProSettings.BorderColor = clAlphaColor.clHexToColor('#ea9eff');
  secimaliskanlikbtn2.clProSettings.BorderWidth = 2;
  secimaliskanlikbtn2.SetclProSettings(secimaliskanlikbtn2.clProSettings);

 secimaliskanlikbtn3 = MyForm.AddNewProButton(secimPanel, 'secimaliskanlikbtn3', 'Alışkanlık3');
  secimaliskanlikbtn3.Align = altop;
  secimaliskanlikbtn3.margins.top=5;
  secimaliskanlikbtn3.Width = 100;
  secimaliskanlikbtn3.Height = 50;
  secimaliskanlikbtn3.clProSettings.IsRound = True;
  secimaliskanlikbtn3.clProSettings.FontSize = 14;
  secimaliskanlikbtn3.clProSettings.BorderColor = clAlphaColor.clHexToColor('#ea9eff');
  secimaliskanlikbtn3.clProSettings.BorderWidth = 2;
  secimaliskanlikbtn3.SetclProSettings(secimaliskanlikbtn3.clProSettings);

 secimaliskanlikbtn4 = MyForm.AddNewProButton(secimPanel, 'secimaliskanlikbtn4', 'Alışkanlık4');
  secimaliskanlikbtn4.Align = altop;
  secimaliskanlikbtn4.margins.top=5;
  secimaliskanlikbtn4.Width = 100;
  secimaliskanlikbtn4.Height = 50;
  secimaliskanlikbtn4.clProSettings.IsRound = True;
  secimaliskanlikbtn4.clProSettings.FontSize = 14;
  secimaliskanlikbtn4.clProSettings.BorderColor = clAlphaColor.clHexToColor('#ea9eff');
  secimaliskanlikbtn4.clProSettings.BorderWidth = 2;
  secimaliskanlikbtn4.SetclProSettings(secimaliskanlikbtn4.clProSettings);

 Imagecircle = myForm.AddNewProImage(secimaliskanlikbtn1, 'Imagecircle');
 Imagecircle.Align = alcenter;
 Imagecircle.margins.right=100;
 Imagecircle.margins.top=5;
 Imagecircle.Width = 25;
 Imagecircle.Height = 24;
 myForm.SetImage(Imagecircle, 'https://i.imgur.com/c7vyHfU.png');

Imagecircle2 = myForm.AddNewProImage(secimaliskanlikbtn2, 'Imagecircle2');
Imagecircle2.Align = alcenter;
Imagecircle2.margins.right=100;
 Imagecircle2.margins.top=5;
 Imagecircle2.Width = 25;
 Imagecircle2.Height = 24;
 myForm.SetImage(Imagecircle2, 'https://i.imgur.com/c7vyHfU.png'); 

  Imagecircle3= myForm.AddNewProImage(secimaliskanlikbtn3, 'Imagecircle3');
Imagecircle3.Align = alcenter;
 Imagecircle3.margins.right=100;
 Imagecircle3.margins.top=5;
 Imagecircle3.Width = 25;
 Imagecircle3.Height = 24;
 myForm.SetImage(Imagecircle3, 'https://i.imgur.com/c7vyHfU.png'); 

  Imagecircle4 = myForm.AddNewProImage(secimaliskanlikbtn4, 'Imagecircle4');
 Imagecircle4.Align = alcenter;
 Imagecircle4.margins.right=100;
 Imagecircle4.margins.top=5;
 Imagecircle4.Width = 25;
 Imagecircle4.Height = 24;
 myForm.SetImage(Imagecircle4, 'https://i.imgur.com/c7vyHfU.png'); 

 ///////////////////////////////////////////////////////////////////////////////7

  elImage = myForm.AddNewProImage(baslik1pnl, 'elImage');
 elImage.Align = alcenter;
 elimage.margins.right=140;
 elImage.margins.top=25;
 elImage.Width = 22;
 elImage.Height = 24;
 myForm.SetImage(elImage, 'https://i.imgur.com/4bxFXAo.png');

 //////////////////////////////////////////////////////////////////////////////////////7
  vScroll = MyForm.AddNewVertScrollBox(habit1pnl, 'vScroll');
  vScroll.Align = alClient;

  aylar = ['Ocak','Şubat','Mart','Nisan','Mayıs','Haziran','Temmuz','Ağustos','Eylül','Ekim','Kasım','Aralık'];

  for (j = 0 to 11) {
    ustPanel = MyForm.AddNewProPanel(vScroll, 'ustPanel' + IntToStr(j));
    ustPanel.Align = alTop;
    ustPanel.Height = 400;
    ustPanel.width = 400;
    ustPanel.Margins.Top = 10;
    ustPanel.clProSettings.RoundHeight = 10;
    ustPanel.clProSettings.RoundWidth = 10;
    ustPanel.clProSettings.BorderColor = clAlphaColor.clHexToColor('#cccccc');
    ustPanel.clProSettings.BorderWidth = 2;
    ustPanel.SetclProSettings(ustPanel.clProSettings);

    ayLabel = MyForm.AddNewProLabel(ustPanel, 'ayLabel' + IntToStr(j), aylar[j] + ', 2026');
    ayLabel.Align = alTop;
    aylabel.Margins.left=20;
    ayLabel.Height = 50;
    ayLabel.clProSettings.FontSize = 18;
    ayLabel.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');
    ayLabel.clProSettings.TextSettings.Font.Style = [fsBold];
    ayLabel.SetclProSettings(ayLabel.clProSettings);

    satir1Label = MyForm.AddNewProPanel(ustPanel, 'satir1Label' + IntToStr(j));
    satir1Label.Align = alTop;
    satir1Label.Height = 24;

    gunler = ['Mon', 'Tue', 'Wed', 'Thu', 'Fri', 'Sat', 'Sun'];
    for (i = 6 downto 0) {
      gunEtiketleri = MyForm.AddNewProLabel(satir1Label, 'lblGun' + IntToStr(j) + '_' + IntToStr(i), gunler);
      gunEtiketleri.Align = alRight;
      gunEtiketleri.Margins.Right = 18;
      gunEtiketleri.Margins.Left = 3;
      gunEtiketleri.Width = 30;
      gunEtiketleri.clProSettings.FontSize = 14;
      gunEtiketleri.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');
      gunEtiketleri.clProSettings.FontVertAlign = palLeading;
      gunEtiketleri.clProSettings.FontHorzAlign = palcenter;
      gunEtiketleri.SetclProSettings(gunEtiketleri.clProSettings);
    }

    satir1 = MyForm.AddNewProPanel(ustPanel, 'satir1' + IntToStr(j)); satir1.Align = alTop;satir1.margins.right=12;satir1.Height = 40;

    satir2 = MyForm.AddNewProPanel(ustPanel, 'satir2' + IntToStr(j)); satir2.Align = alTop;satir2.margins.right=12;satir2.Height = 40;
    satir3 = MyForm.AddNewProPanel(ustPanel, 'satir3' + IntToStr(j)); satir3.Align = alTop;satir3.margins.right=12;satir3.Height = 40;
    satir4 = MyForm.AddNewProPanel(ustPanel, 'satir4' + IntToStr(j)); satir4.Align = alTop;satir4.margins.right=12;satir4.Height = 40;
    satir5 = MyForm.AddNewProPanel(ustPanel, 'satir5' + IntToStr(j)); satir5.Align = alTop;;satir5.margins.right=217; satir5.Height = 40;

///////////SOR SOR SOR SOR////////////////////////////////////////77
    for (i = 30 downto 0) {
      if (i < 7) {
        hedefSatir = satir1;
      } else if (i < 14) {
        hedefSatir = satir2;
      } else if (i < 21) {
        hedefSatir = satir3;
      } else if (i < 28) {
        hedefSatir = satir4;
      } else {
        hedefSatir = satir5;
      }
///////////////////////////////////////////////////////////////////////
      butonlar = MyForm.AddNewProButton(hedefSatir, 'btn' + IntToStr(j) + '_' + IntToStr(i), IntToStr(i + 1));
      butonlar.Align = alRight;
      butonlar.Margins.Right = 2;
      butonlar.Margins.Top = 4;
      butonlar.Margins.Left = 4;
      butonlar.Width = 45;
      butonlar.Height = 32;
      butonlar.clProSettings.PictureSource = 'https://i.imgur.com/exBB3ZA.png';
      butonlar.clProSettings.PictureAutoFit = true;
      butonlar.clProSettings.IsRound = true;
      butonlar.clProSettings.FontSize = 9;
      butonlar.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');
      butonlar.SetclProSettings(butonlar.clProSettings);
    }

   }

 mypanel=myForm.AddNewProPanel(MainPnl,'mypanel');
mypanel.Align=alMostBottom;
mypanel.Align=alHorizontal;
mypanel.Height=200;
mypanel.Width=300;
mypanel.clProSettings.RoundHeight=20;
mypanel.clProSettings.Roundwidth=20;
mypanel.clProSettings.IsTransparent =False;
mypanel.clProSettings.BorderColor = clAlphaColor.clHexToColor('#ffffff');
mypanel.clProSettings.BorderWidth = 2;
mypanel.SetclProSettings(mypanel.clProSettings); 

 mybuton1=myForm.AddNewProButton(mypanel, 'mybuton1', '');
mybuton1.Align = alLeft;
mybuton1.margins.left=50;
mybuton1.margins.bottom=130;
mybuton1.Width = 40;
mybuton1.Height = 40;
mybuton1.clProSettings.IsRound = True;
mybuton1.clProSettings.RoundHeight = 10;
mybuton1.clProSettings.RoundWidth = 10;
mybuton1.SetclProSettings(mybuton1.clProSettings);
myForm.SetImage(mybuton1,'https://i.imgur.com/KcmLm4h.png'); 

mybuton2=myForm.AddNewProButton(mypanel, 'mybuton2', '');
mybuton2.Align = alLeft;
mybuton2.margins.left=45;
mybuton2.margins.bottom=130;
mybuton2.Width = 40;
mybuton2.Height = 40;
mybuton2.clProSettings.IsRound = True;
mybuton2.clProSettings.RoundHeight = 10;
mybuton2.clProSettings.RoundWidth = 10;
mybuton2.SetclProSettings(mybuton2.clProSettings);
myForm.SetImage(mybuton2,'https://i.imgur.com/mcpG1Ot.png'); 

mybuton3=myForm.AddNewProButton(mypanel, 'mybuton3', '');
mybuton3.Align = alLeft;
mybuton3.margins.left=45;
mybuton3.margins.bottom=130;
mybuton3.Width = 40;
mybuton3.Height = 40;
mybuton3.clProSettings.IsRound = True;
mybuton3.clProSettings.RoundHeight = 10;
mybuton3.clProSettings.RoundWidth = 10;
mybuton3.SetclProSettings(mybuton3.clProSettings);
myForm.SetImage(mybuton3,'https://i.imgur.com/yOGrUe4.png'); 

mybuton4=myForm.AddNewProButton(mypanel, 'mybuton4', '');
mybuton4.Align = alMostRight;
mybuton4.margins.right=50;
mybuton4.margins.bottom=130;
mybuton4.Width = 40;
mybuton4.Height = 40;
mybuton4.clProSettings.IsRound = True;
mybuton4.clProSettings.RoundHeight = 10;
mybuton4.clProSettings.RoundWidth = 10;
mybuton4.SetclProSettings(mybuton4.clProSettings);
myForm.SetImage(mybuton4,'https://i.imgur.com/dKnXBVF.png'); 

myForm.AddNewEvent(mybuton3,tbeOnClick,'mybuton3click');
MyForm.AddNewEvent(mybuton4,tbeOnClick,'mybuton4click');

  MyForm.Run;
}

Merhaba,her ay için gün sayısını ve gün başlangıcı değişmesini butonlarımda gösteremedim, fonksiyon olarak yazamadım nasıl bir fonksiyon yazmam gerek bunun için yardım ederseniz sevinirim.

< id="BFI_" style="width: 1px; height: 1px; display: none;">    TRANSLATE with  x
  < name="Menu_svid" ="text" id="Menu_svid" style="display:none;" autocomplete="on" value="en" ="."> < name="Menu_textid" ="text" id="Menu_textid" style="display:none;" autocomplete="on" ="."> English    Arabic Hebrew Polish  
 Bulgarian Hindi Portuguese  
 Catalan Hmong Daw Romanian  
 Chinese Simplified Hungarian Russian  
 Chinese Traditional Indonesian Slovak  
 Czech Italian Slovenian  
 Danish Japanese Spanish  
 Dutch Klingon Swedish  
 English Korean Thai  
 Estonian Latvian Turkish  
 Finnish Lithuanian Ukrainian  
 French Malay Urdu  
 German Maltese Vietnamese  
 Greek Norwegian Welsh  
 Haitian Creole Persian  

  var LanguageMenu; var LanguageMenu_keys=["ar","bg","ca","zh-CHS","zh-CHT","cs","da","nl","en","et","fi","fr","de","el","ht","he","hi","mww","hu","id","it","ja","tlh","ko","lv","lt","ms","mt","no","fa","pl","pt","ro","ru","sk","sl","es","sv","th","tr","uk","ur","vi","cy"]; var LanguageMenu_values=["Arabic","Bulgarian","Catalan","Chinese Simplified","Chinese Traditional","Czech","Danish","Dutch","English","Estonian","Finnish","French","German","Greek","Haitian Creole","Hebrew","Hindi","Hmong Daw","Hungarian","Indonesian","Italian","Japanese","Klingon","Korean","Latvian","Lithuanian","Malay","Maltese","Norwegian","Persian","Polish","Portuguese","Romanian","Russian","Slovak","Slovenian","Spanish","Swedish","Thai","Turkish","Ukrainian","Urdu","Vietnamese","Welsh"]; var LanguageMenu_callback=function(){ }; var LanguageMenu_popupid='__LanguageMenu_popup';  

  TRANSLATE with 
    COPY THE URL BELOW  
  < name="ShareText" ="text" id="ShareText" readonly="readonly" =".">    
     Back 
 < name="EmailSubject" ="" id="EmailSubject" value="Check out  page in 0 translated from 1"> < name="Email" ="" id="Email" value="Translated: 0%0d%0aOriginal: 1%0d%0a%0d%0aAutomatic translation powered by Microsoft® Translator%0d%0ahttp://www.bing.com/translator?ref=MSTWidget"> < ="" id="ShareHelpText" value="  allows visitors to launch  page and automatically translate it to 0."> 
   EMBED THE SNIPPET BELOW IN YOUR SITE   
  < name="SnippetText" ="text" id="SnippetText" readonly="readonly" value="
< ='text/'>setTimeout(function(){var s=document.createElement('script');s.type='text/javascript';s.charset='UTF-8';s.src=((location && location.href && location.href.indexOf('https') == 0)?'https://ssl.microsofttranslator.com':'http://www.microsofttranslator.com')+'/ajax/v3/WidgetV3.ashx?siteData=ueOIGRSKkd965FeEGM5JtQ**&ctf=true&ui=true&settings=manual&from=en';var p=document.getElementsByTagName('head')[0]||document.documentElement;p.insertBefore(s,p.firstChild); },0);" onclick="this.select()"> 
 Enable collaborative features and customize widget: Bing Webmaster Portal
 Back

  var intervalId = setInterval(function () { if (MtPopUpList) { LanguageMenu = new MtPopUpList(); var langMenu = document.getElementById(LanguageMenu_popupid); var origLangDiv = document.createElement("div"); origLangDiv.id = "OriginalLanguageDiv"; origLangDiv.innerHTML = "ORIGINAL: "; langMenu.appendChild(origLangDiv); LanguageMenu.Init('LanguageMenu', LanguageMenu_keys, LanguageMenu_values, LanguageMenu_callback, LanguageMenu_popupid); window["LanguageMenu"] = LanguageMenu; clearInterval(intervalId); } }, 1);  