aşağıda bıraktığım kod daha düzenli hiyerarşiye sahip inceleyebilirsin

var 

  anaForm: TCLForm;

  testBtn: TCLProButton;

  testCheckBox, testCheckBox2: TClCheckBox;

  testCombo: TClComboBox;

  testEdit: TclEdit;

  testButtonX, testButtonY: TCLButton;

  counter: Integer;

  

  MainScroll: TCLVertScrollBox;

  CardCheckboxes, CardInputs, CardBtn, CardHorz, CardVert, CardList: TClProPanel;

  LblCheckTitle, LblInputTitle, LblHorzTitle, LblVertTitle, LblListTitle: TClProLabel;

  

  horizontalscrolllbox: TCLHorzScrollBox;

  verticalscrollbox: TCLVertScrollBox;

  testListView: TCLListView;

void ButtonClicked;

{

  testCheckBox.isChecked = not testCheckBox.isChecked;

  testCheckBox2.isChecked = not testCheckBox2.isChecked;

}

void ComboSelected;

var

  strValue, strKey, strKey2: String;

{

  strValue = testCombo.GetValueIndex(testCombo.ItemIndex);

  strKey = testCombo.GetItemIndex(testCombo.ItemIndex);

  strKey2 = testCombo.Items[testCombo.ItemIndex];

  ShowMessage('strValue : ' + strValue); // value1

  ShowMessage('strKey : ' + strKey); // key

  ShowMessage('strKey2 : ' + strKey2); // key

  ShowMessage('testCombo.ItemIndex : ' + IntToStr(testCombo.ItemIndex)); // index 

}

void OnClickmessage;

{

  ShowMessage('My first button demo on clomosy');

}

