uses uUrunEkle;

var

  anaForm: TclForm;

  searchEdit: TclProEdit;

  listView: TclProListView;

  bottomPanel: TclProPanel;

  newScreenButton: TclProButton;

  topLabel: TclLabel;

  selectQuery: TclSqlQuery;

  

 

void OnUrunEkleClick;

{

  Clomosy.RunUnit('uUrunEkle');

}

void AddDataToListview;

{

  try

    selectQuery.SQL.Text = 'SELECT ProductName AS MAIN_TEXT, ProductCode AS SUB_TEXT FROM Urunler';

    selectQuery.Open;

    if (selectQuery.Found)

    {

      listView.clLoadProListViewDataFromDataset(selectQuery);

    }

    else

    {

      ShowMessage('Kayıt bulunamadı!');

    }

  finally

    selectQuery.Free;

    selectQuery.Close;

    }

}

{

  anaForm = TclForm.Create(Self);

  

  

  

  

  searchEdit = anaForm.AddNewProEdit(anaForm, 'searchEdit', 'ara..');

  searchEdit.Align = alTop;

  searchEdit.Height = 50;

  searchEdit.Margins.Top = 10;

  searchEdit.Margins.Left = 10;

  searchEdit.Margins.Right = 10;

  searchEdit.clProSettings.FontSize = 16;

  searchEdit.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#ffffff');

  searchEdit.clProSettings.BorderWidth = 2;

  searchEdit.clProSettings.BorderColor = clAlphaColor.clHexToColor('#e7e9ee');

  searchEdit.clProSettings.IsRound = True;

  searchEdit.clProSettings.roundHeight = 10;

  searchEdit.clProSettings.roundWidth = 10;

  searchEdit.SetclProSettings(searchEdit.clProSettings);

 

 

 

  listView = anaForm.AddNewProListView(anaForm, 'listView');

  listView.Align = alClient; // Ekranın kalanını kaplasın

  listView.Margins.Top = 10;

  listView.Margins.Bottom = 10;

  listView.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#f0f0f0');

  listView.clProSettings.BorderWidth = 1;

  listView.clProSettings.BorderColor = clAlphaColor.clHexToColor('#e7e9ee');

  listView.SetclProSettings(listView.clProSettings);

 

 

 

  bottomPanel = anaForm.AddNewProPanel(anaForm, 'bottomPanel');

  bottomPanel.Align = alBottom;

  bottomPanel.Height= 70;

  bottomPanel.Margins.Bottom = 10;

  bottomPanel.Margins.Left = 10;

  bottomPanel.Margins.Right = 10;

  bottomPanel.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#ffffff');

  //bottomPanel.clProSettings.BorderWidth = 2;

 // bottomPanel.clProSettings.BorderColor = clAlphaColor.clHexToColor('#db2726');

  bottomPanel.clProSettings.IsRound = True;

  bottomPanel.clProSettings.roundHeight = 10;

  bottomPanel.clProSettings.roundWidth = 10;

  bottomPanel.SetclProSettings(bottomPanel.clProSettings);

 

 

  newScreenButton = anaForm.AddNewProButton(bottomPanel, 'newScreenButton', '+ Yeni Ürün Ekle');

  newScreenButton.Align= alClient; // Panel içinde ortalasın

  newScreenButton.Margins.Left = 10;

  newScreenButton.Margins.Right = 10;

  newScreenButton.Margins.Top = 10;

  newScreenButton.Margins.Bottom = 10;

  newScreenButton.clProSettings.FontSize = 17;

  newScreenButton.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');

  newScreenButton.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#334255');

  newScreenButton.clProSettings.BorderWidth = 4;

  newScreenButton.clProSettings.BorderColor = clAlphaColor.clHexToColor('#334255');

  newScreenButton.clProSettings.IsRound = True;

  newScreenButton.clProSettings.roundHeight = 5;

  newScreenButton.clProSettings.roundWidth = 5;

  newScreenButton.SetclProSettings(newScreenButton.clProSettings);

  anaForm.AddNewEvent(newScreenButton,tbeOnClick,'OnUrunEkleClick');

  

  

  selectQuery = TclSqlQuery.Create(nil);

  Clomosy.DBSQLServerConnect('SQL Server', '192.168.0.106', 'sa', '123456', 'clomosyDB',1433);

  selectQuery.Connection = Clomosy.DBSQLServerConnection;

  

  AddDataToListview;

  

  anaForm.Run;

 }