Genel İşlemler - tikla button view list ustune geliyor

Sayfayı Yazdır | Pencereyi Kapat

tikla button view list ustune geliyor

Nereden Yazdırıldığı: Clomosy | Forum
Kategori: Genel Programlama
Forum Adı: Genel İşlemler
Forum Tanımlaması: TRObject dili ile programlama yaparken karşılaşılan genel işlemler
URL: https://forum.clomosy.com.tr/forum_posts.asp?TID=1597
Tarih: 07 Temmuz 2026 Saat 14:42
Program Versiyonu: Web Wiz Forums 12.07 - https://www.webwizforums.com

Konu: tikla button view list ustune geliyor

Mesajı Yazan: Barthe_dev
Konu: tikla button view list ustune geliyor
Mesaj Tarihi: 07 Temmuz 2026 Saat 11:23

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

}

https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" rel="nofollow - https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">

Cevaplar:

Mesajı Yazan: Emr.Erkmn
Mesaj Tarihi: 07 Temmuz 2026 Saat 11:32

Merhaba düzelmiş kod

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

Mesajı Yazan: Emr.Erkmn
Mesaj Tarihi: 07 Temmuz 2026 Saat 11:36

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;

}