{

  anaForm = TCLForm.create(self);

  anaForm.SetFormColor('#0F172A', '', clGNone);

  MainScroll = anaForm.AddNewVertScrollBox(anaForm, 'MainScroll');

  MainScroll.Align = alClient;

  

  CardCheckboxes = anaForm.AddNewProPanel(MainScroll, 'CardCheckboxes');

  CardCheckboxes.Align = alTop; CardCheckboxes.Height = 110; CardCheckboxes.Margins.Top = 15; CardCheckboxes.Margins.Left = 16; CardCheckboxes.Margins.Right = 16;

  CardCheckboxes.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1E293B');

  CardCheckboxes.clProSettings.RoundHeight = 12; CardCheckboxes.clProSettings.RoundWidth = 12; CardCheckboxes.clProSettings.IsFill = True;

  CardCheckboxes.SetclProSettings(CardCheckboxes.clProSettings);

  

  LblCheckTitle = anaForm.AddNewProLabel(CardCheckboxes, 'LblCheckTitle', 'HOBİLERİNİZ');

  LblCheckTitle.Align = alTop; LblCheckTitle.Height = 24; LblCheckTitle.Margins.Left = 12; LblCheckTitle.Margins.Top = 8;

  LblCheckTitle.clProSettings.FontColor = clAlphaColor.clHexToColor('#6366F1'); LblCheckTitle.clProSettings.FontSize = 12; LblCheckTitle.clProSettings.TextSettings.Font.Style = [fsBold];

  LblCheckTitle.SetclProSettings(LblCheckTitle.clProSettings);

  

  testCheckBox = anaForm.AddNewCheckBox(CardCheckboxes, 'testCheckBox', 'Kitap Okumak');

  testCheckBox.StyledSettings = ssFamily;

  testCheckBox.TextSettings.Font.Size = 14;

  testCheckBox.TextSettings.FontColor = clAlphaColor.clWhite;

  testCheckBox.Align = alTop; testCheckBox.Height = 30; testCheckBox.Margins.Left = 15;

  

  testCheckBox2 = anaForm.AddNewCheckBox(CardCheckboxes, 'testCheckBox2', 'Film İzlemek');

  testCheckBox2.StyledSettings = ssFamily;

  testCheckBox2.TextSettings.Font.Size = 14;

  testCheckBox2.TextSettings.FontColor = clAlphaColor.clWhite;

  testCheckBox2.Align = alTop; testCheckBox2.Height = 30; testCheckBox2.Margins.Left = 15;

  

  CardInputs = anaForm.AddNewProPanel(MainScroll, 'CardInputs');

  CardInputs.Align = alTop; CardInputs.Height = 175; CardInputs.Margins.Top = 15; CardInputs.Margins.Left = 16; CardInputs.Margins.Right = 16;

  CardInputs.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1E293B');

  CardInputs.clProSettings.RoundHeight = 12; CardInputs.clProSettings.RoundWidth = 12; CardInputs.clProSettings.IsFill = True;

  CardInputs.SetclProSettings(CardInputs.clProSettings);

  

  LblInputTitle = anaForm.AddNewProLabel(CardInputs, 'LblInputTitle', 'GİRİŞ BİLGİLERİ');

  LblInputTitle.Align = alTop; LblInputTitle.Height = 24; LblInputTitle.Margins.Left = 12; LblInputTitle.Margins.Top = 8;

  LblInputTitle.clProSettings.FontColor = clAlphaColor.clHexToColor('#6366F1'); LblInputTitle.clProSettings.FontSize = 12; LblInputTitle.clProSettings.TextSettings.Font.Style = [fsBold];

  LblInputTitle.SetclProSettings(LblInputTitle.clProSettings);

  

  testCombo = anaForm.AddNewComboBox(CardInputs, 'testCombo');

  testCombo.Align = alTop; testCombo.Height = 40; testCombo.Margins.Left = 12; testCombo.Margins.Right = 12; testCombo.Margins.Top = 6;

  testCombo.AddItem('Pazartesi', '01');

  testCombo.AddItem('Salı', '02');

  testCombo.AddItem('Çarşamba', '03');

  testCombo.AddItem('Perşembe', '04');

  testCombo.AddItem('Cuma', '05');

  testCombo.AddItem('Cumartesi', '06');

  testCombo.AddItem('Pazar', '07');

  anaForm.AddNewEvent(testCombo, tbeOnChange, 'ComboSelected'); 

  testEdit = anaForm.AddNewEdit(CardInputs, 'testEdit', 'Bir şeyler yazın...');

  

  

  testEdit.TextSettings.Font.Size = 15; 

  testEdit.Align = alTop; testEdit.Height = 45; testEdit.Margins.Left = 12; testEdit.Margins.Right = 12; testEdit.Margins.Top = 12;

  

  

  CardBtn = anaForm.AddNewProPanel(MainScroll, 'CardBtn');

  CardBtn.Align = alTop; CardBtn.Height = 70; CardBtn.Margins.Top = 15; CardBtn.Margins.Left = 16; CardBtn.Margins.Right = 16;

  CardBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1E293B');

  CardBtn.clProSettings.RoundHeight = 12; CardBtn.clProSettings.RoundWidth = 12; CardBtn.clProSettings.IsFill = True;

  CardBtn.SetclProSettings(CardBtn.clProSettings);

  

  testBtn = anaForm.AddNewProButton(CardBtn, 'TestBtn', 'Tıkla & Mesaj Göster');

  testBtn.Align = alClient; testBtn.Margins.Left = 12; testBtn.Margins.Right = 12; testBtn.Margins.Top = 10; testBtn.Margins.Bottom = 10;

  testBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#6366F1');

  testBtn.clProSettings.FontColor = clAlphaColor.clWhite;

  testBtn.clProSettings.FontSize = 14;

  testBtn.clProSettings.RoundHeight = 8; testBtn.clProSettings.RoundWidth = 8; testBtn.clProSettings.IsFill = True;

  testBtn.SetclProSettings(testBtn.clProSettings);

  anaForm.AddNewEvent(testBtn, tbeOnClick, 'OnClickmessage');

  

  CardHorz = anaForm.AddNewProPanel(MainScroll, 'CardHorz');

  CardHorz.Align = alTop; CardHorz.Height = 105; CardHorz.Margins.Top = 15; CardHorz.Margins.Left = 16; CardHorz.Margins.Right = 16;

  CardHorz.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1E293B');

  CardHorz.clProSettings.RoundHeight = 12; CardHorz.clProSettings.RoundWidth = 12; CardHorz.clProSettings.IsFill = True;

  CardHorz.SetclProSettings(CardHorz.clProSettings);

  

  LblHorzTitle = anaForm.AddNewProLabel(CardHorz, 'LblHorzTitle', 'YATAY YÖNLENDİRME (X)');

  LblHorzTitle.Align = alTop; LblHorzTitle.Height = 24; LblHorzTitle.Margins.Left = 12; LblHorzTitle.Margins.Top = 8;

  LblHorzTitle.clProSettings.FontColor = clAlphaColor.clHexToColor('#6366F1'); LblHorzTitle.clProSettings.FontSize = 12; LblHorzTitle.clProSettings.TextSettings.Font.Style = [fsBold];

  LblHorzTitle.SetclProSettings(LblHorzTitle.clProSettings);

  

  horizontalscrolllbox = anaForm.AddNewHorzScrollBox(CardHorz, 'ScrollBoxX');

  horizontalscrolllbox.Align = alClient; horizontalscrolllbox.Margins.Left = 8; horizontalscrolllbox.Margins.Right = 8; horizontalscrolllbox.Margins.Bottom = 8;

  for (counter = 1 to 15)

  {

    testButtonX = anaForm.AddNewButton(horizontalscrolllbox, 'testButtonX' + IntToStr(counter), 'Btn X' + IntToStr(counter));

    testButtonX.Align = alLeft; testButtonX.Width = 80; testButtonX.Margins.Right = 6;

    testButtonX.StyledSettings = ssFamily;

    testButtonX.TextSettings.FontColor = clAlphaColor.clHexToColor('#2C867C');

  }

  

  CardVert = anaForm.AddNewProPanel(MainScroll, 'CardVert');

  CardVert.Align = alTop; CardVert.Height = 230; CardVert.Margins.Top = 15; CardVert.Margins.Left = 16; CardVert.Margins.Right = 16;

  CardVert.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1E293B');

  CardVert.clProSettings.RoundHeight = 12; CardVert.clProSettings.RoundWidth = 12; CardVert.clProSettings.IsFill = True;

  CardVert.SetclProSettings(CardVert.clProSettings);

  

  LblVertTitle = anaForm.AddNewProLabel(CardVert, 'LblVertTitle', 'DİKEY YÖNLENDİRME (Y)');

  LblVertTitle.Align = alTop; LblVertTitle.Height = 24; LblVertTitle.Margins.Left = 12; LblVertTitle.Margins.Top = 8;

  LblVertTitle.clProSettings.FontColor = clAlphaColor.clHexToColor('#6366F1'); LblVertTitle.clProSettings.FontSize = 12; LblVertTitle.clProSettings.TextSettings.Font.Style = [fsBold];

  LblVertTitle.SetclProSettings(LblVertTitle.clProSettings);

  

  verticalscrollbox = anaForm.AddNewVertScrollBox(CardVert, 'ScrollBoxY');

  verticalscrollbox.Align = alClient; verticalscrollbox.Margins.Left = 8; verticalscrollbox.Margins.Right = 8; verticalscrollbox.Margins.Bottom = 8;

  for (counter = 1 to 15)

  {

    testButtonY = anaForm.AddNewButton(verticalscrollbox, 'testButtonY' + IntToStr(counter), 'Buton Y' + IntToStr(counter));

    testButtonY.Align = alTop; testButtonY.Height = 40; testButtonY.Margins.Bottom = 6;

    testButtonY.StyledSettings = ssFamily;

    testButtonY.TextSettings.FontColor = clAlphaColor.clHexToColor('#A78BFA');

  }

  CardList = anaForm.AddNewProPanel(MainScroll, 'CardList');

  CardList.Align = alTop; CardList.Height = 210; CardList.Margins.Top = 15; CardList.Margins.Bottom = 20; CardList.Margins.Left = 16; CardList.Margins.Right = 16;

  CardList.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1E293B');

  CardList.clProSettings.RoundHeight = 12; CardList.clProSettings.RoundWidth = 12; CardList.clProSettings.IsFill = True;

  CardList.SetclProSettings(CardList.clProSettings);

  

  LblListTitle = anaForm.AddNewProLabel(CardList, 'LblListTitle', 'VERİ LİSTESİ (JSON)');

  LblListTitle.Align = alTop; LblListTitle.Height = 24; LblListTitle.Margins.Left = 12; LblListTitle.Margins.Top = 8;

  LblListTitle.clProSettings.FontColor = clAlphaColor.clHexToColor('#6366F1'); LblListTitle.clProSettings.FontSize = 12; LblListTitle.clProSettings.TextSettings.Font.Style = [fsBold];

  LblListTitle.SetclProSettings(LblListTitle.clProSettings);

  

  testListView = anaForm.AddNewListView(CardList, 'testListView');

  testListView.Align = alClient; testListView.Margins.Left = 8; testListView.Margins.Right = 8; testListView.Margins.Bottom = 8;

  testListView.clLoadListViewDataFromDataset(Clomosy.ClDataSetFromJSON('[{"RECORD_GUID":"AAAAAA","MAIN_TEXT":"Hello World","SUB_TEXT":5,"SIDE_TEXT_TOP":1,"SIDE_TEXT_CENTER":1,"SIDE_TEXT_BOTTOM":1,"FOOTER_TEXT":1},{"RECORD_GUID":"BBBBBB","MAIN_TEXT":"Hi World","SUB_TEXT":1,"SIDE_TEXT_TOP":1,"SIDE_TEXT_CENTER":1,"SIDE_TEXT_BOTTOM":1,"FOOTER_TEXT":1}]'));

  testListView.CheckedProperty = True;

  

  

  anaForm.Run;

}

