//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(MyForm,'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;

}