// Unit'leri başlat

  UnitDepo = TclUnit.Create(Self);

  UnitSatis = TclUnit.Create(Self);

  UnitCari = TclUnit.Create(Self);

  UnitWeb = TclUnit.Create(Self);  

var

  MainForm: TclForm;

  btnAraclar, btnStok, btnSatis, btnCari, btnWeb, btnCikis: TclProButton;

  lblTitle: TclProLabel;

  ButonPnl : TclProPanel

  UnitDepo: TclUnit;

  UnitSatis: TclUnit;

  UnitCari: TclUnit;

  UnitWeb: TclUnit;

void btnAraclarClick;

{

UnitDepo.CallerForm = MainForm;

 clomosy.RunUnit('UnitDepo');

}

void btnStokClick;

{

  UnitDepo.UnitName = 'UnitDepo';

  UnitDepo.CallerForm = MainForm;

  UnitDepo.Run;

}

void btnSatisClick;

{

  UnitSatis.UnitName = 'UnitSatis';

  UnitSatis.CallerForm = MainForm;

  UnitSatis.Run;

}

void btnCariClick;

{

  UnitCari.UnitName = 'UnitCari';

  UnitCari.CallerForm = MainForm;

  UnitCari.Run;

}

void btnWebClick;

{

  UnitWeb.UnitName = 'UnitWeb';

  UnitWeb.CallerForm = MainForm;

  UnitWeb.Run;

}

void btnCikisClick;

{

  MainForm.Close;

}

void AppStart;

{

  MainForm = TclForm.Create(Self);

  lblTitle = MainForm.AddNewProLabel(MainForm,'lblTitle','Araç Otomasyonu');

  lblTitle.Align = alTop;

  lblTitle.Width = 150;

  lblTitle.Height = 30;

  lblTitle.margins.left=50

  lblTitle.clProSettings.FontColor = clAlphaColor.clHexToColor('#f5428d');

  lblTitle.clProSettings.FontSize = 18;

  lblTitle.clProSettings.FontVertAlign = palcenter;

  lblTitle.clProSettings.FontHorzAlign = palLeading;

  lblTitle.clProSettings.TextSettings.Font.Style = [fsBold];

  lblTitle.clProSettings.IsFill = True; 

  lblTitle.clProSettings.IsRound = True;

  lblTitle.SetclProSettings(lblTitle.clProSettings);

  ButonPnl=MainForm.AddNewProPanel(MainForm,'ButonPnl');

  ButonPnl.Align = alCenter;

  ButonPnl.Width = 300;

  ButonPnl.Height = 300;

  ButonPnl.clProSettings.BorderColor = clAlphaColor.clHexToColor('#fabd2');

  ButonPnl.clProSettings.RoundHeight = 10;

  ButonPnl.clProSettings.RoundWidth = 10;

  ButonPnl.clProSettings.BorderWidth = 2;

  ButonPnl.clProSettings.IsFill = True; 

  ButonPnl.clProSettings.IsRound = True;

  ButonPnl.SetclProSettings(ButonPnl.clProSettings);

  btnAraclar = MainForm.AddNewProButton(ButonPnl,'btnAraclar','Arac Parcaları');

  btnAraclar.Align = alTop;

  btnAraclar.Width = 150;

  btnAraclar.Height = 70;

  btnAraclar.clProSettings.FontColor = clAlphaColor.clDarkorchid;

  btnAraclar.clProSettings.FontSize = 12;

  btnAraclar.clProSettings.FontVertAlign = palcenter;//palLeading , palCenter , palTrailing

  btnAraclar.clProSettings.FontHorzAlign = palCenter;

  btnAraclar.clProSettings.TextSettings.Font.Style = [fsBold,fsItalic];

  btnAraclar.clProSettings.IsFill = True; 

  btnAraclar.clProSettings.PictureSource = 'https://clomosy.com/demos/foodInformationBox.png';

  btnAraclar.SetclProSettings(btnAraclar.clProSettings);

  MainForm.AddNewEvent(btnAraclar, tbeOnClick, 'btnAraclarClick');

  btnStok = MainForm.AddNewProButton(ButonPnl,'btnStok','Stok');

  btnStok.Align = alTop;

  btnStok.Width = 150;

  btnStok.Height = 70;

  btnStok.clProSettings.FontColor = clAlphaColor.clDarkorchid;

  btnStok.clProSettings.FontSize = 12;

  btnStok.clProSettings.FontVertAlign = palcenter;//palLeading , palCenter , palTrailing

  btnStok.clProSettings.FontHorzAlign = palCenter;

  btnStok.clProSettings.TextSettings.Font.Style = [fsBold,fsItalic];

  btnStok.clProSettings.IsFill = True; 

  btnStok.clProSettings.PictureSource = 'https://clomosy.com/demos/foodInformationBox.png';

  btnStok.SetclProSettings(btnStok.clProSettings);

  MainForm.AddNewEvent(btnStok, tbeOnClick, 'btnStokClick');

  

  

  

  btnSatis = MainForm.AddNewProButton(ButonPnl,'btnSatis','Satış');

  btnSatis.Align = alTop;

  btnSatis.Width = 150;

  btnSatis.Height = 70;

  btnSatis.clProSettings.FontColor = clAlphaColor.clDarkorchid;

  btnSatis.clProSettings.FontSize = 12;

  btnSatis.clProSettings.FontVertAlign = palcenter;//palLeading , palCenter , palTrailing

  btnSatis.clProSettings.FontHorzAlign = palCenter;

  btnSatis.clProSettings.TextSettings.Font.Style = [fsBold,fsItalic];

  btnSatis.clProSettings.IsFill = True; 

  btnSatis.clProSettings.PictureSource = 'https://clomosy.com/demos/foodInformationBox.png';

  btnSatis.SetclProSettings(btnSatis.clProSettings);

  MainForm.AddNewEvent(btnSatis, tbeOnClick, 'btnSatisClick');

  

  

  

  

  btnCari = MainForm.AddNewProButton(ButonPnl,'btnCari','Cari');

  btnCari.Align = alTop;

  btnCari.Width = 150;

  btnCari.Height = 70;

  btnCari.clProSettings.FontColor = clAlphaColor.clDarkorchid;

  btnCari.clProSettings.FontSize = 12;

  btnCari.clProSettings.FontVertAlign = palcenter;//palLeading , palCenter , palTrailing

  btnCari.clProSettings.FontHorzAlign = palCenter;

  btnCari.clProSettings.TextSettings.Font.Style = [fsBold,fsItalic];

  btnCari.clProSettings.IsFill = True; 

  btnCari.clProSettings.PictureSource = 'https://clomosy.com/demos/foodInformationBox.png';

  btnCari.SetclProSettings(btnCari.clProSettings);

  MainForm.AddNewEvent(btnCari, tbeOnClick, 'btnCariClick');

  

  

/*

  btnWeb = MainForm.AddNewProButton(MainForm, 'btnWeb', 'Web Sitesi');

  btnWeb.SetBounds(10, 250, 200, 40);

  MainForm.AddNewEvent(btnWeb, tbeOnClick, 'btnWebClick');

  btnCikis = MainForm.AddNewProButton(MainForm, 'btnCikis', 'Çıkış');

  btnCikis.SetBounds(10, 300, 200, 40);

  MainForm.AddNewEvent(btnCikis, tbeOnClick, 'btnCikisClick');

*/

  MainForm.Run;

}

AppStart;