var 

anaForm : TCLForm;

testBtn:TCLProButton;

testCheckBox,testCheckBox2 : TClCheckBox;

testCombo : TClComboBox;

testEdit : TclEdit;

testButtonX,testButtonY:TCLButton;

counter:Integer;

horizontalscrolllbox:TCLHorzScrollBox;

verticalscrollbox:TCLVertScrollBox;

testListView:TCLListView;

 void ButtonClicked;

 {

   testCheckBox.isChecked = not testCheckBox.isChecked;

   testCheckBox2.isChecked = not testCheckBox2.isChecked;

 }

 

  void ComboSelected;

 var

   strValue,strKey,strKey2 : String;

 {

   strValue = testCombo.GetValueIndex(testCombo.ItemIndex);

   strKey = testCombo.GetItemIndex(testCombo.ItemIndex);

   strKey2 = testCombo.Items[testCombo.ItemIndex];

   ShowMessage('strValue : '+strValue); //value1

   ShowMessage('strKey : '+strKey); //key

   ShowMessage('strKey2 : '+strKey2); //key

   ShowMessage('testCombo.ItemIndex : '+IntToStr(testCombo.ItemIndex)); //index 

 }

 

 void OnClickmessage;

 {

   ShowMessage('My first  button demo on clomosy');

 }

