var

  MyForm : TclStyleForm;

  BtnRunUnitSample, BtnCustomUnitSample, BtnClickFromUnit : TclButton;

  MyUnit2 :TclUnit;

  testPanelRow : TclPanel;

  GBtn:TClProButton;

  GorevAlUnit :TclUnit;

  testListview : TClListView;

  selectQuery:TclSqlQuery;

  

  

void AddDataToListview

{

  try

 {

  selectQuery.SQL.Text='SELECT Gorev_Baslik as MAIN_TEXT,Gorev as SUB_TEXT, Gorev_Tarih as Tarih FROM Gorevleriniz';

  selectQuery.Open;

  if(selectQuery.Found)

  {

    testListview.clloadListViewDataFormDataset(selectQuery);

    

  }

  else

  {

    ShowMessage('Kayıt Bulunamadı');

  }

}

  finally

  {

    selectQuery.Free;

    selectQuery.Close;

  }

}

 void BtnSimpleUnitSampleClick;

 {

 }

void BtnGorevler;

  {

    MyForm.clShow;

    GorevAlUnit.UnitName='GorevAlUnit';

    GorevAlUnit.CallerForm=MyForm;

    GorevAlUnit.run;

  }

 

 

 void BtnClickFromUnitClick;

 {

  ShowMessage('Call from Unit2 Form and value : '+BtnClickFromUnit.Hint);

 }

 

 {

 

  MyForm = TclStyleForm.Create(Self);

  GorevAlUnit = TclUnit.Create;

  MyUnit2 = TclUnit.Create;

  MyForm.SetFormColor('#26118d','',clGNone);

 

  

  BtnRunUnitSample = MyForm.AddNewButton(MyForm,'BtnGorevler','Görevleri Getir');

  BtnRunUnitSample.Align = alMostTop;

  MyForm.AddNewEvent(BtnRunUnitSample,tbeOnClick,'BtnSimpleUnitSampleClick');

 

   testPanelRow = MyForm.AddNewPanel(MyForm,'testPanelRow','');

   testPanelRow.Align = alTop;

   testPanelRow.Height = 50;

   testPanelRow.Margins.Left = 5;

   testPanelRow.Margins.Right = 5;

  

   GBtn= MyForm.AddNewProButton(testPanelRow,'GBtn','');

   clComponent.SetupComponent(GBtn,'{"Align" : "Top","MarginsLeft":250,"MarginsBottom":135

   ,"Width" :70,

   "Height":50}');

   MyForm.SetImage(GBtn,'https://cdn-icons-png.freepik.com/512/5561/5561361.png');

   MyForm.AddNewEvent(GBtn,tbeOnClick,'BtnGorevler');

   

  testListview=MyForm.AddNewListView(MyForm,'testListview');

  testListview.Align=alBottom;

  selectQuery=TclSqlQuery.Create(nil);

  Clomosy.DBSQLServerConnect('SQL Server', 'BOYRAZ', 'gclomosy', '123456', 'Clomosy',1433);

  selectQueryQuery.Connection=Clomosy.DBSQLServerConnection;

   

   

   

  

AddDataToListview;

  MyForm.Run;

 }

var

  MyForm:TCLForm;

  a;

  void CallTest;

  {

    try

      ShowMessage('beforeFINALLY');

      try

          ShowMessage('beforeEXCEPT');

          a = 55.57;

          ShowMessage('Error Sure Line :'+a);

      except

        ShowMessage('inEXCEPT');

      }

        ShowMessage('afterEXCEPT / beforeFINALLY');      

    finally

      ShowMessage('inFINALLY');

    }   

    ShowMessage('afterFINALLY');

  }

{

  MyForm = TCLForm.Create(Self);

  CallTest;

  MyForm.Run;

}