{

  anaForm=TCLForm.create(self);

  

  

  

  

  testCheckBox = anaForm.AddNewCheckBox(anaForm,'testCheckBox','Reading book');

  testCheckBox.StyledSettings = ssFamily;

  testCheckBox.TextSettings.Font.Size=15;

  testCheckBox.TextSettings.FontColor = clAlphaColor.clHexToColor('#272643');

  testCheckBox.Align = alTop;

  testCheckBox.Height = 30;

   

  testCheckBox2 = anaForm.AddNewCheckBox(anaForm,'testCheckBox2','Watching movie');

  testCheckBox2.StyledSettings = ssFamily;

  testCheckBox2.TextSettings.Font.Size=15;

  testCheckBox2.TextSettings.FontColor = clAlphaColor.clHexToColor('#272643');

  testCheckBox2.Align = alTop;

  testCheckBox2.Height = 30;

  

  

  testCombo = anaForm.AddNewComboBox(anaForm,'testCombo');

 testCombo.Align = alTop;

 testCombo.Width = 150;

 testCombo.Margins.Top=10;

 testCombo.Margins.Left =50;

 testCombo.Margins.Right =50;

 testCombo.AddItem('Monday','01');

 testCombo.AddItem('Tuesday','02');

 testCombo.AddItem('Wednesday','03');

 testCombo.AddItem('Thursday','04');

 testCombo.AddItem('Friday','05');

 testCombo.AddItem('Saturday','06');

 testCombo.AddItem('Sunday','07');

 

 testEdit= anaForm.AddNewEdit(anaForm,'testEdit','Write something');

 testEdit.TextSettings.Font.Size=70;

 testEdit.Align = alTop;

 testEdit.Margins.Top= 10; 

 testEdit.Height = 50;

 

 

 testBtn=anaForm.AddNewProButton(anaForm,'TestBtn', 'Tikla');

  testBtn.Align = alCenter;

  testBtn.Height = 50;

  testBtn.Width = 100;

  testBtn.clProSettings.BackgroundColor= clAlphaColor.clHextoColor ('#c02121');

  testBtn.SetclProSettings(testBtn.clProSettings)

  anaForm.AddNewEvent(testBtn,tbeOnClick,'OnClickmessage');

 

 horizontalscrolllbox=anaForm.AddNewHorzScrollBox(anaForm,'ScrollBoxX');

 horizontalscrolllbox.Align=alMostTop;

 horizontalscrolllbox.Height=50

 

 verticalscrollbox=anaForm.AddNewVertScrollBox(anaForm,'ScrollBoxY');

 verticalscrollbox.Align=alMostTop;

 verticalscrollbox.Height=150

 

 for (counter=1 to 15)

 {

   testButtonX=anaForm.AddNewButton(horizontalscrolllbox,'testButtonX'+IntToStr(counter), 'ButtonX'+IntToStr(counter));

   testButtonX.Align=alLeft;

   testButtonX.Height=50;

   testButtonX.StyledSettings=ssFamily;

   testButtonX.TextSettings.FontColor=clAlphaColor.clHexToColor('#2c867c')

 }

 for (counter=1 to 15)

 {

   testButtonY=anaForm.AddNewButton(verticalscrollbox,'testButtonY'+IntToStr(counter), 'testButtonY'+IntToStr(counter));

   testButtonY.Align=alTop;

   testButtonY.Height=50;

   testButtonY.StyledSettings=ssFamily;

   testButtonY.TextSettings.FontColor=clAlphaColor.clHexToColor('#8a067c')

 }

 

 

  testListView = anaForm.AddNewListView(anaForm,'testListView');

  testListView.Align = alBottom;

  testListView.Height=160

  testListView.clLoadListViewDataFromDataset(Clomosy.ClDataSetFromJSON('[

  {"RECORD_GUID":"AAAAAA","MAIN_TEXT":"Hello World","SUB_TEXT":5,"SIDE_TEXT_TOP":1,"SIDE_TEXT_CENTER":1,"SIDE_TEXT_BOTTOM":1,"FOOTER_TEXT":1},

  {"RECORD_GUID":"BBBBBB","MAIN_TEXT":"Hi World","SUB_TEXT":1,"SIDE_TEXT_TOP":1,"SIDE_TEXT_CENTER":1,"SIDE_TEXT_BOTTOM":1,"FOOTER_TEXT":1}]'));

  testListView.CheckedProperty = True; //It must be enabled if a CheckBox is to be used within the ListView.

  anaForm.Run;

}

Testbtn testdt bileşenin altında yer alman yeterli

//ShowMessage('Hello world');

//Degisken deger atma

/*var

  sayi: Integer;

  {

    sayi=10;

    ShowMessage(sayi);

  }

*/

/*var 

sayi1,sayi2:Integer;

{

  sayi1=50;

  sayi2=60;

  ShowMessage(sayi2+sayi1);

}*/

/*var 

i:Integer

{

  for(i=1 to 7)

  ShowMessage(i*2)

}*/

/*var 

i,fac:Integer;

{

  fac=1;

  for(i=1 to 7)

  {

    fac=fac*i;

  }

  ShowMessage(fac);

}*/

/*const 

pi=3;

function yaricapi(r:Integer):Integer

{

  Result=((r*r)*pi)

}

{

  ShowMessage(yaricapi(5));

}*/

var 

anaForm : TCLForm;

testBtn:TCLProButton;

testCheckBox,testCheckBox2 : TClCheckBox;

testCombo : TClComboBox;

testEdit : TclEdit;

testButtonX,testButtonY:TCLButton;

counter:Integer;

horizontalscrolllbox:TCLHorzScrollBox;

verticalscrollbox:TCLVertScrollBox;

testListView:TCLListView;

 void ButtonClicked;

 {

   testCheckBox.isChecked = not testCheckBox.isChecked;

   testCheckBox2.isChecked = not testCheckBox2.isChecked;

 }

 

  void ComboSelected;

 var

   strValue,strKey,strKey2 : String;

 {

   strValue = testCombo.GetValueIndex(testCombo.ItemIndex);

   strKey = testCombo.GetItemIndex(testCombo.ItemIndex);

   strKey2 = testCombo.Items[testCombo.ItemIndex];

   ShowMessage('strValue : '+strValue); //value1

   ShowMessage('strKey : '+strKey); //key

   ShowMessage('strKey2 : '+strKey2); //key

   ShowMessage('testCombo.ItemIndex : '+IntToStr(testCombo.ItemIndex)); //index 

 }

 

 void OnClickmessage;

 {

   ShowMessage('My first  button demo on clomosy');

 }

{

  anaForm=TCLForm.create(self);

  testBtn=anaForm.AddNewProButton(anaForm,'TestBtn', 'Tikla');

  testBtn.Align = alCenter;

  testBtn.Height = 50;

  testBtn.Width = 100;

  testBtn.clProSettings.BackgroundColor= clAlphaColor.clHextoColor ('#c02121');

  anaForm.AddNewEvent(testBtn,tbeOnClick,'OnClickmessage');

  

  testBtn.SetclProSettings(testBtn.clProSettings)

  

  testCheckBox = anaForm.AddNewCheckBox(anaForm,'testCheckBox','Reading book');

  testCheckBox.StyledSettings = ssFamily;

  testCheckBox.TextSettings.Font.Size=15;

  testCheckBox.TextSettings.FontColor = clAlphaColor.clHexToColor('#272643');

  testCheckBox.Align = alTop;

  testCheckBox.Height = 30;

   

  testCheckBox2 = anaForm.AddNewCheckBox(anaForm,'testCheckBox2','Watching movie');

  testCheckBox2.StyledSettings = ssFamily;

  testCheckBox2.TextSettings.Font.Size=15;

  testCheckBox2.TextSettings.FontColor = clAlphaColor.clHexToColor('#272643');

  testCheckBox2.Align = alTop;

  testCheckBox2.Height = 30;

  

  

  testCombo = anaForm.AddNewComboBox(anaForm,'testCombo');

 testCombo.Align = alTop;

 testCombo.Width = 150;

 testCombo.Margins.Top=10;

 testCombo.Margins.Left =50;

 testCombo.Margins.Right =50;

 testCombo.AddItem('Monday','01');

 testCombo.AddItem('Tuesday','02');

 testCombo.AddItem('Wednesday','03');

 testCombo.AddItem('Thursday','04');

 testCombo.AddItem('Friday','05');

 testCombo.AddItem('Saturday','06');

 testCombo.AddItem('Sunday','07');

 

 testEdit= anaForm.AddNewEdit(anaForm,'testEdit','Write something');

 testEdit.TextSettings.Font.Size=70;

 testEdit.Align = alTop;

 testEdit.Margins.Top= 10; 

 testEdit.Height = 50;

 

 horizontalscrolllbox=anaForm.AddNewHorzScrollBox(anaForm,'ScrollBoxX');

 horizontalscrolllbox.Align=alMostTop;

 horizontalscrolllbox.Height=50

 

 verticalscrollbox=anaForm.AddNewVertScrollBox(anaForm,'ScrollBoxY');

 verticalscrollbox.Align=alMostTop;

 verticalscrollbox.Height=150

 

 for (counter=1 to 15)

 {

   testButtonX=anaForm.AddNewButton(horizontalscrolllbox,'testButtonX'+IntToStr(counter), 'ButtonX'+IntToStr(counter));

   testButtonX.Align=alLeft;

   testButtonX.Height=50;

   testButtonX.StyledSettings=ssFamily;

   testButtonX.TextSettings.FontColor=clAlphaColor.clHexToColor('#2c867c')

 }

 for (counter=1 to 15)

 {

   testButtonY=anaForm.AddNewButton(verticalscrollbox,'testButtonY'+IntToStr(counter), 'testButtonY'+IntToStr(counter));

   testButtonY.Align=alTop;

   testButtonY.Height=50;

   testButtonY.StyledSettings=ssFamily;

   testButtonY.TextSettings.FontColor=clAlphaColor.clHexToColor('#8a067c')

 }

 

 

  testListView = anaForm.AddNewListView(anaForm,'testListView');

  testListView.Align = alClient;

  testListView.clLoadListViewDataFromDataset(Clomosy.ClDataSetFromJSON('[

  {"RECORD_GUID":"AAAAAA","MAIN_TEXT":"Hello World","SUB_TEXT":5,"SIDE_TEXT_TOP":1,"SIDE_TEXT_CENTER":1,"SIDE_TEXT_BOTTOM":1,"FOOTER_TEXT":1},

  {"RECORD_GUID":"BBBBBB","MAIN_TEXT":"Hi World","SUB_TEXT":1,"SIDE_TEXT_TOP":1,"SIDE_TEXT_CENTER":1,"SIDE_TEXT_BOTTOM":1,"FOOTER_TEXT":1}]'));

  testListView.CheckedProperty = True; //It must be enabled if a CheckBox is to be used within the ListView.

  

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

  anaForm.Run;

}