var

  salesForm : TclForm;

  myUnit : TclUnit;

  pnlRoleSelection, pnlLogin, pnlRegister, pnlComplain : TClProPanel;

  scrollRole, scrollLogin, scrollRegister, scrollComplain : TclVertScrollBox;

  selectedRole, currentUser : String;

  imgLogo : TClImage;

  lblRoleTitle, lblRoleSub, lblLoginTitle, lblUsername, lblPassword, lblDepot, lblRegisterTitle, lblRegUser, lblRegPass, lblRegEmail, lblRegPhone, lblComplainTitle, lblComplainName, lblComplainText : TClProLabel;

  btnAdminRole, btnSalesRole, btnCustomerRole, btnWarehouseRole, btnInspectorRole, btnFinanceRole, btnLogisticsRole, btnHRRole, btnGoComplain, btnShowPass, btnForgotPass, btnLogin, btnGoToRegister, btnLoginBack, btnRegisterSubmit, btnRegisterBack, btnComplainSubmit, btnComplainCancel : TClProButton;

  edtUsername, edtPassword, edtRegUser, edtRegPass, edtRegEmail, edtRegPhone, edtComplainName : TClProEdit;

  lytPassword : TclLayout;

  cmbDepot : TClComboBox;

  chkRememberMe : TClCheckBox;

  memComplainText : TclMemo;

void ShowScreen(screenName: String);

{

  pnlRoleSelection.Visible = False;

  pnlLogin.Visible = False;

  pnlRegister.Visible = False;

  pnlComplain.Visible = False;

  if (screenName == 'RoleSelection') pnlRoleSelection.Visible = True;

  else if (screenName == 'Login') pnlLogin.Visible = True;

  else if (screenName == 'Register') pnlRegister.Visible = True;

  else if (screenName == 'Complain') pnlComplain.Visible = True;

}

void TogglePassword;

{

  if (edtPassword.Password)

  {

    edtPassword.Password = False;

    btnShowPass.Caption = 'Gizle';

  }

  else

  {

    edtPassword.Password = True;

    btnShowPass.Caption = 'Goster';

  }

}

void OnForgotPassword;

{

  ShowMessage('Sifrenizi sifirlamak icin lutfen sistem yoneticinizle iletisime geciniz.');

}

void CheckRememberMe;

var

  lines : TclStringList;

  remUser : String;

  remRole : String;

{

  if (clFileExists('remember.txt', Clomosy.AppFilesPath))

  {

    lines = Clomosy.StringListNew;

    lines.LoadFromFile(Clomosy.AppFilesPath + 'remember.txt', 0);

    if (lines.Count >= 2)

    {

      remUser = Clomosy.StringListItemString(lines, 0);

      remRole = Clomosy.StringListItemString(lines, 1);

      if (selectedRole == remRole)

      {

        edtUsername.Text = remUser;

        chkRememberMe.IsChecked = True;

      }

      else

      {

        edtUsername.Text = '';

        chkRememberMe.IsChecked = False;

      }

    }

    lines.Free;

  }

  else

  {

    edtUsername.Text = '';

    chkRememberMe.IsChecked = False;

  }

}

void ShowLoginScreen;

{

  lblLoginTitle.Text = selectedRole + ' Girisi';

  edtPassword.Text = '';

  edtPassword.Password = True;

  btnShowPass.Caption = 'Goster';

  if (selectedRole == 'Musteri') btnGoToRegister.Visible = True;

  else btnGoToRegister.Visible = False;

  if (selectedRole == 'Depo ve Stok Sorumlusu')

  {

    lblDepot.Visible = True;

    cmbDepot.Visible = True;

  }

  else

  {

    lblDepot.Visible = False;

    cmbDepot.Visible = False;

  }

  CheckRememberMe;

  ShowScreen('Login');

}

void OnRoleSelectAdmin; { selectedRole = 'Yonetici (Admin)'; ShowLoginScreen; }

void OnRoleSelectSales; { selectedRole = 'Saha Satis Temsilcisi'; ShowLoginScreen; }

void OnRoleSelectCustomer; { selectedRole = 'Musteri'; ShowLoginScreen; }

void OnRoleSelectWarehouse; { selectedRole = 'Depo ve Stok Sorumlusu'; ShowLoginScreen; }

void OnRoleSelectInspector; { selectedRole = 'Saha Satis Mufettisi'; ShowLoginScreen; }

void OnRoleSelectFinance; { selectedRole = 'Muhasebe ve Finans Uzmani'; ShowLoginScreen; }

void OnRoleSelectLogistics; { selectedRole = 'Lojistik Yoneticisi'; ShowLoginScreen; }

void OnRoleSelectHR; { selectedRole = 'Insan Kaynaklari Uzmani'; ShowLoginScreen; }

void GoToRegister; { ShowScreen('Register'); }

void GoToRoleSelection; { ShowScreen('RoleSelection'); }

void GoToLogin; { ShowLoginScreen; }

void GoToComplain; { ShowScreen('Complain'); }

void DoSubmitComplain;

{

  if (memComplainText.Text == '')

  {

    ShowMessage('Lutfen iletmek istediginiz mesajinizi yaziniz!');

    exit;

  }

  ShowMessage('Tesekkurler. Mesajiniz Insan Kaynaklari departmanina iletilmistir.');

  edtComplainName.Text = '';

  memComplainText.Text = '';

  ShowScreen('RoleSelection');

}

Function IsUserExists(uName: String): Boolean;

var

  lines : TclStringList;

  i : Integer;

  line : String;

  usr : String;

  found : Boolean;

{

  found = False;

  lines = Clomosy.StringListNew;

  if (clFileExists('sales_users.txt', Clomosy.AppFilesPath))

  {

    lines.LoadFromFile(Clomosy.AppFilesPath + 'sales_users.txt', 0);

    for (i = 0 to lines.Count - 1)

    {

      line = Clomosy.StringListItemString(lines, i);

      usr = clGetStringTo(line, ';');

      if (usr == uName)

      {

        found = True;

        break;

      }

    }

  }

  lines.Free;

  Result = found;

}

Function ValidateUser(user, pass, role: String): Boolean;

var

  lines : TclStringList;

  i : Integer;

  line : String;

  rest : String;

  uN : String;

  uP : String;

  uR : String;

  found : Boolean;

{

  found = False;

  lines = Clomosy.StringListNew;

  if (clFileExists('sales_users.txt', Clomosy.AppFilesPath))

  {

    lines.LoadFromFile(Clomosy.AppFilesPath + 'sales_users.txt', 0);

    for (i = 0 to lines.Count - 1)

    {

      line = Clomosy.StringListItemString(lines, i);

      uN = clGetStringTo(line, ';');

      rest = clGetStringAfter(line, ';');

      uP = clGetStringTo(rest, ';');

      uR = clGetStringAfter(rest, ';');

      if ((uN == user) && (uP == pass) && (uR == role))

      {

        found = True;

        break;

      }

    }

  }

  else

  {

    if ((user == 'lura') && (pass == 'heumrage123') && (role == 'Yonetici (Admin)'))

      found = True;

  }

  lines.Free;

  Result = found;

}

void InitUserFile;

var

  lines : TclStringList;

{

  if (not clFileExists('sales_users.txt', Clomosy.AppFilesPath))

  {

    lines = Clomosy.StringListNew;

    lines.Add('lura;heumrage123;Yonetici (Admin)');

    lines.Add('satis;1234;Saha Satis Temsilcisi');

    lines.Add('mufettis;1234;Saha Satis Mufettisi');

    lines.Add('depo;1234;Depo ve Stok Sorumlusu');

    lines.Add('muhasebe;1234;Muhasebe ve Finans Uzmani');

    lines.Add('lojistik;1234;Lojistik Yoneticisi');

    lines.Add('ik;1234;Insan Kaynaklari Uzmani');

    lines.SaveToFile(Clomosy.AppFilesPath + 'sales_users.txt', 0);

    lines.Free;

  }

}

void DoLogin;

var

  uName : String;

  uPass : String;

  lines : TclStringList;

{

  uName = edtUsername.Text;

  uPass = edtPassword.Text;

  if ((uName == '') || (uPass == ''))

  {

    ShowMessage('Lutfen kullanici adi ve sifre giriniz!');

    exit;

  }

  if (selectedRole == 'Depo ve Stok Sorumlusu')

  {

    if (cmbDepot.Text == '')

    {

      ShowMessage('Lutfen gorevli oldugunuz depoyu seciniz!');

      exit;

    }

  }

  if (ValidateUser(uName, uPass, selectedRole))

  {

    currentUser = uName;

    Clomosy.GlobalVariableString = currentUser;

    lines = Clomosy.StringListNew;

    if (chkRememberMe.IsChecked)

    {

      lines.Add(uName);

      lines.Add(selectedRole);

    }

    else

    {

      lines.Add('');

      lines.Add('');

    }

    lines.SaveToFile(Clomosy.AppFilesPath + 'remember.txt', 0);

    lines.Free;

    ShowMessage('Giris Basarili! Hos geldiniz.');

    if (selectedRole == 'Yonetici (Admin)') myUnit.UnitName = 'uAdmin';

    else if (selectedRole == 'Saha Satis Temsilcisi') myUnit.UnitName = 'uSales';

    else if (selectedRole == 'Musteri') myUnit.UnitName = 'uCustomer';

    else if (selectedRole == 'Lojistik Yoneticisi') myUnit.UnitName = 'uLogistics';

    else if (selectedRole == 'Depo ve Stok Sorumlusu') myUnit.UnitName = 'uWarehouse';

    else if (selectedRole == 'Saha Satis Mufettisi') myUnit.UnitName = 'uInspector';

    else if (selectedRole == 'Muhasebe ve Finans Uzmani') myUnit.UnitName = 'uFinance';

    else if (selectedRole == 'Insan Kaynaklari Uzmani') myUnit.UnitName = 'uHR';

    myUnit.CallerForm = salesForm;

    myUnit.Run;

    }

  else

    ShowMessage('Hatali kullanici adi veya sifre!');

}

void DoRegister;

var

  uName : String;

  uPass : String;

  uEmail : String;

  lineText : String;

  lines : TclStringList;

{

  uName = edtRegUser.Text;

  uPass = edtRegPass.Text;

  uEmail = edtRegEmail.Text;

  if ((uName == '') || (uPass == ''))

  {

    ShowMessage('Kullanici adi ve Sifre bos birakilamaz!');

    exit;

  }

  if (Length(uPass) < 6)

  {

    ShowMessage('Sifreniz en az 6 karakter olmalidir!');

    exit;

  }

  if (IsUserExists(uName))

  {

    ShowMessage('Bu kullanici adi alinmis! Lutfen farkli seciniz.');

    exit;

  }

  lines = Clomosy.StringListNew;

  if (clFileExists('sales_users.txt', Clomosy.AppFilesPath))

    lines.LoadFromFile(Clomosy.AppFilesPath + 'sales_users.txt', 0);

  lineText = uName + ';' + uPass + ';Musteri';

  lines.Add(lineText);

  lines.SaveToFile(Clomosy.AppFilesPath + 'sales_users.txt', 0);

  lines.Free;

  ShowMessage('Hesap olusturuldu! Simdi giris yapabilirsiniz.');

  ShowLoginScreen;

}

void SetupRoleScreen;

{

  pnlRoleSelection = salesForm.AddNewProPanel(salesForm, 'pnlRoleSelection');

  pnlRoleSelection.Align = alClient;

  pnlRoleSelection.clProSettings.IsFill = True;

  pnlRoleSelection.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#100e17');

  pnlRoleSelection.SetclProSettings(pnlRoleSelection.clProSettings);

  

  scrollRole = salesForm.AddNewVertScrollBox(pnlRoleSelection, 'scrollRole');

  scrollRole.Align = alClient;

  

  imgLogo = salesForm.AddNewImage(scrollRole, 'imgLogo');

  imgLogo.Align = alTop;

  imgLogo.Height = 100;

  imgLogo.Margins.Top = 30;

  clComponent.SetupComponent(imgLogo, '{"ImgUrl":"https://clomosy.com/demos/food_logo.png", "ImgFit":"yes"}');

  

  lblRoleTitle = salesForm.AddNewProLabel(scrollRole, 'lblRoleTitle', 'SUT & YOGURT A.S.');

  lblRoleTitle.Align = alTop; lblRoleTitle.Margins.Top = 15; lblRoleTitle.Margins.Left = 20; lblRoleTitle.Margins.Right = 20;

  lblRoleTitle.Height = 35;

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

  lblRoleTitle.clProSettings.FontSize = 24;

  lblRoleTitle.SetclProSettings(lblRoleTitle.clProSettings);

  

  lblRoleSub = salesForm.AddNewProLabel(scrollRole, 'lblRoleSub', 'Giris yapmak icin rolunuzu seciniz:');

  lblRoleSub.Align = alTop; lblRoleSub.Margins.Top = 8; lblRoleSub.Margins.Left = 20; lblRoleSub.Margins.Right = 20;

  lblRoleSub.Height = 22;

  lblRoleSub.clProSettings.FontColor = clAlphaColor.clHexToColor('#8b858f');

  lblRoleSub.clProSettings.FontSize = 14;

  lblRoleSub.SetclProSettings(lblRoleSub.clProSettings);

  

  btnAdminRole = salesForm.AddNewProButton(scrollRole, 'btnAdminRole', 'Yonetici (Admin)');

  btnAdminRole.Align = alTop; btnAdminRole.Margins.Top = 20; btnAdminRole.Margins.Left = 20; btnAdminRole.Margins.Right = 20;

  btnAdminRole.Height = 45;

  btnAdminRole.clProSettings.IsFill = True; btnAdminRole.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#5a3d5c');

  btnAdminRole.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); btnAdminRole.clProSettings.FontSize = 15;

  btnAdminRole.clProSettings.IsRound = True; btnAdminRole.clProSettings.RoundWidth = 8; btnAdminRole.clProSettings.RoundHeight = 8;

  btnAdminRole.SetclProSettings(btnAdminRole.clProSettings);

  salesForm.AddNewEvent(btnAdminRole, tbeOnClick, 'OnRoleSelectAdmin');

  

  btnSalesRole = salesForm.AddNewProButton(scrollRole, 'btnSalesRole', 'Saha Satis Temsilcisi');

  btnSalesRole.Align = alTop; btnSalesRole.Margins.Top = 10; btnSalesRole.Margins.Left = 20; btnSalesRole.Margins.Right = 20;

  btnSalesRole.Height = 45;

  btnSalesRole.clProSettings.IsFill = True; btnSalesRole.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#3f5c8a');

  btnSalesRole.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); btnSalesRole.clProSettings.FontSize = 15;

  btnSalesRole.clProSettings.IsRound = True; btnSalesRole.clProSettings.RoundWidth = 8; btnSalesRole.clProSettings.RoundHeight = 8;

  btnSalesRole.SetclProSettings(btnSalesRole.clProSettings);

  salesForm.AddNewEvent(btnSalesRole, tbeOnClick, 'OnRoleSelectSales');

  

  btnCustomerRole = salesForm.AddNewProButton(scrollRole, 'btnCustomerRole', 'Musteri');

  btnCustomerRole.Align = alTop; btnCustomerRole.Margins.Top = 10; btnCustomerRole.Margins.Left = 20; btnCustomerRole.Margins.Right = 20;

  btnCustomerRole.Height = 45;

  btnCustomerRole.clProSettings.IsFill = True; btnCustomerRole.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#3c7a5c');

  btnCustomerRole.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); btnCustomerRole.clProSettings.FontSize = 15;

  btnCustomerRole.clProSettings.IsRound = True; btnCustomerRole.clProSettings.RoundWidth = 8; btnCustomerRole.clProSettings.RoundHeight = 8;

  btnCustomerRole.SetclProSettings(btnCustomerRole.clProSettings);

  salesForm.AddNewEvent(btnCustomerRole, tbeOnClick, 'OnRoleSelectCustomer');

  

  btnWarehouseRole = salesForm.AddNewProButton(scrollRole, 'btnWarehouseRole', 'Depo ve Stok Sorumlusu');

  btnWarehouseRole.Align = alTop; btnWarehouseRole.Margins.Top = 10; btnWarehouseRole.Margins.Left = 20; btnWarehouseRole.Margins.Right = 20;

  btnWarehouseRole.Height = 45;

  btnWarehouseRole.clProSettings.IsFill = True; btnWarehouseRole.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1c1c2e');

  btnWarehouseRole.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); btnWarehouseRole.clProSettings.FontSize = 15;

  btnWarehouseRole.clProSettings.IsRound = True; btnWarehouseRole.clProSettings.RoundWidth = 8; btnWarehouseRole.clProSettings.RoundHeight = 8;

  btnWarehouseRole.SetclProSettings(btnWarehouseRole.clProSettings);

  salesForm.AddNewEvent(btnWarehouseRole, tbeOnClick, 'OnRoleSelectWarehouse');

  

  btnInspectorRole = salesForm.AddNewProButton(scrollRole, 'btnInspectorRole', 'Saha Satis Mufettisi');

  btnInspectorRole.Align = alTop; btnInspectorRole.Margins.Top = 10; btnInspectorRole.Margins.Left = 20; btnInspectorRole.Margins.Right = 20;

  btnInspectorRole.Height = 45;

  btnInspectorRole.clProSettings.IsFill = True; btnInspectorRole.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1c1c2e');

  btnInspectorRole.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); btnInspectorRole.clProSettings.FontSize = 15;

  btnInspectorRole.clProSettings.IsRound = True; btnInspectorRole.clProSettings.RoundWidth = 8; btnInspectorRole.clProSettings.RoundHeight = 8;

  btnInspectorRole.SetclProSettings(btnInspectorRole.clProSettings);

  salesForm.AddNewEvent(btnInspectorRole, tbeOnClick, 'OnRoleSelectInspector');

  

  btnFinanceRole = salesForm.AddNewProButton(scrollRole, 'btnFinanceRole', 'Muhasebe ve Finans Uzmani');

  btnFinanceRole.Align = alTop; btnFinanceRole.Margins.Top = 10; btnFinanceRole.Margins.Left = 20; btnFinanceRole.Margins.Right = 20;

  btnFinanceRole.Height = 45;

  btnFinanceRole.clProSettings.IsFill = True; btnFinanceRole.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1c1c2e');

  btnFinanceRole.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); btnFinanceRole.clProSettings.FontSize = 15;

  btnFinanceRole.clProSettings.IsRound = True; btnFinanceRole.clProSettings.RoundWidth = 8; btnFinanceRole.clProSettings.RoundHeight = 8;

  btnFinanceRole.SetclProSettings(btnFinanceRole.clProSettings);

  salesForm.AddNewEvent(btnFinanceRole, tbeOnClick, 'OnRoleSelectFinance');

  

  btnLogisticsRole = salesForm.AddNewProButton(scrollRole, 'btnLogisticsRole', 'Lojistik Yoneticisi');

  btnLogisticsRole.Align = alTop; btnLogisticsRole.Margins.Top = 10; btnLogisticsRole.Margins.Left = 20; btnLogisticsRole.Margins.Right = 20;

  btnLogisticsRole.Height = 45;

  btnLogisticsRole.clProSettings.IsFill = True; btnLogisticsRole.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1c1c2e');

  btnLogisticsRole.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); btnLogisticsRole.clProSettings.FontSize = 15;

  btnLogisticsRole.clProSettings.IsRound = True; btnLogisticsRole.clProSettings.RoundWidth = 8; btnLogisticsRole.clProSettings.RoundHeight = 8;

  btnLogisticsRole.SetclProSettings(btnLogisticsRole.clProSettings);

  salesForm.AddNewEvent(btnLogisticsRole, tbeOnClick, 'OnRoleSelectLogistics');

  

  btnHRRole = salesForm.AddNewProButton(scrollRole, 'btnHRRole', 'Insan Kaynaklari Uzmani');

  btnHRRole.Align = alTop; btnHRRole.Margins.Top = 10; btnHRRole.Margins.Left = 20; btnHRRole.Margins.Right = 20;

  btnHRRole.Height = 45;

  btnHRRole.clProSettings.IsFill = True; btnHRRole.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1c1c2e');

  btnHRRole.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); btnHRRole.clProSettings.FontSize = 15;

  btnHRRole.clProSettings.IsRound = True; btnHRRole.clProSettings.RoundWidth = 8; btnHRRole.clProSettings.RoundHeight = 8;

  btnHRRole.SetclProSettings(btnHRRole.clProSettings);

  salesForm.AddNewEvent(btnHRRole, tbeOnClick, 'OnRoleSelectHR');

  

  btnGoComplain = salesForm.AddNewProButton(scrollRole, 'btnGoComplain', 'Sikayet Bildir (Gizli)');

  btnGoComplain.Align = alTop; btnGoComplain.Margins.Top = 25; btnGoComplain.Margins.Left = 20; btnGoComplain.Margins.Right = 20; btnGoComplain.Margins.Bottom = 30;

  btnGoComplain.Height = 45;

  btnGoComplain.clProSettings.IsFill = True; btnGoComplain.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#c0392b');

  btnGoComplain.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); btnGoComplain.clProSettings.FontSize = 15;

  btnGoComplain.clProSettings.IsRound = True; btnGoComplain.clProSettings.RoundWidth = 8; btnGoComplain.clProSettings.RoundHeight = 8;

  btnGoComplain.SetclProSettings(btnGoComplain.clProSettings);

  salesForm.AddNewEvent(btnGoComplain, tbeOnClick, 'GoToComplain');

}

void SetupComplainScreen;

{

  pnlComplain = salesForm.AddNewProPanel(salesForm, 'pnlComplain');

  pnlComplain.Align = alClient;

  pnlComplain.clProSettings.IsFill = True; pnlComplain.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#100e17');

  pnlComplain.SetclProSettings(pnlComplain.clProSettings);

  pnlComplain.Visible = False;

  

  scrollComplain = salesForm.AddNewVertScrollBox(pnlComplain, 'scrollComplain');

  scrollComplain.Align = alClient;

  

  lblComplainTitle = salesForm.AddNewProLabel(scrollComplain, 'lblComplainTitle', 'Insan Kaynaklarina Bildir');

  lblComplainTitle.Align = alTop; lblComplainTitle.Margins.Top = 40; lblComplainTitle.Margins.Left = 20; lblComplainTitle.Margins.Right = 20;

  lblComplainTitle.Height = 35;

  lblComplainTitle.clProSettings.FontColor = clAlphaColor.clHexToColor('#e74c3c'); lblComplainTitle.clProSettings.FontSize = 20;

  lblComplainTitle.SetclProSettings(lblComplainTitle.clProSettings);

  

  lblComplainName = salesForm.AddNewProLabel(scrollComplain, 'lblComplainName', 'Ad Soyad (Istege Bagli)');

  lblComplainName.Align = alTop; lblComplainName.Margins.Top = 20; lblComplainName.Margins.Left = 20; lblComplainName.Margins.Right = 20;

  lblComplainName.Height = 20;

  lblComplainName.clProSettings.FontColor = clAlphaColor.clHexToColor('#95a5a6'); lblComplainName.clProSettings.FontSize = 13;

  lblComplainName.SetclProSettings(lblComplainName.clProSettings);

  

  edtComplainName = salesForm.AddNewProEdit(scrollComplain, 'edtComplainName', '');

  edtComplainName.Align = alTop; edtComplainName.Margins.Top = 5; edtComplainName.Margins.Left = 20; edtComplainName.Margins.Right = 20;

  edtComplainName.Height = 40;

  edtComplainName.clProSettings.IsFill = True; edtComplainName.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1c1c2e');

  edtComplainName.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); edtComplainName.clProSettings.FontSize = 14;

  edtComplainName.clProSettings.IsRound = True; edtComplainName.clProSettings.RoundWidth = 8; edtComplainName.clProSettings.RoundHeight = 8;

  edtComplainName.SetclProSettings(edtComplainName.clProSettings);

  

  lblComplainText = salesForm.AddNewProLabel(scrollComplain, 'lblComplainText', 'Sikayet veya Oneri');

  lblComplainText.Align = alTop; lblComplainText.Margins.Top = 15; lblComplainText.Margins.Left = 20; lblComplainText.Margins.Right = 20;

  lblComplainText.Height = 20;

  lblComplainText.clProSettings.FontColor = clAlphaColor.clHexToColor('#95a5a6'); lblComplainText.clProSettings.FontSize = 13;

  lblComplainText.SetclProSettings(lblComplainText.clProSettings);

  

  memComplainText = salesForm.AddNewMemo(scrollComplain, 'memComplainText', '');

  memComplainText.Align = alTop; memComplainText.Margins.Top = 5; memComplainText.Margins.Left = 20; memComplainText.Margins.Right = 20;

  memComplainText.Height = 150;

  clComponent.SetupComponent(memComplainText, '{"BackgroundColor": "#1c1c2e", "TextColor": "#ffffff"}');

  

  btnComplainSubmit = salesForm.AddNewProButton(scrollComplain, 'btnComplainSubmit', 'Gonder');

  btnComplainSubmit.Align = alTop; btnComplainSubmit.Margins.Top = 20; btnComplainSubmit.Margins.Left = 20; btnComplainSubmit.Margins.Right = 20;

  btnComplainSubmit.Height = 45;

  btnComplainSubmit.clProSettings.IsFill = True; btnComplainSubmit.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#27ae60');

  btnComplainSubmit.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); btnComplainSubmit.clProSettings.FontSize = 15;

  btnComplainSubmit.clProSettings.IsRound = True; btnComplainSubmit.clProSettings.RoundWidth = 8; btnComplainSubmit.clProSettings.RoundHeight = 8;

  btnComplainSubmit.SetclProSettings(btnComplainSubmit.clProSettings);

  salesForm.AddNewEvent(btnComplainSubmit, tbeOnClick, 'DoSubmitComplain');

  

  btnComplainCancel = salesForm.AddNewProButton(scrollComplain, 'btnComplainCancel', 'Iptal Et');

  btnComplainCancel.Align = alTop; btnComplainCancel.Margins.Top = 10; btnComplainCancel.Margins.Left = 20; btnComplainCancel.Margins.Right = 20;

  btnComplainCancel.Height = 45;

  btnComplainCancel.clProSettings.IsFill = True; btnComplainCancel.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#7f8c8d');

  btnComplainCancel.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); btnComplainCancel.clProSettings.FontSize = 15;

  btnComplainCancel.clProSettings.IsRound = True; btnComplainCancel.clProSettings.RoundWidth = 8; btnComplainCancel.clProSettings.RoundHeight = 8;

  btnComplainCancel.SetclProSettings(btnComplainCancel.clProSettings);

  salesForm.AddNewEvent(btnComplainCancel, tbeOnClick, 'GoToRoleSelection');

}

void SetupLoginScreenUI;

{

  pnlLogin = salesForm.AddNewProPanel(salesForm, 'pnlLogin');

  pnlLogin.Align = alClient;

  pnlLogin.clProSettings.IsFill = True; pnlLogin.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#100e17');

  pnlLogin.SetclProSettings(pnlLogin.clProSettings);

  pnlLogin.Visible = False;

  

  scrollLogin = salesForm.AddNewVertScrollBox(pnlLogin, 'scrollLogin');

  scrollLogin.Align = alClient;

  

  lblLoginTitle = salesForm.AddNewProLabel(scrollLogin, 'lblLoginTitle', 'Giris Yap');

  lblLoginTitle.Align = alTop; lblLoginTitle.Margins.Top = 40; lblLoginTitle.Margins.Left = 20; lblLoginTitle.Margins.Right = 20;

  lblLoginTitle.Height = 35;

  lblLoginTitle.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); lblLoginTitle.clProSettings.FontSize = 20;

  lblLoginTitle.SetclProSettings(lblLoginTitle.clProSettings);

  

  lblUsername = salesForm.AddNewProLabel(scrollLogin, 'lblUsername', 'Kullanici Adi');

  lblUsername.Align = alTop; lblUsername.Margins.Top = 25; lblUsername.Margins.Left = 20; lblUsername.Margins.Right = 20;

  lblUsername.Height = 20;

  lblUsername.clProSettings.FontColor = clAlphaColor.clHexToColor('#95a5a6'); lblUsername.clProSettings.FontSize = 14;

  lblUsername.SetclProSettings(lblUsername.clProSettings);

  

  edtUsername = salesForm.AddNewProEdit(scrollLogin, 'edtUsername', '');

  edtUsername.Align = alTop; edtUsername.Margins.Top = 5; edtUsername.Margins.Left = 20; edtUsername.Margins.Right = 20;

  edtUsername.Height = 40;

  edtUsername.clProSettings.IsFill = True; edtUsername.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1c1c2e');

  edtUsername.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); edtUsername.clProSettings.FontSize = 16;

  edtUsername.clProSettings.IsRound = True; edtUsername.clProSettings.RoundWidth = 8; edtUsername.clProSettings.RoundHeight = 8;

  edtUsername.SetclProSettings(edtUsername.clProSettings);

  

  lblPassword = salesForm.AddNewProLabel(scrollLogin, 'lblPassword', 'Sifre');

  lblPassword.Align = alTop; lblPassword.Margins.Top = 15; lblPassword.Margins.Left = 20; lblPassword.Margins.Right = 20;

  lblPassword.Height = 20;

  lblPassword.clProSettings.FontColor = clAlphaColor.clHexToColor('#95a5a6'); lblPassword.clProSettings.FontSize = 14;

  lblPassword.SetclProSettings(lblPassword.clProSettings);

  

  lytPassword = salesForm.AddNewLayout(scrollLogin, 'lytPassword');

  lytPassword.Align = alTop; lytPassword.Height = 40;

  lytPassword.Margins.Top = 5; lytPassword.Margins.Left = 20; lytPassword.Margins.Right = 20;

  

  edtPassword = salesForm.AddNewProEdit(lytPassword, 'edtPassword', '');

  edtPassword.Align = alClient;

  edtPassword.clProSettings.IsFill = True; edtPassword.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1c1c2e');

  edtPassword.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); edtPassword.clProSettings.FontSize = 16;

  edtPassword.clProSettings.IsRound = True; edtPassword.clProSettings.RoundWidth = 8; edtPassword.clProSettings.RoundHeight = 8;

  edtPassword.SetclProSettings(edtPassword.clProSettings);

  edtPassword.Password = True;

  

  btnShowPass = salesForm.AddNewProButton(lytPassword, 'btnShowPass', 'Goster');

  btnShowPass.Align = alRight; btnShowPass.Width = 70; btnShowPass.Margins.Left = 10;

  btnShowPass.clProSettings.IsFill = True; btnShowPass.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#34495e');

  btnShowPass.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); btnShowPass.clProSettings.FontSize = 12;

  btnShowPass.clProSettings.IsRound = True; btnShowPass.clProSettings.RoundWidth = 8; btnShowPass.clProSettings.RoundHeight = 8;

  btnShowPass.SetclProSettings(btnShowPass.clProSettings);

  salesForm.AddNewEvent(btnShowPass, tbeOnClick, 'TogglePassword');

  

  lblDepot = salesForm.AddNewProLabel(scrollLogin, 'lblDepot', 'Depo Secimi');

  lblDepot.Align = alTop; lblDepot.Margins.Top = 20; lblDepot.Margins.Left = 20; lblDepot.Margins.Right = 20;

  lblDepot.Height = 20;

  lblDepot.clProSettings.FontColor = clAlphaColor.clHexToColor('#f1c40f'); lblDepot.clProSettings.FontSize = 14;

  lblDepot.SetclProSettings(lblDepot.clProSettings);

  lblDepot.Visible = False;

  

  cmbDepot = salesForm.AddNewComboBox(scrollLogin, 'cmbDepot');

  cmbDepot.Align = alTop; cmbDepot.Margins.Top = 5; cmbDepot.Margins.Left = 20; cmbDepot.Margins.Right = 20;

  cmbDepot.Height = 40;

  cmbDepot.AddItem('Ana Merkez Depo (Gebze)', 'D1');

  cmbDepot.AddItem('Avrupa Yakasi Deposu', 'D2');

  cmbDepot.AddItem('Anadolu Yakasi Deposu', 'D3');

  cmbDepot.Visible = False;

  

  chkRememberMe = salesForm.AddNewCheckBox(scrollLogin, 'chkRememberMe', ' Beni Hatirla');

  chkRememberMe.Align = alTop; chkRememberMe.Margins.Top = 20; chkRememberMe.Margins.Left = 25; chkRememberMe.Height = 25;

  

  btnForgotPass = salesForm.AddNewProButton(scrollLogin, 'btnForgotPass', 'Sifremi Unuttum?');

  btnForgotPass.Align = alTop; btnForgotPass.Margins.Top = 5; btnForgotPass.Margins.Left = 20; btnForgotPass.Margins.Right = 20;

  btnForgotPass.Height = 30;

  btnForgotPass.clProSettings.IsFill = True; btnForgotPass.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#100e17');

  btnForgotPass.clProSettings.FontColor = clAlphaColor.clHexToColor('#e74c3c'); btnForgotPass.clProSettings.FontSize = 13;

  btnForgotPass.SetclProSettings(btnForgotPass.clProSettings);

  salesForm.AddNewEvent(btnForgotPass, tbeOnClick, 'OnForgotPassword');

  

  btnLogin = salesForm.AddNewProButton(scrollLogin, 'btnLogin', 'Giris Yap');

  btnLogin.Align = alTop; btnLogin.Margins.Top = 15; btnLogin.Margins.Left = 20; btnLogin.Margins.Right = 20;

  btnLogin.Height = 45;

  btnLogin.clProSettings.IsFill = True; btnLogin.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#27ae60');

  btnLogin.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); btnLogin.clProSettings.FontSize = 15;

  btnLogin.clProSettings.IsRound = True; btnLogin.clProSettings.RoundWidth = 8; btnLogin.clProSettings.RoundHeight = 8;

  btnLogin.SetclProSettings(btnLogin.clProSettings);

  salesForm.AddNewEvent(btnLogin, tbeOnClick, 'DoLogin');

  

  btnGoToRegister = salesForm.AddNewProButton(scrollLogin, 'btnGoToRegister', 'Musteri Kaydi Olustur');

  btnGoToRegister.Align = alTop; btnGoToRegister.Margins.Top = 10; btnGoToRegister.Margins.Left = 20; btnGoToRegister.Margins.Right = 20;

  btnGoToRegister.Height = 45;

  btnGoToRegister.clProSettings.IsFill = True; btnGoToRegister.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2980b9');

  btnGoToRegister.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); btnGoToRegister.clProSettings.FontSize = 15;

  btnGoToRegister.clProSettings.IsRound = True; btnGoToRegister.clProSettings.RoundWidth = 8; btnGoToRegister.clProSettings.RoundHeight = 8;

  btnGoToRegister.SetclProSettings(btnGoToRegister.clProSettings);

  salesForm.AddNewEvent(btnGoToRegister, tbeOnClick, 'GoToRegister');

  

  btnLoginBack = salesForm.AddNewProButton(scrollLogin, 'btnLoginBack', 'Geri Don');

  btnLoginBack.Align = alTop; btnLoginBack.Margins.Top = 10; btnLoginBack.Margins.Left = 20; btnLoginBack.Margins.Right = 20;

  btnLoginBack.Height = 45;

  btnLoginBack.clProSettings.IsFill = True; btnLoginBack.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#7f8c8d');

  btnLoginBack.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); btnLoginBack.clProSettings.FontSize = 15;

  btnLoginBack.clProSettings.IsRound = True; btnLoginBack.clProSettings.RoundWidth = 8; btnLoginBack.clProSettings.RoundHeight = 8;

  btnLoginBack.SetclProSettings(btnLoginBack.clProSettings);

  salesForm.AddNewEvent(btnLoginBack, tbeOnClick, 'GoToRoleSelection');

}

void SetupRegisterScreen;

{

  pnlRegister = salesForm.AddNewProPanel(salesForm, 'pnlRegister');

  pnlRegister.Align = alClient;

  pnlRegister.clProSettings.IsFill = True; pnlRegister.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#100e17');

  pnlRegister.SetclProSettings(pnlRegister.clProSettings);

  pnlRegister.Visible = False;

  

  scrollRegister = salesForm.AddNewVertScrollBox(pnlRegister, 'scrollRegister');

  scrollRegister.Align = alClient;

  

  lblRegisterTitle = salesForm.AddNewProLabel(scrollRegister, 'lblRegisterTitle', 'Musteri Kayit Formu');

  lblRegisterTitle.Align = alTop; lblRegisterTitle.Margins.Top = 40; lblRegisterTitle.Margins.Left = 20; lblRegisterTitle.Margins.Right = 20;

  lblRegisterTitle.Height = 35;

  lblRegisterTitle.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); lblRegisterTitle.clProSettings.FontSize = 20;

  lblRegisterTitle.SetclProSettings(lblRegisterTitle.clProSettings);

  

  lblRegUser = salesForm.AddNewProLabel(scrollRegister, 'lblRegUser', 'Kullanici Adi');

  lblRegUser.Align = alTop; lblRegUser.Margins.Top = 20; lblRegUser.Margins.Left = 20; lblRegUser.Margins.Right = 20;

  lblRegUser.Height = 20;

  lblRegUser.clProSettings.FontColor = clAlphaColor.clHexToColor('#95a5a6'); lblRegUser.clProSettings.FontSize = 14;

  lblRegUser.SetclProSettings(lblRegUser.clProSettings);

  

  edtRegUser = salesForm.AddNewProEdit(scrollRegister, 'edtRegUser', '');

  edtRegUser.Align = alTop; edtRegUser.Margins.Top = 5; edtRegUser.Margins.Left = 20; edtRegUser.Margins.Right = 20;

  edtRegUser.Height = 40;

  edtRegUser.clProSettings.IsFill = True; edtRegUser.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1c1c2e');

  edtRegUser.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); edtRegUser.clProSettings.FontSize = 16;

  edtRegUser.clProSettings.IsRound = True; edtRegUser.clProSettings.RoundWidth = 8; edtRegUser.clProSettings.RoundHeight = 8;

  edtRegUser.SetclProSettings(edtRegUser.clProSettings);

  

  lblRegPass = salesForm.AddNewProLabel(scrollRegister, 'lblRegPass', 'Sifre');

  lblRegPass.Align = alTop; lblRegPass.Margins.Top = 12; lblRegPass.Margins.Left = 20; lblRegPass.Margins.Right = 20;

  lblRegPass.Height = 20;

  lblRegPass.clProSettings.FontColor = clAlphaColor.clHexToColor('#95a5a6'); lblRegPass.clProSettings.FontSize = 14;

  lblRegPass.SetclProSettings(lblRegPass.clProSettings);

  

  edtRegPass = salesForm.AddNewProEdit(scrollRegister, 'edtRegPass', '');

  edtRegPass.Align = alTop; edtRegPass.Margins.Top = 5; edtRegPass.Margins.Left = 20; edtRegPass.Margins.Right = 20;

  edtRegPass.Height = 40;

  edtRegPass.clProSettings.IsFill = True; edtRegPass.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1c1c2e');

  edtRegPass.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); edtRegPass.clProSettings.FontSize = 16;

  edtRegPass.clProSettings.IsRound = True; edtRegPass.clProSettings.RoundWidth = 8; edtRegPass.clProSettings.RoundHeight = 8;

  edtRegPass.SetclProSettings(edtRegPass.clProSettings);

  edtRegPass.Password = True;

  

  lblRegEmail = salesForm.AddNewProLabel(scrollRegister, 'lblRegEmail', 'E-Posta');

  lblRegEmail.Align = alTop; lblRegEmail.Margins.Top = 12; lblRegEmail.Margins.Left = 20; lblRegEmail.Margins.Right = 20;

  lblRegEmail.Height = 20;

  lblRegEmail.clProSettings.FontColor = clAlphaColor.clHexToColor('#95a5a6'); lblRegEmail.clProSettings.FontSize = 14;

  lblRegEmail.SetclProSettings(lblRegEmail.clProSettings);

  

  edtRegEmail = salesForm.AddNewProEdit(scrollRegister, 'edtRegEmail', '');

  edtRegEmail.Align = alTop; edtRegEmail.Margins.Top = 5; edtRegEmail.Margins.Left = 20; edtRegEmail.Margins.Right = 20;

  edtRegEmail.Height = 40;

  edtRegEmail.clProSettings.IsFill = True; edtRegEmail.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1c1c2e');

  edtRegEmail.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); edtRegEmail.clProSettings.FontSize = 16;

  edtRegEmail.clProSettings.IsRound = True; edtRegEmail.clProSettings.RoundWidth = 8; edtRegEmail.clProSettings.RoundHeight = 8;

  edtRegEmail.SetclProSettings(edtRegEmail.clProSettings);

  edtRegEmail.KeyboardType = vktEmailAddress;

  

  lblRegPhone = salesForm.AddNewProLabel(scrollRegister, 'lblRegPhone', 'Telefon');

  lblRegPhone.Align = alTop; lblRegPhone.Margins.Top = 12; lblRegPhone.Margins.Left = 20; lblRegPhone.Margins.Right = 20;

  lblRegPhone.Height = 20;

  lblRegPhone.clProSettings.FontColor = clAlphaColor.clHexToColor('#95a5a6'); lblRegPhone.clProSettings.FontSize = 14;

  lblRegPhone.SetclProSettings(lblRegPhone.clProSettings);

  

  edtRegPhone = salesForm.AddNewProEdit(scrollRegister, 'edtRegPhone', '');

  edtRegPhone.Align = alTop; edtRegPhone.Margins.Top = 5; edtRegPhone.Margins.Left = 20; edtRegPhone.Margins.Right = 20;

  edtRegPhone.Height = 40;

  edtRegPhone.clProSettings.IsFill = True; edtRegPhone.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1c1c2e');

  edtRegPhone.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); edtRegPhone.clProSettings.FontSize = 16;

  edtRegPhone.clProSettings.IsRound = True; edtRegPhone.clProSettings.RoundWidth = 8; edtRegPhone.clProSettings.RoundHeight = 8;

  edtRegPhone.SetclProSettings(edtRegPhone.clProSettings);

  edtRegPhone.KeyboardType = vktPhonePad;

  

  btnRegisterSubmit = salesForm.AddNewProButton(scrollRegister, 'btnRegisterSubmit', 'Kaydet');

  btnRegisterSubmit.Align = alTop; btnRegisterSubmit.Margins.Top = 20; btnRegisterSubmit.Margins.Left = 20; btnRegisterSubmit.Margins.Right = 20;

  btnRegisterSubmit.Height = 45;

  btnRegisterSubmit.clProSettings.IsFill = True; btnRegisterSubmit.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#27ae60');

  btnRegisterSubmit.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); btnRegisterSubmit.clProSettings.FontSize = 15;

  btnRegisterSubmit.clProSettings.IsRound = True; btnRegisterSubmit.clProSettings.RoundWidth = 8; btnRegisterSubmit.clProSettings.RoundHeight = 8;

  btnRegisterSubmit.SetclProSettings(btnRegisterSubmit.clProSettings);

  salesForm.AddNewEvent(btnRegisterSubmit, tbeOnClick, 'DoRegister');

  

  btnRegisterBack = salesForm.AddNewProButton(scrollRegister, 'btnRegisterBack', 'Geri Don');

  btnRegisterBack.Align = alTop; btnRegisterBack.Margins.Top = 10; btnRegisterBack.Margins.Left = 20; btnRegisterBack.Margins.Right = 20;

  btnRegisterBack.Height = 45;

  btnRegisterBack.clProSettings.IsFill = True; btnRegisterBack.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#7f8c8d');

  btnRegisterBack.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); btnRegisterBack.clProSettings.FontSize = 15;

  btnRegisterBack.clProSettings.IsRound = True; btnRegisterBack.clProSettings.RoundWidth = 8; btnRegisterBack.clProSettings.RoundHeight = 8;

  btnRegisterBack.SetclProSettings(btnRegisterBack.clProSettings);

  salesForm.AddNewEvent(btnRegisterBack, tbeOnClick, 'GoToRoleSelection');

}

{

  salesForm = TclForm.Create(Self);

  salesForm.SetFormColor('#100e17', '', clGNone);

  myUnit = TclUnit.Create;

  

  InitUserFile;

  SetupRoleScreen;

  SetupComplainScreen;

  SetupLoginScreenUI;

  SetupRegisterScreen;

  ShowScreen('RoleSelection');

  salesForm.Run;

}

ana kod

var

  subForm : TclForm;

  currentUser : String;

  

  pnlHRMain, pnlRecruit : TClProPanel;

  pnlTraining, pnlPerf : TClProPanel;

  pnlPayroll, pnlCulture : TClProPanel;

  

  scrollMain, scrollRecruit : TclVertScrollBox;

  scrollTraining, scrollPerf : TclVertScrollBox;

  scrollPayroll, scrollCulture : TclVertScrollBox;

  

  navBar : TclHorzScrollBox;

  

  lblHRMainTitle, lblHRSub : TClProLabel;

  

  btnGoRecruit, btnGoTraining : TClProButton;

  btnGoPerf, btnGoPayroll : TClProButton;

  btnGoCulture, btnGoAdmin : TClProButton;

  btnGoLogout : TClProButton;

  

  pnlSum1, pnlSum2 : TClProPanel;

  lblSum1, lblSum2 : TClProLabel;

  

  wbHRCharts : TclWebBrowser;

  

  lblRecruitTitle, lblRecruitSub : TClProLabel;

  memRecruit : TclMemo;

  btnRecruitAction, btnRecruitBack : TClProButton;

  

  lblTrainTitle, lblTrainSub : TClProLabel;

  memTrain : TclMemo;

  btnTrainAction, btnTrainBack : TClProButton;

  

  lblPerfTitle, lblPerfSub : TClProLabel;

  memPerf : TclMemo;

  btnPerfAction, btnPerfBack : TClProButton;

  

  lblPayTitle, lblPaySub : TClProLabel;

  memPay : TclMemo;

  btnPayAction, btnPayBack : TClProButton;

  

  lblCultTitle, lblCultSub : TClProLabel;

  memCult : TclMemo;

  btnCultAction, btnCultBack : TClProButton;

  

  adminUnit : TclUnit;

  html : TclStringList;

  htmlPath : String;

void HideAllPanels;

{

  pnlHRMain.Visible = False;

  pnlRecruit.Visible = False;

  pnlTraining.Visible = False;

  pnlPerf.Visible = False;

  pnlPayroll.Visible = False;

  pnlCulture.Visible = False;

}

void GoToMain;

{

  HideAllPanels;

  pnlHRMain.Visible = True;

}

void GoToLogout;

{

  subForm.clHide;

}

void ShowRecruitPanel; 

{ 

  HideAllPanels; 

  pnlRecruit.Visible = True; 

}

void ShowTrainingPanel; 

{ 

  HideAllPanels; 

  pnlTraining.Visible = True; 

}

void ShowPerfPanel; 

{ 

  HideAllPanels; 

  pnlPerf.Visible = True; 

}

void ShowPayrollPanel; 

{ 

  HideAllPanels; 

  pnlPayroll.Visible = True; 

}

void ShowCulturePanel; 

{ 

  HideAllPanels; 

  pnlCulture.Visible = True; 

}

void GoToAdminUnit;

{

  adminUnit = TclUnit.Create;

  adminUnit.UnitName = 'uAdmin';

  adminUnit.CallerForm = subForm;

  adminUnit.Run;

}

void OnMockAction;

{

  ShowMessage('Islem basariyla kaydedildi.');

}

void CreateHRChartsHTML;

{

  htmlPath = Clomosy.AppFilesPath + 'hr_charts.html';

  html = Clomosy.StringListNew;

  

  html.Add('<!DOCTYPE html><html><head><meta charset="utf-8"><meta name="viewport" content="width=device-width,initial-scale=1">');

  html.Add('<script src="https://cdn.jsdelivr.net/npm/chart.js"></script>');

  html.Add('<style>body{margin:0;padding:15px;background-color:#100e17;color:#fff;font-family:sans-serif;} .chart-container{position:relative;height:220px;width:100%;margin-bottom:30px;} h3{text-align:center;font-size:15px;color:#f39c12;margin-bottom:10px;font-weight:bold;}</style></head><body>');

  html.Add('<h3>Departmanlara Gore Calisan Dagilimi</h3>');

  html.Add('<div class="chart-container"><canvas id="pieChart"></canvas></div>');

  html.Add('<h3>Yillik Personel Devir Orani</h3>');

  html.Add('<div class="chart-container"><canvas id="barChart"></canvas></div>');

  html.Add('<script>');

  html.Add('Chart.defaults.color = "#ecf0f1";');

  html.Add('new Chart(document.getElementById("pieChart"), {');

  html.Add('  type: "doughnut",');

  html.Add('  data: {');

  html.Add('    labels: ["Saha Satis", "Depo/Lojistik", "Muhasebe", "Yonetim/IK"],');

  html.Add('    datasets: [{ data: [45, 30, 15, 10], backgroundColor: ["#2980b9", "#f1c40f", "#8e44ad", "#e74c3c"], borderWidth: 0, hoverOffset: 4 }]');

  html.Add('  },');

  html.Add('  options: { responsive: true, maintainAspectRatio: false, plugins: { legend: { position: "bottom" } } }');

  html.Add('});');

  html.Add('new Chart(document.getElementById("barChart"), {');

  html.Add('  type: "bar",');

  html.Add('  data: {');

  html.Add('    labels: ["Oca", "Sub", "Mar", "Nis", "May", "Haz"],');

  html.Add('    datasets: [');

  html.Add('      { label: "Ise Alinan", data: [5, 2, 8, 3, 4, 6], backgroundColor: "#27ae60", borderRadius: 4 },');

  html.Add('      { label: "Isten Ayrilan", data: [2, 1, 3, 1, 2, 4], backgroundColor: "#c0392b", borderRadius: 4 }');

  html.Add('    ]');

  html.Add('  },');

  html.Add('  options: { responsive: true, maintainAspectRatio: false, plugins: { legend: { position: "top" } } }');

  html.Add('});');

  html.Add('</script></body></html>');

  

  html.SaveToFile(htmlPath, 0);

  html.Free;

}

{

  currentUser = Clomosy.GlobalVariableString;

  subForm = TclForm.Create(Self);

  subForm.SetFormColor('#100e17', '', clGNone);

  

  CreateHRChartsHTML;

  

  pnlHRMain = subForm.AddNewProPanel(subForm, 'pnlHRMain');

  pnlHRMain.Align = alClient;

  pnlHRMain.clProSettings.IsFill = True;

  pnlHRMain.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#100e17');

  pnlHRMain.SetclProSettings(pnlHRMain.clProSettings);

  

  navBar = subForm.AddNewHorzScrollBox(pnlHRMain, 'navBar');

  navBar.Align = alBottom;

  navBar.Height = 70;

  

  btnGoRecruit = subForm.AddNewProButton(navBar, 'btnGoRecruit', 'Ise Alim');

  btnGoRecruit.Align = alLeft;

  btnGoRecruit.Width = 80;

  btnGoRecruit.Margins.Left = 10;

  btnGoRecruit.Margins.Right = 5;

  btnGoRecruit.Margins.Top = 10;

  btnGoRecruit.Margins.Bottom = 15;

  btnGoRecruit.clProSettings.IsFill = True;

  btnGoRecruit.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2980b9');

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

  btnGoRecruit.clProSettings.FontSize = 13;

  btnGoRecruit.clProSettings.IsRound = True;

  btnGoRecruit.clProSettings.RoundWidth = 8;

  btnGoRecruit.clProSettings.RoundHeight = 8;

  btnGoRecruit.SetclProSettings(btnGoRecruit.clProSettings);

  subForm.AddNewEvent(btnGoRecruit, tbeOnClick, 'ShowRecruitPanel');

  

  btnGoTraining = subForm.AddNewProButton(navBar, 'btnGoTraining', 'Egitim');

  btnGoTraining.Align = alLeft;

  btnGoTraining.Width = 80;

  btnGoTraining.Margins.Right = 5;

  btnGoTraining.Margins.Top = 10;

  btnGoTraining.Margins.Bottom = 15;

  btnGoTraining.clProSettings.IsFill = True;

  btnGoTraining.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#f39c12');

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

  btnGoTraining.clProSettings.FontSize = 13;

  btnGoTraining.clProSettings.IsRound = True;

  btnGoTraining.clProSettings.RoundWidth = 8;

  btnGoTraining.clProSettings.RoundHeight = 8;

  btnGoTraining.SetclProSettings(btnGoTraining.clProSettings);

  subForm.AddNewEvent(btnGoTraining, tbeOnClick, 'ShowTrainingPanel');

  

  btnGoPerf = subForm.AddNewProButton(navBar, 'btnGoPerf', 'Performans');

  btnGoPerf.Align = alLeft;

  btnGoPerf.Width = 90;

  btnGoPerf.Margins.Right = 5;

  btnGoPerf.Margins.Top = 10;

  btnGoPerf.Margins.Bottom = 15;

  btnGoPerf.clProSettings.IsFill = True;

  btnGoPerf.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#8e44ad');

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

  btnGoPerf.clProSettings.FontSize = 13;

  btnGoPerf.clProSettings.IsRound = True;

  btnGoPerf.clProSettings.RoundWidth = 8;

  btnGoPerf.clProSettings.RoundHeight = 8;

  btnGoPerf.SetclProSettings(btnGoPerf.clProSettings);

  subForm.AddNewEvent(btnGoPerf, tbeOnClick, 'ShowPerfPanel');

  

  btnGoPayroll = subForm.AddNewProButton(navBar, 'btnGoPayroll', 'Maas/Prim');

  btnGoPayroll.Align = alLeft;

  btnGoPayroll.Width = 100;

  btnGoPayroll.Margins.Right = 5;

  btnGoPayroll.Margins.Top = 10;

  btnGoPayroll.Margins.Bottom = 15;

  btnGoPayroll.clProSettings.IsFill = True;

  btnGoPayroll.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#27ae60');

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

  btnGoPayroll.clProSettings.FontSize = 13;

  btnGoPayroll.clProSettings.IsRound = True;

  btnGoPayroll.clProSettings.RoundWidth = 8;

  btnGoPayroll.clProSettings.RoundHeight = 8;

  btnGoPayroll.SetclProSettings(btnGoPayroll.clProSettings);

  subForm.AddNewEvent(btnGoPayroll, tbeOnClick, 'ShowPayrollPanel');

  

  btnGoCulture = subForm.AddNewProButton(navBar, 'btnGoCulture', 'Sikayetler');

  btnGoCulture.Align = alLeft;

  btnGoCulture.Width = 100;

  btnGoCulture.Margins.Right = 5;

  btnGoCulture.Margins.Top = 10;

  btnGoCulture.Margins.Bottom = 15;

  btnGoCulture.clProSettings.IsFill = True;

  btnGoCulture.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#c0392b');

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

  btnGoCulture.clProSettings.FontSize = 13;

  btnGoCulture.clProSettings.IsRound = True;

  btnGoCulture.clProSettings.RoundWidth = 8;

  btnGoCulture.clProSettings.RoundHeight = 8;

  btnGoCulture.SetclProSettings(btnGoCulture.clProSettings);

  subForm.AddNewEvent(btnGoCulture, tbeOnClick, 'ShowCulturePanel');

  

  btnGoAdmin = subForm.AddNewProButton(navBar, 'btnGoAdmin', 'Yonetici');

  btnGoAdmin.Align = alLeft;

  btnGoAdmin.Width = 80;

  btnGoAdmin.Margins.Right = 5;

  btnGoAdmin.Margins.Top = 10;

  btnGoAdmin.Margins.Bottom = 15;

  btnGoAdmin.clProSettings.IsFill = True;

  btnGoAdmin.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#34495e');

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

  btnGoAdmin.clProSettings.FontSize = 13;

  btnGoAdmin.clProSettings.IsRound = True;

  btnGoAdmin.clProSettings.RoundWidth = 8;

  btnGoAdmin.clProSettings.RoundHeight = 8;

  btnGoAdmin.SetclProSettings(btnGoAdmin.clProSettings);

  subForm.AddNewEvent(btnGoAdmin, tbeOnClick, 'GoToAdminUnit');

  

  btnGoLogout = subForm.AddNewProButton(navBar, 'btnGoLogout', 'Cikis');

  btnGoLogout.Align = alLeft;

  btnGoLogout.Width = 80;

  btnGoLogout.Margins.Right = 10;

  btnGoLogout.Margins.Top = 10;

  btnGoLogout.Margins.Bottom = 15;

  btnGoLogout.clProSettings.IsFill = True;

  btnGoLogout.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#e74c3c');

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

  btnGoLogout.clProSettings.FontSize = 13;

  btnGoLogout.clProSettings.IsRound = True;

  btnGoLogout.clProSettings.RoundWidth = 8;

  btnGoLogout.clProSettings.RoundHeight = 8;

  btnGoLogout.SetclProSettings(btnGoLogout.clProSettings);

  subForm.AddNewEvent(btnGoLogout, tbeOnClick, 'GoToLogout');

  

  scrollMain = subForm.AddNewVertScrollBox(pnlHRMain, 'scrollMain');

  scrollMain.Align = alClient;

  

  lblHRMainTitle = subForm.AddNewProLabel(scrollMain, 'lblHRMainTitle', 'INSAN KAYNAKLARI MERKEZI');

  lblHRMainTitle.Align = alTop;

  lblHRMainTitle.Margins.Top = 25;

  lblHRMainTitle.Margins.Left = 20;

  lblHRMainTitle.Margins.Right = 20;

  lblHRMainTitle.Height = 40;

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

  lblHRMainTitle.clProSettings.FontSize = 20;

  lblHRMainTitle.SetclProSettings(lblHRMainTitle.clProSettings);

  

  lblHRSub = subForm.AddNewProLabel(scrollMain, 'lblHRSub', 'Oryantasyon, egitim, performans ve maas surecleri');

  lblHRSub.Align = alTop;

  lblHRSub.Margins.Top = 5;

  lblHRSub.Margins.Left = 20;

  lblHRSub.Margins.Right = 20;

  lblHRSub.Height = 40;

  lblHRSub.clProSettings.FontColor = clAlphaColor.clHexToColor('#95a5a6');

  lblHRSub.clProSettings.FontSize = 13;

  lblHRSub.SetclProSettings(lblHRSub.clProSettings);

  

  pnlSum1 = subForm.AddNewProPanel(scrollMain, 'pnlSum1');

  pnlSum1.Align = alTop;

  pnlSum1.Margins.Top = 15;

  pnlSum1.Margins.Left = 20;

  pnlSum1.Margins.Right = 20;

  pnlSum1.Height = 50;

  pnlSum1.clProSettings.IsFill = True;

  pnlSum1.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2980b9');

  pnlSum1.clProSettings.IsRound = True;

  pnlSum1.clProSettings.RoundWidth = 8;

  pnlSum1.clProSettings.RoundHeight = 8;

  pnlSum1.SetclProSettings(pnlSum1.clProSettings);

  

  lblSum1 = subForm.AddNewProLabel(pnlSum1, 'lblSum1', 'Aktif Calisan Sayisi: 142');

  lblSum1.Align = alClient;

  lblSum1.Margins.Left = 15;

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

  lblSum1.clProSettings.FontSize = 14;

  lblSum1.SetclProSettings(lblSum1.clProSettings);

  

  pnlSum2 = subForm.AddNewProPanel(scrollMain, 'pnlSum2');

  pnlSum2.Align = alTop;

  pnlSum2.Margins.Top = 10;

  pnlSum2.Margins.Left = 20;

  pnlSum2.Margins.Right = 20;

  pnlSum2.Height = 50;

  pnlSum2.clProSettings.IsFill = True;

  pnlSum2.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#e74c3c');

  pnlSum2.clProSettings.IsRound = True;

  pnlSum2.clProSettings.RoundWidth = 8;

  pnlSum2.clProSettings.RoundHeight = 8;

  pnlSum2.SetclProSettings(pnlSum2.clProSettings);

  

  lblSum2 = subForm.AddNewProLabel(pnlSum2, 'lblSum2', 'Bekleyen Sikayet / Bildirim: 2');

  lblSum2.Align = alClient;

  lblSum2.Margins.Left = 15;

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

  lblSum2.clProSettings.FontSize = 14;

  lblSum2.SetclProSettings(lblSum2.clProSettings);

  

  wbHRCharts = subForm.AddNewWebBrowser(scrollMain, 'wbHRCharts');

  wbHRCharts.Align = alTop;

  wbHRCharts.Margins.Top = 20;

  wbHRCharts.Margins.Left = 10;

  wbHRCharts.Margins.Right = 10;

  wbHRCharts.Height = 600;

  wbHRCharts.Navigate('file://' + Clomosy.AppFilesPath + 'hr_charts.html');

  

  pnlRecruit = subForm.AddNewProPanel(subForm, 'pnlRecruit');

  pnlRecruit.Align = alClient;

  pnlRecruit.clProSettings.IsFill = True;

  pnlRecruit.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#100e17');

  pnlRecruit.SetclProSettings(pnlRecruit.clProSettings);

  pnlRecruit.Visible = False;

  

  scrollRecruit = subForm.AddNewVertScrollBox(pnlRecruit, 'scrollRecruit');

  scrollRecruit.Align = alClient;

  

  lblRecruitTitle = subForm.AddNewProLabel(scrollRecruit, 'lblRecruitTitle', 'ISE ALIM VE ORYANTASYON');

  lblRecruitTitle.Align = alTop;

  lblRecruitTitle.Margins.Top = 25;

  lblRecruitTitle.Margins.Left = 20;

  lblRecruitTitle.Margins.Right = 20;

  lblRecruitTitle.Height = 35;

  lblRecruitTitle.clProSettings.FontColor = clAlphaColor.clHexToColor('#3498db');

  lblRecruitTitle.clProSettings.FontSize = 18;

  lblRecruitTitle.SetclProSettings(lblRecruitTitle.clProSettings);

  

  lblRecruitSub = subForm.AddNewProLabel(scrollRecruit, 'lblRecruitSub', 'Acik Pozisyonlar ve Uyum Sureci Takibi');

  lblRecruitSub.Align = alTop;

  lblRecruitSub.Margins.Top = 10;

  lblRecruitSub.Margins.Left = 20;

  lblRecruitSub.Margins.Right = 20;

  lblRecruitSub.Height = 20;

  lblRecruitSub.clProSettings.FontColor = clAlphaColor.clHexToColor('#f1c40f');

  lblRecruitSub.clProSettings.FontSize = 14;

  lblRecruitSub.SetclProSettings(lblRecruitSub.clProSettings);

  

  memRecruit = subForm.AddNewMemo(scrollRecruit, 'memRecruit', '');

  memRecruit.Align = alTop;

  memRecruit.Margins.Top = 5;

  memRecruit.Margins.Left = 20;

  memRecruit.Margins.Right = 20;

  memRecruit.Height = 120;

  memRecruit.ReadOnly = True;

  memRecruit.Lines.Add('[ACIK POZISYON] Bolge Satis Muduru (2 Kisi)');

  memRecruit.Lines.Add('[Mulakati] Ayse Yilmaz - IK Mulakati (Bugun 14:00)');

  memRecruit.Lines.Add('[Oryantasyon] Mehmet Kaya - 2. Gun Saha Egitimi');

  

  btnRecruitAction = subForm.AddNewProButton(scrollRecruit, 'btnRecruitAction', 'Yeni Ilan Olustur');

  btnRecruitAction.Align = alTop;

  btnRecruitAction.Margins.Top = 15;

  btnRecruitAction.Margins.Left = 20;

  btnRecruitAction.Margins.Right = 20;

  btnRecruitAction.Height = 45;

  btnRecruitAction.clProSettings.IsFill = True;

  btnRecruitAction.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2980b9');

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

  btnRecruitAction.clProSettings.FontSize = 14;

  btnRecruitAction.clProSettings.IsRound = True;

  btnRecruitAction.clProSettings.RoundWidth = 8;

  btnRecruitAction.clProSettings.RoundHeight = 8;

  btnRecruitAction.SetclProSettings(btnRecruitAction.clProSettings);

  subForm.AddNewEvent(btnRecruitAction, tbeOnClick, 'OnMockAction');

  

  btnRecruitBack = subForm.AddNewProButton(scrollRecruit, 'btnRecruitBack', 'Geri Don');

  btnRecruitBack.Align = alTop;

  btnRecruitBack.Margins.Top = 20;

  btnRecruitBack.Margins.Left = 20;

  btnRecruitBack.Margins.Right = 20;

  btnRecruitBack.Height = 45;

  btnRecruitBack.clProSettings.IsFill = True;

  btnRecruitBack.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#7f8c8d');

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

  btnRecruitBack.clProSettings.FontSize = 15;

  btnRecruitBack.clProSettings.IsRound = True;

  btnRecruitBack.clProSettings.RoundWidth = 8;

  btnRecruitBack.clProSettings.RoundHeight = 8;

  btnRecruitBack.SetclProSettings(btnRecruitBack.clProSettings);

  subForm.AddNewEvent(btnRecruitBack, tbeOnClick, 'GoToMain');

  

  pnlTraining = subForm.AddNewProPanel(subForm, 'pnlTraining');

  pnlTraining.Align = alClient;

  pnlTraining.clProSettings.IsFill = True;

  pnlTraining.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#100e17');

  pnlTraining.SetclProSettings(pnlTraining.clProSettings);

  pnlTraining.Visible = False;

  

  scrollTraining = subForm.AddNewVertScrollBox(pnlTraining, 'scrollTraining');

  scrollTraining.Align = alClient;

  

  lblTrainTitle = subForm.AddNewProLabel(scrollTraining, 'lblTrainTitle', 'EGITIM VE GELISTIRME');

  lblTrainTitle.Align = alTop;

  lblTrainTitle.Margins.Top = 25;

  lblTrainTitle.Margins.Left = 20;

  lblTrainTitle.Margins.Right = 20;

  lblTrainTitle.Height = 35;

  lblTrainTitle.clProSettings.FontColor = clAlphaColor.clHexToColor('#f39c12');

  lblTrainTitle.clProSettings.FontSize = 18;

  lblTrainTitle.SetclProSettings(lblTrainTitle.clProSettings);

  

  lblTrainSub = subForm.AddNewProLabel(scrollTraining, 'lblTrainSub', 'Planlanan Egitimler ve Katilim Durumu');

  lblTrainSub.Align = alTop;

  lblTrainSub.Margins.Top = 10;

  lblTrainSub.Margins.Left = 20;

  lblTrainSub.Margins.Right = 20;

  lblTrainSub.Height = 20;

  lblTrainSub.clProSettings.FontColor = clAlphaColor.clHexToColor('#f1c40f');

  lblTrainSub.clProSettings.FontSize = 14;

  lblTrainSub.SetclProSettings(lblTrainSub.clProSettings);

  

  memTrain = subForm.AddNewMemo(scrollTraining, 'memTrain', '');

  memTrain.Align = alTop;

  memTrain.Margins.Top = 5;

  memTrain.Margins.Left = 20;

  memTrain.Margins.Right = 20;

  memTrain.Height = 120;

  memTrain.ReadOnly = True;

  memTrain.Lines.Add('- Satis Teknikleri 101 (25 Temmuz) | Katilim: 20 Kisi');

  memTrain.Lines.Add('- Ileri Seviye Excel (1 Agustos) | Katilim: 15 Kisi');

  memTrain.Lines.Add('- Sirket Ici Egitim Tamamlanma Orani: %85');

  

  btnTrainAction = subForm.AddNewProButton(scrollTraining, 'btnTrainAction', 'Yeni Egitim Planla');

  btnTrainAction.Align = alTop;

  btnTrainAction.Margins.Top = 15;

  btnTrainAction.Margins.Left = 20;

  btnTrainAction.Margins.Right = 20;

  btnTrainAction.Height = 45;

  btnTrainAction.clProSettings.IsFill = True;

  btnTrainAction.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#d35400');

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

  btnTrainAction.clProSettings.FontSize = 14;

  btnTrainAction.clProSettings.IsRound = True;

  btnTrainAction.clProSettings.RoundWidth = 8;

  btnTrainAction.clProSettings.RoundHeight = 8;

  btnTrainAction.SetclProSettings(btnTrainAction.clProSettings);

  subForm.AddNewEvent(btnTrainAction, tbeOnClick, 'OnMockAction');

  

  btnTrainBack = subForm.AddNewProButton(scrollTraining, 'btnTrainBack', 'Geri Don');

  btnTrainBack.Align = alTop;

  btnTrainBack.Margins.Top = 20;

  btnTrainBack.Margins.Left = 20;

  btnTrainBack.Margins.Right = 20;

  btnTrainBack.Height = 45;

  btnTrainBack.clProSettings.IsFill = True;

  btnTrainBack.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#7f8c8d');

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

  btnTrainBack.clProSettings.FontSize = 15;

  btnTrainBack.clProSettings.IsRound = True;

  btnTrainBack.clProSettings.RoundWidth = 8;

  btnTrainBack.clProSettings.RoundHeight = 8;

  btnTrainBack.SetclProSettings(btnTrainBack.clProSettings);

  subForm.AddNewEvent(btnTrainBack, tbeOnClick, 'GoToMain');

  

  pnlPerf = subForm.AddNewProPanel(subForm, 'pnlPerf');

  pnlPerf.Align = alClient;

  pnlPerf.clProSettings.IsFill = True;

  pnlPerf.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#100e17');

  pnlPerf.SetclProSettings(pnlPerf.clProSettings);

  pnlPerf.Visible = False;

  

  scrollPerf = subForm.AddNewVertScrollBox(pnlPerf, 'scrollPerf');

  scrollPerf.Align = alClient;

  

  lblPerfTitle = subForm.AddNewProLabel(scrollPerf, 'lblPerfTitle', 'PERFORMANS YONETIMI');

  lblPerfTitle.Align = alTop;

  lblPerfTitle.Margins.Top = 25;

  lblPerfTitle.Margins.Left = 20;

  lblPerfTitle.Margins.Right = 20;

  lblPerfTitle.Height = 35;

  lblPerfTitle.clProSettings.FontColor = clAlphaColor.clHexToColor('#9b59b6');

  lblPerfTitle.clProSettings.FontSize = 18;

  lblPerfTitle.SetclProSettings(lblPerfTitle.clProSettings);

  

  lblPerfSub = subForm.AddNewProLabel(scrollPerf, 'lblPerfSub', 'Hedef Gerceklesme ve Terfi Analizi');

  lblPerfSub.Align = alTop;

  lblPerfSub.Margins.Top = 10;

  lblPerfSub.Margins.Left = 20;

  lblPerfSub.Margins.Right = 20;

  lblPerfSub.Height = 20;

  lblPerfSub.clProSettings.FontColor = clAlphaColor.clHexToColor('#f1c40f');

  lblPerfSub.clProSettings.FontSize = 14;

  lblPerfSub.SetclProSettings(lblPerfSub.clProSettings);

  

  memPerf = subForm.AddNewMemo(scrollPerf, 'memPerf', '');

  memPerf.Align = alTop;

  memPerf.Margins.Top = 5;

  memPerf.Margins.Left = 20;

  memPerf.Margins.Right = 20;

  memPerf.Height = 120;

  memPerf.ReadOnly = True;

  memPerf.Lines.Add('Saha Satis Ekibi Hedef Gerceklesme Orani: %92');

  memPerf.Lines.Add('Lojistik Ekibi Verimlilik Orani: %88');

  memPerf.Lines.Add('[DIKKAT] 3 personel terfi degerlendirmesinde.');

  

  btnPerfAction = subForm.AddNewProButton(scrollPerf, 'btnPerfAction', 'Donem Sonu Degerlendirmesi');

  btnPerfAction.Align = alTop;

  btnPerfAction.Margins.Top = 15;

  btnPerfAction.Margins.Left = 20;

  btnPerfAction.Margins.Right = 20;

  btnPerfAction.Height = 45;

  btnPerfAction.clProSettings.IsFill = True;

  btnPerfAction.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#8e44ad');

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

  btnPerfAction.clProSettings.FontSize = 14;

  btnPerfAction.clProSettings.IsRound = True;

  btnPerfAction.clProSettings.RoundWidth = 8;

  btnPerfAction.clProSettings.RoundHeight = 8;

  btnPerfAction.SetclProSettings(btnPerfAction.clProSettings);

  subForm.AddNewEvent(btnPerfAction, tbeOnClick, 'OnMockAction');

  

  btnPerfBack = subForm.AddNewProButton(scrollPerf, 'btnPerfBack', 'Geri Don');

  btnPerfBack.Align = alTop;

  btnPerfBack.Margins.Top = 20;

  btnPerfBack.Margins.Left = 20;

  btnPerfBack.Margins.Right = 20;

  btnPerfBack.Height = 45;

  btnPerfBack.clProSettings.IsFill = True;

  btnPerfBack.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#7f8c8d');

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

  btnPerfBack.clProSettings.FontSize = 15;

  btnPerfBack.clProSettings.IsRound = True;

  btnPerfBack.clProSettings.RoundWidth = 8;

  btnPerfBack.clProSettings.RoundHeight = 8;

  btnPerfBack.SetclProSettings(btnPerfBack.clProSettings);

  subForm.AddNewEvent(btnPerfBack, tbeOnClick, 'GoToMain');

  

  pnlPayroll = subForm.AddNewProPanel(subForm, 'pnlPayroll');

  pnlPayroll.Align = alClient;

  pnlPayroll.clProSettings.IsFill = True;

  pnlPayroll.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#100e17');

  pnlPayroll.SetclProSettings(pnlPayroll.clProSettings);

  pnlPayroll.Visible = False;

  

  scrollPayroll = subForm.AddNewVertScrollBox(pnlPayroll, 'scrollPayroll');

  scrollPayroll.Align = alClient;

  

  lblPayTitle = subForm.AddNewProLabel(scrollPayroll, 'lblPayTitle', 'MAAS VE PRIM YONETIMI');

  lblPayTitle.Align = alTop;

  lblPayTitle.Margins.Top = 25;

  lblPayTitle.Margins.Left = 20;

  lblPayTitle.Margins.Right = 20;

  lblPayTitle.Height = 35;

  lblPayTitle.clProSettings.FontColor = clAlphaColor.clHexToColor('#2ecc71');

  lblPayTitle.clProSettings.FontSize = 18;

  lblPayTitle.SetclProSettings(lblPayTitle.clProSettings);

  

  lblPaySub = subForm.AddNewProLabel(scrollPayroll, 'lblPaySub', 'Aylik Odemeler ve Sigorta Islemleri');

  lblPaySub.Align = alTop;

  lblPaySub.Margins.Top = 10;

  lblPaySub.Margins.Left = 20;

  lblPaySub.Margins.Right = 20;

  lblPaySub.Height = 20;

  lblPaySub.clProSettings.FontColor = clAlphaColor.clHexToColor('#f1c40f');

  lblPaySub.clProSettings.FontSize = 14;

  lblPaySub.SetclProSettings(lblPaySub.clProSettings);

  

  memPay = subForm.AddNewMemo(scrollPayroll, 'memPay', '');

  memPay.Align = alTop;

  memPay.Margins.Top = 5;

  memPay.Margins.Left = 20;

  memPay.Margins.Right = 20;

  memPay.Height = 120;

  memPay.ReadOnly = True;

  memPay.Lines.Add('- Agustos Donemi Maas Hesaplamalari: ONAYLANDI');

  memPay.Lines.Add('- Saha Ekibi Prim Dagitimi: ONAY BEKLIYOR');

  memPay.Lines.Add('- Multinet / Arac Yakit Karti Yuklemeleri: BEKLEMEDE');

  

  btnPayAction = subForm.AddNewProButton(scrollPayroll, 'btnPayAction', 'Odemeleri Finansa Ilet');

  btnPayAction.Align = alTop;

  btnPayAction.Margins.Top = 15;

  btnPayAction.Margins.Left = 20;

  btnPayAction.Margins.Right = 20;

  btnPayAction.Height = 45;

  btnPayAction.clProSettings.IsFill = True;

  btnPayAction.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#27ae60');

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

  btnPayAction.clProSettings.FontSize = 14;

  btnPayAction.clProSettings.IsRound = True;

  btnPayAction.clProSettings.RoundWidth = 8;

  btnPayAction.clProSettings.RoundHeight = 8;

  btnPayAction.SetclProSettings(btnPayAction.clProSettings);

  subForm.AddNewEvent(btnPayAction, tbeOnClick, 'OnMockAction');

  

  btnPayBack = subForm.AddNewProButton(scrollPayroll, 'btnPayBack', 'Geri Don');

  btnPayBack.Align = alTop;

  btnPayBack.Margins.Top = 20;

  btnPayBack.Margins.Left = 20;

  btnPayBack.Margins.Right = 20;

  btnPayBack.Height = 45;

  btnPayBack.clProSettings.IsFill = True;

  btnPayBack.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#7f8c8d');

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

  btnPayBack.clProSettings.FontSize = 15;

  btnPayBack.clProSettings.IsRound = True;

  btnPayBack.clProSettings.RoundWidth = 8;

  btnPayBack.clProSettings.RoundHeight = 8;

  btnPayBack.SetclProSettings(btnPayBack.clProSettings);

  subForm.AddNewEvent(btnPayBack, tbeOnClick, 'GoToMain');

  

  pnlCulture = subForm.AddNewProPanel(subForm, 'pnlCulture');

  pnlCulture.Align = alClient;

  pnlCulture.clProSettings.IsFill = True;

  pnlCulture.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#100e17');

  pnlCulture.SetclProSettings(pnlCulture.clProSettings);

  pnlCulture.Visible = False;

  

  scrollCulture = subForm.AddNewVertScrollBox(pnlCulture, 'scrollCulture');

  scrollCulture.Align = alClient;

  

  lblCultTitle = subForm.AddNewProLabel(scrollCulture, 'lblCultTitle', 'SIKAYET VE BILDIRIM MERKEZI');

  lblCultTitle.Align = alTop;

  lblCultTitle.Margins.Top = 25;

  lblCultTitle.Margins.Left = 20;

  lblCultTitle.Margins.Right = 20;

  lblCultTitle.Height = 35;

  lblCultTitle.clProSettings.FontColor = clAlphaColor.clHexToColor('#e74c3c');

  lblCultTitle.clProSettings.FontSize = 18;

  lblCultTitle.SetclProSettings(lblCultTitle.clProSettings);

  

  lblCultSub = subForm.AddNewProLabel(scrollCulture, 'lblCultSub', 'Personelden Gelen Bildirimler');

  lblCultSub.Align = alTop;

  lblCultSub.Margins.Top = 10;

  lblCultSub.Margins.Left = 20;

  lblCultSub.Margins.Right = 20;

  lblCultSub.Height = 20;

  lblCultSub.clProSettings.FontColor = clAlphaColor.clHexToColor('#f1c40f');

  lblCultSub.clProSettings.FontSize = 14;

  lblCultSub.SetclProSettings(lblCultSub.clProSettings);

  

  memCult = subForm.AddNewMemo(scrollCulture, 'memCult', '');

  memCult.Align = alTop;

  memCult.Margins.Top = 5;

  memCult.Margins.Left = 20;

  memCult.Margins.Right = 20;

  memCult.Height = 150;

  memCult.ReadOnly = True;

  memCult.Lines.Add('GUNCEL SIKAYETLER');

  memCult.Lines.Add('1. Yemekhane kalitesi son gunlerde dustu (Gonderen: Saha Ekibi)');

  memCult.Lines.Add('2. Mobbing bildirimi: Isimsiz (ACIL INCELEME GEREKIYOR)');

  

  btnCultAction = subForm.AddNewProButton(scrollCulture, 'btnCultAction', 'Sikayetleri Incelemeye Al');

  btnCultAction.Align = alTop;

  btnCultAction.Margins.Top = 15;

  btnCultAction.Margins.Left = 20;

  btnCultAction.Margins.Right = 20;

  btnCultAction.Height = 45;

  btnCultAction.clProSettings.IsFill = True;

  btnCultAction.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#c0392b');

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

  btnCultAction.clProSettings.FontSize = 14;

  btnCultAction.clProSettings.IsRound = True;

  btnCultAction.clProSettings.RoundWidth = 8;

  btnCultAction.clProSettings.RoundHeight = 8;

  btnCultAction.SetclProSettings(btnCultAction.clProSettings);

  subForm.AddNewEvent(btnCultAction, tbeOnClick, 'OnMockAction');

  

  btnCultBack = subForm.AddNewProButton(scrollCulture, 'btnCultBack', 'Geri Don');

  btnCultBack.Align = alTop;

  btnCultBack.Margins.Top = 20;

  btnCultBack.Margins.Left = 20;

  btnCultBack.Margins.Right = 20;

  btnCultBack.Height = 45;

  btnCultBack.clProSettings.IsFill = True;

  btnCultBack.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#7f8c8d');

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

  btnCultBack.clProSettings.FontSize = 15;

  btnCultBack.clProSettings.IsRound = True;

  btnCultBack.clProSettings.RoundWidth = 8;

  btnCultBack.clProSettings.RoundHeight = 8;

  btnCultBack.SetclProSettings(btnCultBack.clProSettings);

  subForm.AddNewEvent(btnCultBack, tbeOnClick, 'GoToMain');

  

  subForm.Run;

}

belirttiginiz sekilde duzeltilmis kod ama satir 264 farkli olmasina ragmen aldigim hata hala ayni 

hata kodu;

RUNTIME ERROR

File library Main: Unit uHR: Syntax error.

Source position: 1,2 when evaluating instruction CallProc ($FFFFFFFF,$0,$733034E0,$6D,"Run").

Stack content is: [-5476376661869708432,-5476376666970291280,-5476376666970331104,-5476376661869688656...].

Source position: 264,15

Position: 264, 15

var

  subForm : TclForm;

  currentUser : String;

  pnlHRMain, pnlRecruit, pnlTraining, pnlPerf, pnlPayroll, pnlCulture : TClProPanel;

  scrollMain, scrollRecruit, scrollTraining, scrollPerf, scrollPayroll, scrollCulture : TclVertScrollBox;

  navBar : TclHorzScrollBox;

  lblHRMainTitle, lblHRSub : TClProLabel;

  btnGoRecruit, btnGoTraining, btnGoPerf, btnGoPayroll, btnGoCulture, btnGoAdmin, btnGoLogout : TClProButton;

  pnlSum1, pnlSum2 : TClProPanel;

  lblSum1, lblSum2 : TClProLabel;

  wbHRCharts : TclWebBrowser;

  lblRecruitTitle, lblRecruitSub : TClProLabel;

  memRecruit : TclMemo;

  btnRecruitAction, btnRecruitBack : TClProButton;

  lblTrainTitle, lblTrainSub : TClProLabel;

  memTrain : TclMemo;

  btnTrainAction, btnTrainBack : TClProButton;

  lblPerfTitle, lblPerfSub : TClProLabel;

  memPerf : TclMemo;

  btnPerfAction, btnPerfBack : TClProButton;

  lblPayTitle, lblPaySub : TClProLabel;

  memPay : TclMemo;

  btnPayAction, btnPayBack : TClProButton;

  lblCultTitle, lblCultSub : TClProLabel;

  memCult : TclMemo;

  btnCultAction, btnCultBack : TClProButton;

void HideAllPanels;

{

  pnlHRMain.Visible = False;

  pnlRecruit.Visible = False;

  pnlTraining.Visible = False;

  pnlPerf.Visible = False;

  pnlPayroll.Visible = False;

  pnlCulture.Visible = False;

}

void GoToMain;

{

  HideAllPanels;

  pnlHRMain.Visible = True;

}

void GoToLogout;

{

  subForm.clHide;

}

void ShowRecruitPanel; { HideAllPanels; pnlRecruit.Visible = True; }

void ShowTrainingPanel; { HideAllPanels; pnlTraining.Visible = True; }

void ShowPerfPanel; { HideAllPanels; pnlPerf.Visible = True; }

void ShowPayrollPanel; { HideAllPanels; pnlPayroll.Visible = True; }

void ShowCulturePanel; { HideAllPanels; pnlCulture.Visible = True; }

void GoToAdminUnit;

var 

  adminUnit : TclUnit;

{

  adminUnit = TclUnit.Create;

  adminUnit.UnitName = 'uAdmin';

  adminUnit.CallerForm = subForm;

  adminUnit.Run;

}

void OnMockAction;

{

  ShowMessage('Islem basariyla kaydedildi.');

}

void CreateHRChartsHTML;

var

  html : TclStringList;

  htmlPath : String;

{

  htmlPath = Clomosy.AppFilesPath + 'hr_charts.html';

  html = Clomosy.StringListNew;

  try

    html.Add('<!DOCTYPE html><html><head><meta charset="utf-8"><meta name="viewport" content="width=device-width,initial-scale=1">');

    html.Add('<script src="https://cdn.jsdelivr.net/npm/chart.js"></script>');

    html.Add('<style>body{margin:0;padding:15px;background-color:#100e17;color:#fff;font-family:sans-serif;} .chart-container{position:relative;height:220px;width:100%;margin-bottom:30px;} h3{text-align:center;font-size:15px;color:#f39c12;margin-bottom:10px;font-weight:bold;}</style></head><body>');

    html.Add('<h3>Departmanlara Gore Calisan Dagilimi</h3>');

    html.Add('<div class="chart-container"><canvas id="pieChart"></canvas></div>');

    html.Add('<h3>Yillik Personel Devir Orani</h3>');

    html.Add('<div class="chart-container"><canvas id="barChart"></canvas></div>');

    html.Add('<script>');

    html.Add('Chart.defaults.color = "#ecf0f1";');

    html.Add('new Chart(document.getElementById("pieChart"), {');

    html.Add('  type: "doughnut",');

    html.Add('  data: {');

    html.Add('    labels: ["Saha Satis", "Depo/Lojistik", "Muhasebe", "Yonetim/IK"],');

    html.Add('    datasets: [{ data: [45, 30, 15, 10], backgroundColor: ["#2980b9", "#f1c40f", "#8e44ad", "#e74c3c"], borderWidth: 0, hoverOffset: 4 }]');

    html.Add('  },');

    html.Add('  options: { responsive: true, maintainAspectRatio: false, plugins: { legend: { position: "bottom" } } }');

    html.Add('});');

    html.Add('new Chart(document.getElementById("barChart"), {');

    html.Add('  type: "bar",');

    html.Add('  data: {');

    html.Add('    labels: ["Oca", "Sub", "Mar", "Nis", "May", "Haz"],');

    html.Add('    datasets: [');

    html.Add('      { label: "Ise Alinan", data: [5, 2, 8, 3, 4, 6], backgroundColor: "#27ae60", borderRadius: 4 },');

    html.Add('      { label: "Isten Ayrilan", data: [2, 1, 3, 1, 2, 4], backgroundColor: "#c0392b", borderRadius: 4 }');

    html.Add('    ]');

    html.Add('  },');

    html.Add('  options: { responsive: true, maintainAspectRatio: false, plugins: { legend: { position: "top" } } }');

    html.Add('});');

    html.Add('</script></body></html>');

    html.SaveToFile(htmlPath, 0);

  finally

    html.Free;

  }

}

{

  currentUser = Clomosy.GlobalVariableString;

  subForm = TclForm.Create(Self);

  subForm.SetFormColor('#100E17', '#100E17', clGVertical);

  

  CreateHRChartsHTML;

  

  pnlHRMain = subForm.AddNewProPanel(subForm, 'pnlHRMain');

  pnlHRMain.Align = alClient;

  pnlHRMain.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#100E17');

  pnlHRMain.SetClProSettings(pnlHRMain.clProSettings);

  

  navBar = subForm.AddNewHorzScrollBox(pnlHRMain, 'navBar');

  navBar.Align = alBottom;

  navBar.Height = 70;

  

  btnGoRecruit = subForm.AddNewProButton(navBar, 'btnGoRecruit', 'Ise Alim');

  btnGoRecruit.Align = alLeft;

  btnGoRecruit.Width = 80;

  btnGoRecruit.Margins.Left = 10;

  btnGoRecruit.Margins.Right = 5;

  btnGoRecruit.Margins.Top = 10;

  btnGoRecruit.Margins.Bottom = 15;

  btnGoRecruit.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2980B9');

  btnGoRecruit.clProSettings.FontColor = clAlphaColor.clWhite;

  btnGoRecruit.clProSettings.FontSize = 13;

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

  btnGoRecruit.clProSettings.IsRound = True;

  btnGoRecruit.clProSettings.RoundWidth = 8;

  btnGoRecruit.clProSettings.RoundHeight = 8;

  btnGoRecruit.SetClProSettings(btnGoRecruit.clProSettings);

  subForm.AddNewEvent(btnGoRecruit, tbeOnClick, 'ShowRecruitPanel');

  

  btnGoTraining = subForm.AddNewProButton(navBar, 'btnGoTraining', 'Egitim');

  btnGoTraining.Align = alLeft;

  btnGoTraining.Width = 80;

  btnGoTraining.Margins.Right = 5;

  btnGoTraining.Margins.Top = 10;

  btnGoTraining.Margins.Bottom = 15;

  btnGoTraining.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F39C12');

  btnGoTraining.clProSettings.FontColor = clAlphaColor.clWhite;

  btnGoTraining.clProSettings.FontSize = 13;

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

  btnGoTraining.clProSettings.IsRound = True;

  btnGoTraining.clProSettings.RoundWidth = 8;

  btnGoTraining.clProSettings.RoundHeight = 8;

  btnGoTraining.SetClProSettings(btnGoTraining.clProSettings);

  subForm.AddNewEvent(btnGoTraining, tbeOnClick, 'ShowTrainingPanel');

  

  btnGoPerf = subForm.AddNewProButton(navBar, 'btnGoPerf', 'Performans');

  btnGoPerf.Align = alLeft;

  btnGoPerf.Width = 90;

  btnGoPerf.Margins.Right = 5;

  btnGoPerf.Margins.Top = 10;

  btnGoPerf.Margins.Bottom = 15;

  btnGoPerf.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#8E44AD');

  btnGoPerf.clProSettings.FontColor = clAlphaColor.clWhite;

  btnGoPerf.clProSettings.FontSize = 13;

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

  btnGoPerf.clProSettings.IsRound = True;

  btnGoPerf.clProSettings.RoundWidth = 8;

  btnGoPerf.clProSettings.RoundHeight = 8;

  btnGoPerf.SetClProSettings(btnGoPerf.clProSettings);

  subForm.AddNewEvent(btnGoPerf, tbeOnClick, 'ShowPerfPanel');

  

  btnGoPayroll = subForm.AddNewProButton(navBar, 'btnGoPayroll', 'Maas/Prim');

  btnGoPayroll.Align = alLeft;

  btnGoPayroll.Width = 100;

  btnGoPayroll.Margins.Right = 5;

  btnGoPayroll.Margins.Top = 10;

  btnGoPayroll.Margins.Bottom = 15;

  btnGoPayroll.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#27AE60');

  btnGoPayroll.clProSettings.FontColor = clAlphaColor.clWhite;

  btnGoPayroll.clProSettings.FontSize = 13;

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

  btnGoPayroll.clProSettings.IsRound = True;

  btnGoPayroll.clProSettings.RoundWidth = 8;

  btnGoPayroll.clProSettings.RoundHeight = 8;

  btnGoPayroll.SetClProSettings(btnGoPayroll.clProSettings);

  subForm.AddNewEvent(btnGoPayroll, tbeOnClick, 'ShowPayrollPanel');

  

  btnGoCulture = subForm.AddNewProButton(navBar, 'btnGoCulture', 'Sikayetler');

  btnGoCulture.Align = alLeft;

  btnGoCulture.Width = 100;

  btnGoCulture.Margins.Right = 5;

  btnGoCulture.Margins.Top = 10;

  btnGoCulture.Margins.Bottom = 15;

  btnGoCulture.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#C0392B');

  btnGoCulture.clProSettings.FontColor = clAlphaColor.clWhite;

  btnGoCulture.clProSettings.FontSize = 13;

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

  btnGoCulture.clProSettings.IsRound = True;

  btnGoCulture.clProSettings.RoundWidth = 8;

  btnGoCulture.clProSettings.RoundHeight = 8;

  btnGoCulture.SetClProSettings(btnGoCulture.clProSettings);

  subForm.AddNewEvent(btnGoCulture, tbeOnClick, 'ShowCulturePanel');

  

  btnGoAdmin = subForm.AddNewProButton(navBar, 'btnGoAdmin', 'Yonetici');

  btnGoAdmin.Align = alLeft;

  btnGoAdmin.Width = 80;

  btnGoAdmin.Margins.Right = 5;

  btnGoAdmin.Margins.Top = 10;

  btnGoAdmin.Margins.Bottom = 15;

  btnGoAdmin.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#34495E');

  btnGoAdmin.clProSettings.FontColor = clAlphaColor.clWhite;

  btnGoAdmin.clProSettings.FontSize = 13;

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

  btnGoAdmin.clProSettings.IsRound = True;

  btnGoAdmin.clProSettings.RoundWidth = 8;

  btnGoAdmin.clProSettings.RoundHeight = 8;

  btnGoAdmin.SetClProSettings(btnGoAdmin.clProSettings);

  subForm.AddNewEvent(btnGoAdmin, tbeOnClick, 'GoToAdminUnit');

  

  btnGoLogout = subForm.AddNewProButton(navBar, 'btnGoLogout', 'Cikis');

  btnGoLogout.Align = alLeft;

  btnGoLogout.Width = 80;

  btnGoLogout.Margins.Right = 10;

  btnGoLogout.Margins.Top = 10;

  btnGoLogout.Margins.Bottom = 15;

  btnGoLogout.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#E74C3C');

  btnGoLogout.clProSettings.FontColor = clAlphaColor.clWhite;

  btnGoLogout.clProSettings.FontSize = 13;

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

  btnGoLogout.clProSettings.IsRound = True;

  btnGoLogout.clProSettings.RoundWidth = 8;

  btnGoLogout.clProSettings.RoundHeight = 8;

  btnGoLogout.SetClProSettings(btnGoLogout.clProSettings);

  subForm.AddNewEvent(btnGoLogout, tbeOnClick, 'GoToLogout');

  

  scrollMain = subForm.AddNewVertScrollBox(pnlHRMain, 'scrollMain');

  scrollMain.Align = alClient;

  

  lblHRMainTitle = subForm.AddNewProLabel(scrollMain, 'lblHRMainTitle', 'INSAN KAYNAKLARI MERKEZI');

  lblHRMainTitle.Align = alTop;

  lblHRMainTitle.Margins.Top = 25;

  lblHRMainTitle.Margins.Left = 20;

  lblHRMainTitle.Margins.Right = 20;

  lblHRMainTitle.Height = 40;

  lblHRMainTitle.clProSettings.FontColor = clAlphaColor.clWhite;

  lblHRMainTitle.clProSettings.FontSize = 20;

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

  lblHRMainTitle.clProSettings.TextSettings.HorzAlign = palCenter;

  lblHRMainTitle.clProSettings.WordWrap = True;

  lblHRMainTitle.SetClProSettings(lblHRMainTitle.clProSettings);

  

  lblHRSub = subForm.AddNewProLabel(scrollMain, 'lblHRSub', 'Oryantasyon, egitim, performans ve maas surecleri');

  lblHRSub.Align = alTop;

  lblHRSub.Margins.Top = 5;

  lblHRSub.Margins.Left = 20;

  lblHRSub.Margins.Right = 20;

  lblHRSub.Height = 40;

  lblHRSub.clProSettings.FontColor = clAlphaColor.clHexToColor('#95A5A6');

  lblHRSub.clProSettings.FontSize = 13;

  lblHRSub.clProSettings.TextSettings.HorzAlign = palCenter;

  lblHRSub.clProSettings.WordWrap = True;

  lblHRSub.SetClProSettings(lblHRSub.clProSettings);

  

  pnlSum1 = subForm.AddNewProPanel(scrollMain, 'pnlSum1');

  pnlSum1.Align = alTop;

  pnlSum1.Margins.Top = 15;

  pnlSum1.Margins.Left = 20;

  pnlSum1.Margins.Right = 20;

  pnlSum1.Height = 50;

  pnlSum1.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2980B9');

  pnlSum1.clProSettings.IsRound = True;

  pnlSum1.clProSettings.RoundWidth = 8;

  pnlSum1.clProSettings.RoundHeight = 8;

  pnlSum1.SetClProSettings(pnlSum1.clProSettings);

  lblSum1 = subForm.AddNewProLabel(pnlSum1, 'lblSum1', 'Aktif Calisan Sayisi: 142');

  lblSum1.Align = alClient;

  lblSum1.Margins.Left = 15;

  lblSum1.clProSettings.FontColor = clAlphaColor.clWhite;

  lblSum1.clProSettings.FontSize = 14;

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

  lblSum1.clProSettings.TextSettings.VertAlign = palCenter;

  lblSum1.SetClProSettings(lblSum1.clProSettings);

  

  pnlSum2 = subForm.AddNewProPanel(scrollMain, 'pnlSum2');

  pnlSum2.Align = alTop;

  pnlSum2.Margins.Top = 10;

  pnlSum2.Margins.Left = 20;

  pnlSum2.Margins.Right = 20;

  pnlSum2.Height = 50;

  pnlSum2.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#E74C3C');

  pnlSum2.clProSettings.IsRound = True;

  pnlSum2.clProSettings.RoundWidth = 8;

  pnlSum2.clProSettings.RoundHeight = 8;

  pnlSum2.SetClProSettings(pnlSum2.clProSettings);

  lblSum2 = subForm.AddNewProLabel(pnlSum2, 'lblSum2', 'Bekleyen Sikayet / Bildirim: 2');

  lblSum2.Align = alClient;

  lblSum2.Margins.Left = 15;

  lblSum2.clProSettings.FontColor = clAlphaColor.clWhite;

  lblSum2.clProSettings.FontSize = 14;

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

  lblSum2.clProSettings.TextSettings.VertAlign = palCenter;

  lblSum2.SetClProSettings(lblSum2.clProSettings);

  

  wbHRCharts = subForm.AddNewWebBrowser(scrollMain, 'wbHRCharts');

  wbHRCharts.Align = alTop;

  wbHRCharts.Margins.Top = 20;

  wbHRCharts.Margins.Left = 10;

  wbHRCharts.Margins.Right = 10;

  wbHRCharts.Height = 600;

  wbHRCharts.Navigate('file://' + Clomosy.AppFilesPath + 'hr_charts.html');

  

  pnlRecruit = subForm.AddNewProPanel(subForm, 'pnlRecruit');

  pnlRecruit.Align = alClient;

  pnlRecruit.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#100E17');

  pnlRecruit.SetClProSettings(pnlRecruit.clProSettings);

  pnlRecruit.Visible = False;

  scrollRecruit = subForm.AddNewVertScrollBox(pnlRecruit, 'scrollRecruit');

  scrollRecruit.Align = alClient;

  

  lblRecruitTitle = subForm.AddNewProLabel(scrollRecruit, 'lblRecruitTitle', 'ISE ALIM VE ORYANTASYON');

  lblRecruitTitle.Align = alTop;

  lblRecruitTitle.Margins.Top = 25;

  lblRecruitTitle.Margins.Left = 20;

  lblRecruitTitle.Margins.Right = 20;

  lblRecruitTitle.Height = 35;

  lblRecruitTitle.clProSettings.FontColor = clAlphaColor.clHexToColor('#3498DB');

  lblRecruitTitle.clProSettings.FontSize = 18;

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

  lblRecruitTitle.clProSettings.TextSettings.HorzAlign = palCenter;

  lblRecruitTitle.SetClProSettings(lblRecruitTitle.clProSettings);

  

  lblRecruitSub = subForm.AddNewProLabel(scrollRecruit, 'lblRecruitSub', 'Acik Pozisyonlar ve Uyum Sureci Takibi');

  lblRecruitSub.Align = alTop;

  lblRecruitSub.Margins.Top = 10;

  lblRecruitSub.Margins.Left = 20;

  lblRecruitSub.Margins.Right = 20;

  lblRecruitSub.Height = 20;

  lblRecruitSub.clProSettings.FontColor = clAlphaColor.clHexToColor('#F1C40F');

  lblRecruitSub.clProSettings.FontSize = 14;

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

  lblRecruitSub.SetClProSettings(lblRecruitSub.clProSettings);

  

  memRecruit = subForm.AddNewMemo(scrollRecruit, 'memRecruit', '');

  memRecruit.Align = alTop;

  memRecruit.Margins.Top = 5;

  memRecruit.Margins.Left = 20;

  memRecruit.Margins.Right = 20;

  memRecruit.Height = 120;

  memRecruit.ReadOnly = True;

  memRecruit.Lines.Add('[ACIK POZISYON] Bolge Satis Muduru (2 Kisi)');

  memRecruit.Lines.Add('[Mulakati] Ayse Yilmaz - IK Mulakati (Bugun 14:00)');

  memRecruit.Lines.Add('[Oryantasyon] Mehmet Kaya - 2. Gun Saha Egitimi');

  

  btnRecruitAction = subForm.AddNewProButton(scrollRecruit, 'btnRecruitAction', 'Yeni Ilan Olustur');

  btnRecruitAction.Align = alTop;

  btnRecruitAction.Margins.Top = 15;

  btnRecruitAction.Margins.Left = 20;

  btnRecruitAction.Margins.Right = 20;

  btnRecruitAction.Height = 45;

  btnRecruitAction.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2980B9');

  btnRecruitAction.clProSettings.FontColor = clAlphaColor.clWhite;

  btnRecruitAction.clProSettings.FontSize = 14;

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

  btnRecruitAction.clProSettings.IsRound = True;

  btnRecruitAction.clProSettings.RoundWidth = 8;

  btnRecruitAction.clProSettings.RoundHeight = 8;

  btnRecruitAction.SetClProSettings(btnRecruitAction.clProSettings);

  subForm.AddNewEvent(btnRecruitAction, tbeOnClick, 'OnMockAction');

  

  btnRecruitBack = subForm.AddNewProButton(scrollRecruit, 'btnRecruitBack', 'Geri Don');

  btnRecruitBack.Align = alTop;

  btnRecruitBack.Margins.Top = 20;

  btnRecruitBack.Margins.Left = 20;

  btnRecruitBack.Margins.Right = 20;

  btnRecruitBack.Height = 45;

  btnRecruitBack.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#7F8C8D');

  btnRecruitBack.clProSettings.FontColor = clAlphaColor.clWhite;

  btnRecruitBack.clProSettings.FontSize = 15;

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

  btnRecruitBack.clProSettings.IsRound = True;

  btnRecruitBack.clProSettings.RoundWidth = 8;

  btnRecruitBack.clProSettings.RoundHeight = 8;

  btnRecruitBack.SetClProSettings(btnRecruitBack.clProSettings);

  subForm.AddNewEvent(btnRecruitBack, tbeOnClick, 'GoToMain');

  

  pnlTraining = subForm.AddNewProPanel(subForm, 'pnlTraining');

  pnlTraining.Align = alClient;

  pnlTraining.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#100E17');

  pnlTraining.SetClProSettings(pnlTraining.clProSettings);

  pnlTraining.Visible = False;

  scrollTraining = subForm.AddNewVertScrollBox(pnlTraining, 'scrollTraining');

  scrollTraining.Align = alClient;

  

  lblTrainTitle = subForm.AddNewProLabel(scrollTraining, 'lblTrainTitle', 'EGITIM VE GELISTIRME');

  lblTrainTitle.Align = alTop;

  lblTrainTitle.Margins.Top = 25;

  lblTrainTitle.Margins.Left = 20;

  lblTrainTitle.Margins.Right = 20;

  lblTrainTitle.Height = 35;

  lblTrainTitle.clProSettings.FontColor = clAlphaColor.clHexToColor('#F39C12');

  lblTrainTitle.clProSettings.FontSize = 18;

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

  lblTrainTitle.clProSettings.TextSettings.HorzAlign = palCenter;

  lblTrainTitle.SetClProSettings(lblTrainTitle.clProSettings);

  

  lblTrainSub = subForm.AddNewProLabel(scrollTraining, 'lblTrainSub', 'Planlanan Egitimler ve Katilim Durumu');

  lblTrainSub.Align = alTop;

  lblTrainSub.Margins.Top = 10;

  lblTrainSub.Margins.Left = 20;

  lblTrainSub.Margins.Right = 20;

  lblTrainSub.Height = 20;

  lblTrainSub.clProSettings.FontColor = clAlphaColor.clHexToColor('#F1C40F');

  lblTrainSub.clProSettings.FontSize = 14;

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

  lblTrainSub.SetClProSettings(lblTrainSub.clProSettings);

  

  memTrain = subForm.AddNewMemo(scrollTraining, 'memTrain', '');

  memTrain.Align = alTop;

  memTrain.Margins.Top = 5;

  memTrain.Margins.Left = 20;

  memTrain.Margins.Right = 20;

  memTrain.Height = 120;

  memTrain.ReadOnly = True;

  memTrain.Lines.Add('- Satis Teknikleri 101 (25 Temmuz) | Katilim: 20 Kisi');

  memTrain.Lines.Add('- Ileri Seviye Excel (1 Agustos) | Katilim: 15 Kisi');

  memTrain.Lines.Add('- Sirket Ici Egitim Tamamlanma Orani: %85');

  

  btnTrainAction = subForm.AddNewProButton(scrollTraining, 'btnTrainAction', 'Yeni Egitim Planla');

  btnTrainAction.Align = alTop;

  btnTrainAction.Margins.Top = 15;

  btnTrainAction.Margins.Left = 20;

  btnTrainAction.Margins.Right = 20;

  btnTrainAction.Height = 45;

  btnTrainAction.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#D35400');

  btnTrainAction.clProSettings.FontColor = clAlphaColor.clWhite;

  btnTrainAction.clProSettings.FontSize = 14;

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

  btnTrainAction.clProSettings.IsRound = True;

  btnTrainAction.clProSettings.RoundWidth = 8;

  btnTrainAction.clProSettings.RoundHeight = 8;

  btnTrainAction.SetClProSettings(btnTrainAction.clProSettings);

  subForm.AddNewEvent(btnTrainAction, tbeOnClick, 'OnMockAction');

  

  btnTrainBack = subForm.AddNewProButton(scrollTraining, 'btnTrainBack', 'Geri Don');

  btnTrainBack.Align = alTop;

  btnTrainBack.Margins.Top = 20;

  btnTrainBack.Margins.Left = 20;

  btnTrainBack.Margins.Right = 20;

  btnTrainBack.Height = 45;

  btnTrainBack.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#7F8C8D');

  btnTrainBack.clProSettings.FontColor = clAlphaColor.clWhite;

  btnTrainBack.clProSettings.FontSize = 15;

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

  btnTrainBack.clProSettings.IsRound = True;

  btnTrainBack.clProSettings.RoundWidth = 8;

  btnTrainBack.clProSettings.RoundHeight = 8;

  btnTrainBack.SetClProSettings(btnTrainBack.clProSettings);

  subForm.AddNewEvent(btnTrainBack, tbeOnClick, 'GoToMain');

  

  pnlPerf = subForm.AddNewProPanel(subForm, 'pnlPerf');

  pnlPerf.Align = alClient;

  pnlPerf.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#100E17');

  pnlPerf.SetClProSettings(pnlPerf.clProSettings);

  pnlPerf.Visible = False;

  scrollPerf = subForm.AddNewVertScrollBox(pnlPerf, 'scrollPerf');

  scrollPerf.Align = alClient;

  

  lblPerfTitle = subForm.AddNewProLabel(scrollPerf, 'lblPerfTitle', 'PERFORMANS YONETIMI');

  lblPerfTitle.Align = alTop;

  lblPerfTitle.Margins.Top = 25;

  lblPerfTitle.Margins.Left = 20;

  lblPerfTitle.Margins.Right = 20;

  lblPerfTitle.Height = 35;

  lblPerfTitle.clProSettings.FontColor = clAlphaColor.clHexToColor('#9B59B6');

  lblPerfTitle.clProSettings.FontSize = 18;

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

  lblPerfTitle.clProSettings.TextSettings.HorzAlign = palCenter;

  lblPerfTitle.SetClProSettings(lblPerfTitle.clProSettings);

  

  lblPerfSub = subForm.AddNewProLabel(scrollPerf, 'lblPerfSub', 'Hedef Gerceklesme ve Terfi Analizi');

  lblPerfSub.Align = alTop;

  lblPerfSub.Margins.Top = 10;

  lblPerfSub.Margins.Left = 20;

  lblPerfSub.Margins.Right = 20;

  lblPerfSub.Height = 20;

  lblPerfSub.clProSettings.FontColor = clAlphaColor.clHexToColor('#F1C40F');

  lblPerfSub.clProSettings.FontSize = 14;

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

  lblPerfSub.SetClProSettings(lblPerfSub.clProSettings);

  

  memPerf = subForm.AddNewMemo(scrollPerf, 'memPerf', '');

  memPerf.Align = alTop;

  memPerf.Margins.Top = 5;

  memPerf.Margins.Left = 20;

  memPerf.Margins.Right = 20;

  memPerf.Height = 120;

  memPerf.ReadOnly = True;

  memPerf.Lines.Add('Saha Satis Ekibi Hedef Gerceklesme Orani: %92');

  memPerf.Lines.Add('Lojistik Ekibi Verimlilik Orani: %88');

  memPerf.Lines.Add('[DIKKAT] 3 personel terfi degerlendirmesinde.');

  

  btnPerfAction = subForm.AddNewProButton(scrollPerf, 'btnPerfAction', 'Donem Sonu Degerlendirmesi');

  btnPerfAction.Align = alTop;

  btnPerfAction.Margins.Top = 15;

  btnPerfAction.Margins.Left = 20;

  btnPerfAction.Margins.Right = 20;

  btnPerfAction.Height = 45;

  btnPerfAction.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#8E44AD');

  btnPerfAction.clProSettings.FontColor = clAlphaColor.clWhite;

  btnPerfAction.clProSettings.FontSize = 14;

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

  btnPerfAction.clProSettings.IsRound = True;

  btnPerfAction.clProSettings.RoundWidth = 8;

  btnPerfAction.clProSettings.RoundHeight = 8;

  btnPerfAction.SetClProSettings(btnPerfAction.clProSettings);

  subForm.AddNewEvent(btnPerfAction, tbeOnClick, 'OnMockAction');

  

  btnPerfBack = subForm.AddNewProButton(scrollPerf, 'btnPerfBack', 'Geri Don');

  btnPerfBack.Align = alTop;

  btnPerfBack.Margins.Top = 20;

  btnPerfBack.Margins.Left = 20;

  btnPerfBack.Margins.Right = 20;

  btnPerfBack.Height = 45;

  btnPerfBack.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#7F8C8D');

  btnPerfBack.clProSettings.FontColor = clAlphaColor.clWhite;

  btnPerfBack.clProSettings.FontSize = 15;

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

  btnPerfBack.clProSettings.IsRound = True;

  btnPerfBack.clProSettings.RoundWidth = 8;

  btnPerfBack.clProSettings.RoundHeight = 8;

  btnPerfBack.SetClProSettings(btnPerfBack.clProSettings);

  subForm.AddNewEvent(btnPerfBack, tbeOnClick, 'GoToMain');

  

  pnlPayroll = subForm.AddNewProPanel(subForm, 'pnlPayroll');

  pnlPayroll.Align = alClient;

  pnlPayroll.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#100E17');

  pnlPayroll.SetClProSettings(pnlPayroll.clProSettings);

  pnlPayroll.Visible = False;

  scrollPayroll = subForm.AddNewVertScrollBox(pnlPayroll, 'scrollPayroll');

  scrollPayroll.Align = alClient;

  

  lblPayTitle = subForm.AddNewProLabel(scrollPayroll, 'lblPayTitle', 'MAAS VE PRIM YONETIMI');

  lblPayTitle.Align = alTop;

  lblPayTitle.Margins.Top = 25;

  lblPayTitle.Margins.Left = 20;

  lblPayTitle.Margins.Right = 20;

  lblPayTitle.Height = 35;

  lblPayTitle.clProSettings.FontColor = clAlphaColor.clHexToColor('#2ECC71');

  lblPayTitle.clProSettings.FontSize = 18;

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

  lblPayTitle.clProSettings.TextSettings.HorzAlign = palCenter;

  lblPayTitle.SetClProSettings(lblPayTitle.clProSettings);

  

  lblPaySub = subForm.AddNewProLabel(scrollPayroll, 'lblPaySub', 'Aylik Odemeler ve Sigorta Islemleri');

  lblPaySub.Align = alTop;

  lblPaySub.Margins.Top = 10;

  lblPaySub.Margins.Left = 20;

  lblPaySub.Margins.Right = 20;

  lblPaySub.Height = 20;

  lblPaySub.clProSettings.FontColor = clAlphaColor.clHexToColor('#F1C40F');

  lblPaySub.clProSettings.FontSize = 14;

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

  lblPaySub.SetClProSettings(lblPaySub.clProSettings);

  

  memPay = subForm.AddNewMemo(scrollPayroll, 'memPay', '');

  memPay.Align = alTop;

  memPay.Margins.Top = 5;

  memPay.Margins.Left = 20;

  memPay.Margins.Right = 20;

  memPay.Height = 120;

  memPay.ReadOnly = True;

  memPay.Lines.Add('- Agustos Donemi Maas Hesaplamalari: ONAYLANDI');

  memPay.Lines.Add('- Saha Ekibi Prim Dagitimi: ONAY BEKLIYOR');

  memPay.Lines.Add('- Multinet / Arac Yakit Karti Yuklemeleri: BEKLEMEDE');

  

  btnPayAction = subForm.AddNewProButton(scrollPayroll, 'btnPayAction', 'Odemeleri Finansa Ilet');

  btnPayAction.Align = alTop;

  btnPayAction.Margins.Top = 15;

  btnPayAction.Margins.Left = 20;

  btnPayAction.Margins.Right = 20;

  btnPayAction.Height = 45;

  btnPayAction.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#27AE60');

  btnPayAction.clProSettings.FontColor = clAlphaColor.clWhite;

  btnPayAction.clProSettings.FontSize = 14;

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

  btnPayAction.clProSettings.IsRound = True;

  btnPayAction.clProSettings.RoundWidth = 8;

  btnPayAction.clProSettings.RoundHeight = 8;

  btnPayAction.SetClProSettings(btnPayAction.clProSettings);

  subForm.AddNewEvent(btnPayAction, tbeOnClick, 'OnMockAction');

  

  btnPayBack = subForm.AddNewProButton(scrollPayroll, 'btnPayBack', 'Geri Don');

  btnPayBack.Align = alTop;

  btnPayBack.Margins.Top = 20;

  btnPayBack.Margins.Left = 20;

  btnPayBack.Margins.Right = 20;

  btnPayBack.Height = 45;

  btnPayBack.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#7F8C8D');

  btnPayBack.clProSettings.FontColor = clAlphaColor.clWhite;

  btnPayBack.clProSettings.FontSize = 15;

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

  btnPayBack.clProSettings.IsRound = True;

  btnPayBack.clProSettings.RoundWidth = 8;

  btnPayBack.clProSettings.RoundHeight = 8;

  btnPayBack.SetClProSettings(btnPayBack.clProSettings);

  subForm.AddNewEvent(btnPayBack, tbeOnClick, 'GoToMain');

  

  pnlCulture = subForm.AddNewProPanel(subForm, 'pnlCulture');

  pnlCulture.Align = alClient;

  pnlCulture.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#100E17');

  pnlCulture.SetClProSettings(pnlCulture.clProSettings);

  pnlCulture.Visible = False;

  scrollCulture = subForm.AddNewVertScrollBox(pnlCulture, 'scrollCulture');

  scrollCulture.Align = alClient;

  

  lblCultTitle = subForm.AddNewProLabel(scrollCulture, 'lblCultTitle', 'SIKAYET VE BILDIRIM MERKEZI');

  lblCultTitle.Align = alTop;

  lblCultTitle.Margins.Top = 25;

  lblCultTitle.Margins.Left = 20;

  lblCultTitle.Margins.Right = 20;

  lblCultTitle.Height = 35;

  lblCultTitle.clProSettings.FontColor = clAlphaColor.clHexToColor('#E74C3C');

  lblCultTitle.clProSettings.FontSize = 18;

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

  lblCultTitle.clProSettings.TextSettings.HorzAlign = palCenter;

  lblCultTitle.SetClProSettings(lblCultTitle.clProSettings);

  

  lblCultSub = subForm.AddNewProLabel(scrollCulture, 'lblCultSub', 'Personelden Gelen Bildirimler');

  lblCultSub.Align = alTop;

  lblCultSub.Margins.Top = 10;

  lblCultSub.Margins.Left = 20;

  lblCultSub.Margins.Right = 20;

  lblCultSub.Height = 20;

  lblCultSub.clProSettings.FontColor = clAlphaColor.clHexToColor('#F1C40F');

  lblCultSub.clProSettings.FontSize = 14;

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

  lblCultSub.SetClProSettings(lblCultSub.clProSettings);

  

  memCult = subForm.AddNewMemo(scrollCulture, 'memCult', '');

  memCult.Align = alTop;

  memCult.Margins.Top = 5;

  memCult.Margins.Left = 20;

  memCult.Margins.Right = 20;

  memCult.Height = 150;

  memCult.ReadOnly = True;

  memCult.Lines.Add('GUNCEL SIKAYETLER');

  memCult.Lines.Add('1. Yemekhane kalitesi son gunlerde dustu (Gonderen: Saha Ekibi)');

  memCult.Lines.Add('2. Mobbing bildirimi: Isimsiz (ACIL INCELEME GEREKIYOR)');

  

  btnCultAction = subForm.AddNewProButton(scrollCulture, 'btnCultAction', 'Sikayetleri Incelemeye Al');

  btnCultAction.Align = alTop;

  btnCultAction.Margins.Top = 15;

  btnCultAction.Margins.Left = 20;

  btnCultAction.Margins.Right = 20;

  btnCultAction.Height = 45;

  btnCultAction.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#C0392B');

  btnCultAction.clProSettings.FontColor = clAlphaColor.clWhite;

  btnCultAction.clProSettings.FontSize = 14;

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

  btnCultAction.clProSettings.IsRound = True;

  btnCultAction.clProSettings.RoundWidth = 8;

  btnCultAction.clProSettings.RoundHeight = 8;

  btnCultAction.SetClProSettings(btnCultAction.clProSettings);

  subForm.AddNewEvent(btnCultAction, tbeOnClick, 'OnMockAction');

  

  btnCultBack = subForm.AddNewProButton(scrollCulture, 'btnCultBack', 'Geri Don');

  btnCultBack.Align = alTop;

  btnCultBack.Margins.Top = 20;

  btnCultBack.Margins.Left = 20;

  btnCultBack.Margins.Right = 20;

  btnCultBack.Height = 45;

  btnCultBack.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#7F8C8D');

  btnCultBack.clProSettings.FontColor = clAlphaColor.clWhite;

  btnCultBack.clProSettings.FontSize = 15;

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

  btnCultBack.clProSettings.IsRound = True;

  btnCultBack.clProSettings.RoundWidth = 8;

  btnCultBack.clProSettings.RoundHeight = 8;

  btnCultBack.SetClProSettings(btnCultBack.clProSettings);

  subForm.AddNewEvent(btnCultBack, tbeOnClick, 'GoToMain');

  

  subForm.Run;

}

burada bahsettigimiz degisken tanimlamalarini ve form olusturmanin yapildigindan emin olmak icin uHR kodunu kontrol eder misin kod;  var

  subForm : TclForm;

  currentUser : String;

  pnlHRMain, pnlRecruit, pnlTraining, pnlPerf, pnlPayroll, pnlCulture : TClProPanel;

  scrollMain, scrollRecruit, scrollTraining, scrollPerf, scrollPayroll, scrollCulture : TclVertScrollBox;

  navBar : TclHorzScrollBox;

  lblHRMainTitle, lblHRSub : TClProLabel;

  btnGoRecruit, btnGoTraining, btnGoPerf, btnGoPayroll, btnGoCulture, btnGoAdmin, btnGoLogout : TClProButton;

  pnlSum1, pnlSum2 : TClProPanel;

  lblSum1, lblSum2 : TClProLabel;

  wbHRCharts : TclWebBrowser;

  lblRecruitTitle, lblRecruitSub : TClProLabel;

  memRecruit : TclMemo;

  btnRecruitAction, btnRecruitBack : TClProButton;

  lblTrainTitle, lblTrainSub : TClProLabel;

  memTrain : TclMemo;

  btnTrainAction, btnTrainBack : TClProButton;

  lblPerfTitle, lblPerfSub : TClProLabel;

  memPerf : TclMemo;

  btnPerfAction, btnPerfBack : TClProButton;

  lblPayTitle, lblPaySub : TClProLabel;

  memPay : TclMemo;

  btnPayAction, btnPayBack : TClProButton;

  lblCultTitle, lblCultSub : TClProLabel;

  memCult : TclMemo;

  btnCultAction, btnCultBack : TClProButton;

void HideAllPanels;

{

  pnlHRMain.Visible = False;

  pnlRecruit.Visible = False;

  pnlTraining.Visible = False;

  pnlPerf.Visible = False;

  pnlPayroll.Visible = False;

  pnlCulture.Visible = False;

}

void GoToMain;

{

  HideAllPanels;

  pnlHRMain.Visible = True;

}

void GoToLogout;

{

  subForm.clHide;

}

void ShowRecruitPanel; { HideAllPanels; pnlRecruit.Visible = True; }

void ShowTrainingPanel; { HideAllPanels; pnlTraining.Visible = True; }

void ShowPerfPanel; { HideAllPanels; pnlPerf.Visible = True; }

void ShowPayrollPanel; { HideAllPanels; pnlPayroll.Visible = True; }

void ShowCulturePanel; { HideAllPanels; pnlCulture.Visible = True; }

void GoToAdminUnit;

var 

  adminUnit : TclUnit;

{

  adminUnit = TclUnit.Create;

  adminUnit.UnitName = 'uAdmin';

  adminUnit.CallerForm = subForm;

  adminUnit.Run;

}

void OnMockAction;

{

  ShowMessage('Islem basariyla kaydedildi.');

}

void CreateHRChartsHTML;

var

  html : TclStringList;

  htmlPath : String;

{

  htmlPath = Clomosy.AppFilesPath + 'hr_charts.html';

  html = Clomosy.StringListNew;

  try

    html.Add('<!DOCTYPE html><html><head><meta charset="utf-8"><meta name="viewport" content="width=device-width,initial-scale=1">');

    html.Add('<script src="https://cdn.jsdelivr.net/npm/chart.js"></script>');

    html.Add('<style>body{margin:0;padding:15px;background-color:#100e17;color:#fff;font-family:sans-serif;} .chart-container{position:relative;height:220px;width:100%;margin-bottom:30px;} h3{text-align:center;font-size:15px;color:#f39c12;margin-bottom:10px;font-weight:bold;}</style></head><body>');

    html.Add('<h3>Departmanlara Gore Calisan Dagilimi</h3>');

    html.Add('<div class="chart-container"><canvas id="pieChart"></canvas></div>');

    html.Add('<h3>Yillik Personel Devir Orani</h3>');

    html.Add('<div class="chart-container"><canvas id="barChart"></canvas></div>');

    html.Add('<script>');

    html.Add('Chart.defaults.color = "#ecf0f1";');

    html.Add('new Chart(document.getElementById("pieChart"), {');

    html.Add('  type: "doughnut",');

    html.Add('  data: {');

    html.Add('    labels: ["Saha Satis", "Depo/Lojistik", "Muhasebe", "Yonetim/IK"],');

    html.Add('    datasets: [{ data: [45, 30, 15, 10], backgroundColor: ["#2980b9", "#f1c40f", "#8e44ad", "#e74c3c"], borderWidth: 0, hoverOffset: 4 }]');

    html.Add('  },');

    html.Add('  options: { responsive: true, maintainAspectRatio: false, plugins: { legend: { position: "bottom" } } }');

    html.Add('});');

    html.Add('new Chart(document.getElementById("barChart"), {');

    html.Add('  type: "bar",');

    html.Add('  data: {');

    html.Add('    labels: ["Oca", "Sub", "Mar", "Nis", "May", "Haz"],');

    html.Add('    datasets: [');

    html.Add('      { label: "Ise Alinan", data: [5, 2, 8, 3, 4, 6], backgroundColor: "#27ae60", borderRadius: 4 },');

    html.Add('      { label: "Isten Ayrilan", data: [2, 1, 3, 1, 2, 4], backgroundColor: "#c0392b", borderRadius: 4 }');

    html.Add('    ]');

    html.Add('  },');

    html.Add('  options: { responsive: true, maintainAspectRatio: false, plugins: { legend: { position: "top" } } }');

    html.Add('});');

    html.Add('</script></body></html>');

    html.SaveToFile(htmlPath, 0);

  finally

    html.Free;

  end

}

{

  currentUser = Clomosy.GlobalVariableString;

  subForm = TclForm.Create(Self);

  subForm.SetFormColor('#100e17', '', clGNone);

  

  CreateHRChartsHTML;

  

  pnlHRMain = subForm.AddNewProPanel(subForm, 'pnlHRMain');

  clComponent.SetupComponent(pnlHRMain, '{"Align": "Client", "BackgroundColor": "#100e17"}');

  

  navBar = subForm.AddNewHorzScrollBox(pnlHRMain, 'navBar');

  navBar.Align = alBottom;

  navBar.Height = 70;

  

  btnGoRecruit = subForm.AddNewProButton(navBar, 'btnGoRecruit', 'Ise Alim');

  clComponent.SetupComponent(btnGoRecruit, '{"Align": "Left", "Width": 80, "MarginLeft": 10, "MarginRight": 5, "MarginTop": 10, "MarginBottom": 15, "BackgroundColor": "#2980b9", "TextColor": "#ffffff", "TextSize": 13, "TextBold": "yes", "RoundWidth": 8, "RoundHeight": 8}');

  subForm.AddNewEvent(btnGoRecruit, tbeOnClick, 'ShowRecruitPanel');

  

  btnGoTraining = subForm.AddNewProButton(navBar, 'btnGoTraining', 'Egitim');

  clComponent.SetupComponent(btnGoTraining, '{"Align": "Left", "Width": 80, "MarginRight": 5, "MarginTop": 10, "MarginBottom": 15, "BackgroundColor": "#f39c12", "TextColor": "#ffffff", "TextSize": 13, "TextBold": "yes", "RoundWidth": 8, "RoundHeight": 8}');

  subForm.AddNewEvent(btnGoTraining, tbeOnClick, 'ShowTrainingPanel');

  

  btnGoPerf = subForm.AddNewProButton(navBar, 'btnGoPerf', 'Performans');

  clComponent.SetupComponent(btnGoPerf, '{"Align": "Left", "Width": 90, "MarginRight": 5, "MarginTop": 10, "MarginBottom": 15, "BackgroundColor": "#8e44ad", "TextColor": "#ffffff", "TextSize": 13, "TextBold": "yes", "RoundWidth": 8, "RoundHeight": 8}');

  subForm.AddNewEvent(btnGoPerf, tbeOnClick, 'ShowPerfPanel');

  

  btnGoPayroll = subForm.AddNewProButton(navBar, 'btnGoPayroll', 'Maas/Prim');

  clComponent.SetupComponent(btnGoPayroll, '{"Align": "Left", "Width": 100, "MarginRight": 5, "MarginTop": 10, "MarginBottom": 15, "BackgroundColor": "#27ae60", "TextColor": "#ffffff", "TextSize": 13, "TextBold": "yes", "RoundWidth": 8, "RoundHeight": 8}');

  subForm.AddNewEvent(btnGoPayroll, tbeOnClick, 'ShowPayrollPanel');

  

  btnGoCulture = subForm.AddNewProButton(navBar, 'btnGoCulture', 'Sikayetler');

  clComponent.SetupComponent(btnGoCulture, '{"Align": "Left", "Width": 100, "MarginRight": 5, "MarginTop": 10, "MarginBottom": 15, "BackgroundColor": "#c0392b", "TextColor": "#ffffff", "TextSize": 13, "TextBold": "yes", "RoundWidth": 8, "RoundHeight": 8}');

  subForm.AddNewEvent(btnGoCulture, tbeOnClick, 'ShowCulturePanel');

  

  btnGoAdmin = subForm.AddNewProButton(navBar, 'btnGoAdmin', 'Yonetici');

  clComponent.SetupComponent(btnGoAdmin, '{"Align": "Left", "Width": 80, "MarginRight": 5, "MarginTop": 10, "MarginBottom": 15, "BackgroundColor": "#34495e", "TextColor": "#ffffff", "TextSize": 13, "TextBold": "yes", "RoundWidth": 8, "RoundHeight": 8}');

  subForm.AddNewEvent(btnGoAdmin, tbeOnClick, 'GoToAdminUnit');

  

  btnGoLogout = subForm.AddNewProButton(navBar, 'btnGoLogout', 'Cikis');

  clComponent.SetupComponent(btnGoLogout, '{"Align": "Left", "Width": 80, "MarginRight": 10, "MarginTop": 10, "MarginBottom": 15, "BackgroundColor": "#e74c3c", "TextColor": "#ffffff", "TextSize": 13, "TextBold": "yes", "RoundWidth": 8, "RoundHeight": 8}');

  subForm.AddNewEvent(btnGoLogout, tbeOnClick, 'GoToLogout');

  

  scrollMain = subForm.AddNewVertScrollBox(pnlHRMain, 'scrollMain');

  scrollMain.Align = alClient;

  

  lblHRMainTitle = subForm.AddNewProLabel(scrollMain, 'lblHRMainTitle', 'INSAN KAYNAKLARI MERKEZI');

  clComponent.SetupComponent(lblHRMainTitle, '{"Align": "Top", "MarginTop": 25, "MarginLeft": 20, "MarginRight": 20, "Height": 40, "TextColor": "#ffffff", "TextSize": 20, "TextBold": "yes", "TextHorizontalAlign": "center", "WordWrap": "yes"}');

  

  lblHRSub = subForm.AddNewProLabel(scrollMain, 'lblHRSub', 'Oryantasyon, egitim, performans ve maas surecleri');

  clComponent.SetupComponent(lblHRSub, '{"Align": "Top", "MarginTop": 5, "MarginLeft": 20, "MarginRight": 20, "Height": 40, "TextColor": "#95a5a6", "TextSize": 13, "TextHorizontalAlign": "center", "WordWrap": "yes"}');

  

  pnlSum1 = subForm.AddNewProPanel(scrollMain, 'pnlSum1');

  clComponent.SetupComponent(pnlSum1, '{"Align": "Top", "MarginTop": 15, "MarginLeft": 20, "MarginRight": 20, "Height": 50, "BackgroundColor": "#2980b9", "RoundWidth": 8, "RoundHeight": 8}');

  lblSum1 = subForm.AddNewProLabel(pnlSum1, 'lblSum1', 'Aktif Calisan Sayisi: 142');

  clComponent.SetupComponent(lblSum1, '{"Align": "Client", "MarginLeft": 15, "TextColor": "#ffffff", "TextSize": 14, "TextBold": "yes", "TextVerticalAlign": "center"}');

  

  pnlSum2 = subForm.AddNewProPanel(scrollMain, 'pnlSum2');

  clComponent.SetupComponent(pnlSum2, '{"Align": "Top", "MarginTop": 10, "MarginLeft": 20, "MarginRight": 20, "Height": 50, "BackgroundColor": "#e74c3c", "RoundWidth": 8, "RoundHeight": 8}');

  lblSum2 = subForm.AddNewProLabel(pnlSum2, 'lblSum2', 'Bekleyen Sikayet / Bildirim: 2');

  clComponent.SetupComponent(lblSum2, '{"Align": "Client", "MarginLeft": 15, "TextColor": "#ffffff", "TextSize": 14, "TextBold": "yes", "TextVerticalAlign": "center"}');

  

  wbHRCharts = subForm.AddNewWebBrowser(scrollMain, 'wbHRCharts');

  wbHRCharts.Align = alTop;

  wbHRCharts.Margins.Top = 20; wbHRCharts.Margins.Left = 10; wbHRCharts.Margins.Right = 10;

  wbHRCharts.Height = 600;

  wbHRCharts.Navigate('file://' + Clomosy.AppFilesPath + 'hr_charts.html');

  

  pnlRecruit = subForm.AddNewProPanel(subForm, 'pnlRecruit');

  clComponent.SetupComponent(pnlRecruit, '{"Align": "Client", "BackgroundColor": "#100e17"}');

  pnlRecruit.Visible = False;

  scrollRecruit = subForm.AddNewVertScrollBox(pnlRecruit, 'scrollRecruit');

  scrollRecruit.Align = alClient;

  

  lblRecruitTitle = subForm.AddNewProLabel(scrollRecruit, 'lblRecruitTitle', 'ISE ALIM VE ORYANTASYON');

  clComponent.SetupComponent(lblRecruitTitle, '{"Align": "Top", "MarginTop": 25, "MarginLeft": 20, "MarginRight": 20, "Height": 35, "TextColor": "#3498db", "TextSize": 18, "TextBold": "yes", "TextHorizontalAlign": "center"}');

  

  lblRecruitSub = subForm.AddNewProLabel(scrollRecruit, 'lblRecruitSub', 'Acik Pozisyonlar ve Uyum Sureci Takibi');

  clComponent.SetupComponent(lblRecruitSub, '{"Align": "Top", "MarginTop": 10, "MarginLeft": 20, "MarginRight": 20, "Height": 20, "TextColor": "#f1c40f", "TextSize": 14, "TextBold": "yes"}');

  

  memRecruit = subForm.AddNewMemo(scrollRecruit, 'memRecruit', '');

  clComponent.SetupComponent(memRecruit, '{"BackgroundColor": "#2c3e50", "TextColor": "#ecf0f1"}');

  memRecruit.Align = alTop; memRecruit.Margins.Top = 5; memRecruit.Margins.Left = 20; memRecruit.Margins.Right = 20;

  memRecruit.Height = 120; memRecruit.ReadOnly = True;

  memRecruit.Lines.Add('[ACIK POZISYON] Bolge Satis Muduru (2 Kisi)');

  memRecruit.Lines.Add('[Mulakati] Ayse Yilmaz - IK Mulakati (Bugun 14:00)');

  memRecruit.Lines.Add('[Oryantasyon] Mehmet Kaya - 2. Gun Saha Egitimi');

  

  btnRecruitAction = subForm.AddNewProButton(scrollRecruit, 'btnRecruitAction', 'Yeni Ilan Olustur');

  clComponent.SetupComponent(btnRecruitAction, '{"Align": "Top", "MarginTop": 15, "MarginLeft": 20, "MarginRight": 20, "Height": 45, "BackgroundColor": "#2980b9", "TextColor": "#ffffff", "TextSize": 14, "TextBold": "yes", "RoundWidth": 8, "RoundHeight": 8}');

  subForm.AddNewEvent(btnRecruitAction, tbeOnClick, 'OnMockAction');

  

  btnRecruitBack = subForm.AddNewProButton(scrollRecruit, 'btnRecruitBack', 'Geri Don');

  clComponent.SetupComponent(btnRecruitBack, '{"Align": "Top", "MarginTop": 20, "MarginLeft": 20, "MarginRight": 20, "Height": 45, "BackgroundColor": "#7f8c8d", "TextColor": "#ffffff", "TextSize": 15, "TextBold": "yes", "RoundWidth": 8, "RoundHeight": 8}');

  subForm.AddNewEvent(btnRecruitBack, tbeOnClick, 'GoToMain');

  

  pnlTraining = subForm.AddNewProPanel(subForm, 'pnlTraining');

  clComponent.SetupComponent(pnlTraining, '{"Align": "Client", "BackgroundColor": "#100e17"}');

  pnlTraining.Visible = False;

  scrollTraining = subForm.AddNewVertScrollBox(pnlTraining, 'scrollTraining');

  scrollTraining.Align = alClient;

  

  lblTrainTitle = subForm.AddNewProLabel(scrollTraining, 'lblTrainTitle', 'EGITIM VE GELISTIRME');

  clComponent.SetupComponent(lblTrainTitle, '{"Align": "Top", "MarginTop": 25, "MarginLeft": 20, "MarginRight": 20, "Height": 35, "TextColor": "#f39c12", "TextSize": 18, "TextBold": "yes", "TextHorizontalAlign": "center"}');

  

  lblTrainSub = subForm.AddNewProLabel(scrollTraining, 'lblTrainSub', 'Planlanan Egitimler ve Katilim Durumu');

  clComponent.SetupComponent(lblTrainSub, '{"Align": "Top", "MarginTop": 10, "MarginLeft": 20, "MarginRight": 20, "Height": 20, "TextColor": "#f1c40f", "TextSize": 14, "TextBold": "yes"}');

  

  memTrain = subForm.AddNewMemo(scrollTraining, 'memTrain', '');

  clComponent.SetupComponent(memTrain, '{"BackgroundColor": "#2c3e50", "TextColor": "#ecf0f1"}');

  memTrain.Align = alTop; memTrain.Margins.Top = 5; memTrain.Margins.Left = 20; memTrain.Margins.Right = 20;

  memTrain.Height = 120; memTrain.ReadOnly = True;

  memTrain.Lines.Add('- Satis Teknikleri 101 (25 Temmuz) | Katilim: 20 Kisi');

  memTrain.Lines.Add('- Ileri Seviye Excel (1 Agustos) | Katilim: 15 Kisi');

  memTrain.Lines.Add('- Sirket Ici Egitim Tamamlanma Orani: %85');

  

  btnTrainAction = subForm.AddNewProButton(scrollTraining, 'btnTrainAction', 'Yeni Egitim Planla');

  clComponent.SetupComponent(btnTrainAction, '{"Align": "Top", "MarginTop": 15, "MarginLeft": 20, "MarginRight": 20, "Height": 45, "BackgroundColor": "#d35400", "TextColor": "#ffffff", "TextSize": 14, "TextBold": "yes", "RoundWidth": 8, "RoundHeight": 8}');

  subForm.AddNewEvent(btnTrainAction, tbeOnClick, 'OnMockAction');

  

  btnTrainBack = subForm.AddNewProButton(scrollTraining, 'btnTrainBack', 'Geri Don');

  clComponent.SetupComponent(btnTrainBack, '{"Align": "Top", "MarginTop": 20, "MarginLeft": 20, "MarginRight": 20, "Height": 45, "BackgroundColor": "#7f8c8d", "TextColor": "#ffffff", "TextSize": 15, "TextBold": "yes", "RoundWidth": 8, "RoundHeight": 8}');

  subForm.AddNewEvent(btnTrainBack, tbeOnClick, 'GoToMain');

  

  pnlPerf = subForm.AddNewProPanel(subForm, 'pnlPerf');

  clComponent.SetupComponent(pnlPerf, '{"Align": "Client", "BackgroundColor": "#100e17"}');

  pnlPerf.Visible = False;

  scrollPerf = subForm.AddNewVertScrollBox(pnlPerf, 'scrollPerf');

  scrollPerf.Align = alClient;

  

  lblPerfTitle = subForm.AddNewProLabel(scrollPerf, 'lblPerfTitle', 'PERFORMANS YONETIMI');

  clComponent.SetupComponent(lblPerfTitle, '{"Align": "Top", "MarginTop": 25, "MarginLeft": 20, "MarginRight": 20, "Height": 35, "TextColor": "#9b59b6", "TextSize": 18, "TextBold": "yes", "TextHorizontalAlign": "center"}');

  

  lblPerfSub = subForm.AddNewProLabel(scrollPerf, 'lblPerfSub', 'Hedef Gerceklesme ve Terfi Analizi');

  clComponent.SetupComponent(lblPerfSub, '{"Align": "Top", "MarginTop": 10, "MarginLeft": 20, "MarginRight": 20, "Height": 20, "TextColor": "#f1c40f", "TextSize": 14, "TextBold": "yes"}');

  

  memPerf = subForm.AddNewMemo(scrollPerf, 'memPerf', '');

  clComponent.SetupComponent(memPerf, '{"BackgroundColor": "#2c3e50", "TextColor": "#ecf0f1"}');

  memPerf.Align = alTop; memPerf.Margins.Top = 5; memPerf.Margins.Left = 20; memPerf.Margins.Right = 20;

  memPerf.Height = 120; memPerf.ReadOnly = True;

  memPerf.Lines.Add('Saha Satis Ekibi Hedef Gerceklesme Orani: %92');

  memPerf.Lines.Add('Lojistik Ekibi Verimlilik Orani: %88');

  memPerf.Lines.Add('[DIKKAT] 3 personel terfi degerlendirmesinde.');

  

  btnPerfAction = subForm.AddNewProButton(scrollPerf, 'btnPerfAction', 'Donem Sonu Degerlendirmesi');

  clComponent.SetupComponent(btnPerfAction, '{"Align": "Top", "MarginTop": 15, "MarginLeft": 20, "MarginRight": 20, "Height": 45, "BackgroundColor": "#8e44ad", "TextColor": "#ffffff", "TextSize": 14, "TextBold": "yes", "RoundWidth": 8, "RoundHeight": 8}');

  subForm.AddNewEvent(btnPerfAction, tbeOnClick, 'OnMockAction');

  

  btnPerfBack = subForm.AddNewProButton(scrollPerf, 'btnPerfBack', 'Geri Don');

  clComponent.SetupComponent(btnPerfBack, '{"Align": "Top", "MarginTop": 20, "MarginLeft": 20, "MarginRight": 20, "Height": 45, "BackgroundColor": "#7f8c8d", "TextColor": "#ffffff", "TextSize": 15, "TextBold": "yes", "RoundWidth": 8, "RoundHeight": 8}');

  subForm.AddNewEvent(btnPerfBack, tbeOnClick, 'GoToMain');

  

  pnlPayroll = subForm.AddNewProPanel(subForm, 'pnlPayroll');

  clComponent.SetupComponent(pnlPayroll, '{"Align": "Client", "BackgroundColor": "#100e17"}');

  pnlPayroll.Visible = False;

  scrollPayroll = subForm.AddNewVertScrollBox(pnlPayroll, 'scrollPayroll');

  scrollPayroll.Align = alClient;

  

  lblPayTitle = subForm.AddNewProLabel(scrollPayroll, 'lblPayTitle', 'MAAS VE PRIM YONETIMI');

  clComponent.SetupComponent(lblPayTitle, '{"Align": "Top", "MarginTop": 25, "MarginLeft": 20, "MarginRight": 20, "Height": 35, "TextColor": "#2ecc71", "TextSize": 18, "TextBold": "yes", "TextHorizontalAlign": "center"}');

  

  lblPaySub = subForm.AddNewProLabel(scrollPayroll, 'lblPaySub', 'Aylik Odemeler ve Sigorta Islemleri');

  clComponent.SetupComponent(lblPaySub, '{"Align": "Top", "MarginTop": 10, "MarginLeft": 20, "MarginRight": 20, "Height": 20, "TextColor": "#f1c40f", "TextSize": 14, "TextBold": "yes"}');

  

  memPay = subForm.AddNewMemo(scrollPayroll, 'memPay', '');

  clComponent.SetupComponent(memPay, '{"BackgroundColor": "#2c3e50", "TextColor": "#ecf0f1"}');

  memPay.Align = alTop; memPay.Margins.Top = 5; memPay.Margins.Left = 20; memPay.Margins.Right = 20;

  memPay.Height = 120; memPay.ReadOnly = True;

  memPay.Lines.Add('- Agustos Donemi Maas Hesaplamalari: ONAYLANDI');

  memPay.Lines.Add('- Saha Ekibi Prim Dagitimi: ONAY BEKLIYOR');

  memPay.Lines.Add('- Multinet / Arac Yakit Karti Yuklemeleri: BEKLEMEDE');

  

  btnPayAction = subForm.AddNewProButton(scrollPayroll, 'btnPayAction', 'Odemeleri Finansa Ilet');

  clComponent.SetupComponent(btnPayAction, '{"Align": "Top", "MarginTop": 15, "MarginLeft": 20, "MarginRight": 20, "Height": 45, "BackgroundColor": "#27ae60", "TextColor": "#ffffff", "TextSize": 14, "TextBold": "yes", "RoundWidth": 8, "RoundHeight": 8}');

  subForm.AddNewEvent(btnPayAction, tbeOnClick, 'OnMockAction');

  

  btnPayBack = subForm.AddNewProButton(scrollPayroll, 'btnPayBack', 'Geri Don');

  clComponent.SetupComponent(btnPayBack, '{"Align": "Top", "MarginTop": 20, "MarginLeft": 20, "MarginRight": 20, "Height": 45, "BackgroundColor": "#7f8c8d", "TextColor": "#ffffff", "TextSize": 15, "TextBold": "yes", "RoundWidth": 8, "RoundHeight": 8}');

  subForm.AddNewEvent(btnPayBack, tbeOnClick, 'GoToMain');

  

  pnlCulture = subForm.AddNewProPanel(subForm, 'pnlCulture');

  clComponent.SetupComponent(pnlCulture, '{"Align": "Client", "BackgroundColor": "#100e17"}');

  pnlCulture.Visible = False;

  scrollCulture = subForm.AddNewVertScrollBox(pnlCulture, 'scrollCulture');

  scrollCulture.Align = alClient;

  

  lblCultTitle = subForm.AddNewProLabel(scrollCulture, 'lblCultTitle', 'SIKAYET VE BILDIRIM MERKEZI');

  clComponent.SetupComponent(lblCultTitle, '{"Align": "Top", "MarginTop": 25, "MarginLeft": 20, "MarginRight": 20, "Height": 35, "TextColor": "#e74c3c", "TextSize": 18, "TextBold": "yes", "TextHorizontalAlign": "center"}');

  

  lblCultSub = subForm.AddNewProLabel(scrollCulture, 'lblCultSub', 'Personelden Gelen Bildirimler');

  clComponent.SetupComponent(lblCultSub, '{"Align": "Top", "MarginTop": 10, "MarginLeft": 20, "MarginRight": 20, "Height": 20, "TextColor": "#f1c40f", "TextSize": 14, "TextBold": "yes"}');

  

  memCult = subForm.AddNewMemo(scrollCulture, 'memCult', '');

  clComponent.SetupComponent(memCult, '{"BackgroundColor": "#2c3e50", "TextColor": "#ecf0f1"}');

  memCult.Align = alTop; memCult.Margins.Top = 5; memCult.Margins.Left = 20; memCult.Margins.Right = 20;

  memCult.Height = 150; memCult.ReadOnly = True;

  memCult.Lines.Add('GUNCEL SIKAYETLER');

  memCult.Lines.Add('1. Yemekhane kalitesi son gunlerde dustu (Gonderen: Saha Ekibi)');

  memCult.Lines.Add('2. Mobbing bildirimi: Isimsiz (ACIL INCELEME GEREKIYOR)');

  

  btnCultAction = subForm.AddNewProButton(scrollCulture, 'btnCultAction', 'Sikayetleri Incelemeye Al');

  clComponent.SetupComponent(btnCultAction, '{"Align": "Top", "MarginTop": 15, "MarginLeft": 20, "MarginRight": 20, "Height": 45, "BackgroundColor": "#c0392b", "TextColor": "#ffffff", "TextSize": 14, "TextBold": "yes", "RoundWidth": 8, "RoundHeight": 8}');

  subForm.AddNewEvent(btnCultAction, tbeOnClick, 'OnMockAction');

  

  btnCultBack = subForm.AddNewProButton(scrollCulture, 'btnCultBack', 'Geri Don');

  clComponent.SetupComponent(btnCultBack, '{"Align": "Top", "MarginTop": 20, "MarginLeft": 20, "MarginRight": 20, "Height": 45, "BackgroundColor": "#7f8c8d", "TextColor": "#ffffff", "TextSize": 15, "TextBold": "yes", "RoundWidth": 8, "RoundHeight": 8}');

  subForm.AddNewEvent(btnCultBack, tbeOnClick, 'GoToMain');

  

  subForm.Run;

}                                                                               

onceki paylastigim kod yalis kod hocam 264 hatasi aldigim bu kod

                                       

var

  subForm : TclForm;

  currentUser : String;

  pnlHRMain, pnlRecruit, pnlTraining, pnlPerf, pnlPayroll, pnlCulture : TClProPanel;

  scrollMain, scrollRecruit, scrollTraining, scrollPerf, scrollPayroll, scrollCulture : TclVertScrollBox;

  navBar : TclHorzScrollBox;

  lblHRMainTitle, lblHRSub : TClProLabel;

  btnGoRecruit, btnGoTraining, btnGoPerf, btnGoPayroll, btnGoCulture, btnGoAdmin, btnGoLogout : TClProButton;

  pnlSum1, pnlSum2 : TClProPanel;

  lblSum1, lblSum2 : TClProLabel;

  wbHRCharts : TclWebBrowser;

  lblRecruitTitle, lblRecruitSub : TClProLabel;

  memRecruit : TclMemo;

  btnRecruitAction, btnRecruitBack : TClProButton;

  lblTrainTitle, lblTrainSub : TClProLabel;

  memTrain : TclMemo;

  btnTrainAction, btnTrainBack : TClProButton;

  lblPerfTitle, lblPerfSub : TClProLabel;

  memPerf : TclMemo;

  btnPerfAction, btnPerfBack : TClProButton;

  lblPayTitle, lblPaySub : TClProLabel;

  memPay : TclMemo;

  btnPayAction, btnPayBack : TClProButton;

  lblCultTitle, lblCultSub : TClProLabel;

  memCult : TclMemo;

  btnCultAction, btnCultBack : TClProButton;

void HideAllPanels;

{

  pnlHRMain.Visible = False;

  pnlRecruit.Visible = False;

  pnlTraining.Visible = False;

  pnlPerf.Visible = False;

  pnlPayroll.Visible = False;

  pnlCulture.Visible = False;

}

void GoToMain;

{

  HideAllPanels;

  pnlHRMain.Visible = True;

}

void GoToLogout;

{

  subForm.clHide;

}

void ShowRecruitPanel; { HideAllPanels; pnlRecruit.Visible = True; }

void ShowTrainingPanel; { HideAllPanels; pnlTraining.Visible = True; }

void ShowPerfPanel; { HideAllPanels; pnlPerf.Visible = True; }

void ShowPayrollPanel; { HideAllPanels; pnlPayroll.Visible = True; }

void ShowCulturePanel; { HideAllPanels; pnlCulture.Visible = True; }

void GoToAdminUnit;

var 

  adminUnit : TclUnit;

{

  adminUnit = TclUnit.Create;

  adminUnit.UnitName = 'uAdmin';

  adminUnit.CallerForm = subForm;

  adminUnit.Run;

}

void OnMockAction;

{

  ShowMessage('Islem basariyla kaydedildi.');

}

void CreateHRChartsHTML;

var

  html : TclStringList;

  htmlPath : String;

{

  htmlPath = Clomosy.AppFilesPath + 'hr_charts.html';

  html = Clomosy.StringListNew;

  try

    html.Add('<!DOCTYPE html><html><head><meta charset="utf-8"><meta name="viewport" content="width=device-width,initial-scale=1">');

    html.Add('<script src="https://cdn.jsdelivr.net/npm/chart.js"></script>');

    html.Add('<style>body{margin:0;padding:15px;background-color:#100e17;color:#fff;font-family:sans-serif;} .chart-container{position:relative;height:220px;width:100%;margin-bottom:30px;} h3{text-align:center;font-size:15px;color:#f39c12;margin-bottom:10px;font-weight:bold;}</style></head><body>');

    html.Add('<h3>Departmanlara Gore Calisan Dagilimi</h3>');

    html.Add('<div class="chart-container"><canvas id="pieChart"></canvas></div>');

    html.Add('<h3>Yillik Personel Devir Orani</h3>');

    html.Add('<div class="chart-container"><canvas id="barChart"></canvas></div>');

    html.Add('<script>');

    html.Add('Chart.defaults.color = "#ecf0f1";');

    html.Add('new Chart(document.getElementById("pieChart"), {');

    html.Add('  type: "doughnut",');

    html.Add('  data: {');

    html.Add('    labels: ["Saha Satis", "Depo/Lojistik", "Muhasebe", "Yonetim/IK"],');

    html.Add('    datasets: [{ data: [45, 30, 15, 10], backgroundColor: ["#2980b9", "#f1c40f", "#8e44ad", "#e74c3c"], borderWidth: 0, hoverOffset: 4 }]');

    html.Add('  },');

    html.Add('  options: { responsive: true, maintainAspectRatio: false, plugins: { legend: { position: "bottom" } } }');

    html.Add('});');

    html.Add('new Chart(document.getElementById("barChart"), {');

    html.Add('  type: "bar",');

    html.Add('  data: {');

    html.Add('    labels: ["Oca", "Sub", "Mar", "Nis", "May", "Haz"],');

    html.Add('    datasets: [');

    html.Add('      { label: "Ise Alinan", data: [5, 2, 8, 3, 4, 6], backgroundColor: "#27ae60", borderRadius: 4 },');

    html.Add('      { label: "Isten Ayrilan", data: [2, 1, 3, 1, 2, 4], backgroundColor: "#c0392b", borderRadius: 4 }');

    html.Add('    ]');

    html.Add('  },');

    html.Add('  options: { responsive: true, maintainAspectRatio: false, plugins: { legend: { position: "top" } } }');

    html.Add('});');

    html.Add('</script></body></html>');

    html.SaveToFile(htmlPath, 0);

  finally

    html.Free;

  end

}

{

  currentUser = Clomosy.GlobalVariableString;

  subForm = TclForm.Create(Self);

  subForm.SetFormColor('#100e17', '', clGNone);

  

  CreateHRChartsHTML;

  

  pnlHRMain = subForm.AddNewProPanel(subForm, 'pnlHRMain');

  clComponent.SetupComponent(pnlHRMain, '{"Align": "Client", "BackgroundColor": "#100e17"}');

  

  navBar = subForm.AddNewHorzScrollBox(pnlHRMain, 'navBar');

  navBar.Align = alBottom;

  navBar.Height = 70;

  

  btnGoRecruit = subForm.AddNewProButton(navBar, 'btnGoRecruit', 'Ise Alim');

  clComponent.SetupComponent(btnGoRecruit, '{"Align": "Left", "Width": 80, "MarginLeft": 10, "MarginRight": 5, "MarginTop": 10, "MarginBottom": 15, "BackgroundColor": "#2980b9", "TextColor": "#ffffff", "TextSize": 13, "TextBold": "yes", "RoundWidth": 8, "RoundHeight": 8}');

  subForm.AddNewEvent(btnGoRecruit, tbeOnClick, 'ShowRecruitPanel');

  

  btnGoTraining = subForm.AddNewProButton(navBar, 'btnGoTraining', 'Egitim');

  clComponent.SetupComponent(btnGoTraining, '{"Align": "Left", "Width": 80, "MarginRight": 5, "MarginTop": 10, "MarginBottom": 15, "BackgroundColor": "#f39c12", "TextColor": "#ffffff", "TextSize": 13, "TextBold": "yes", "RoundWidth": 8, "RoundHeight": 8}');

  subForm.AddNewEvent(btnGoTraining, tbeOnClick, 'ShowTrainingPanel');

  

  btnGoPerf = subForm.AddNewProButton(navBar, 'btnGoPerf', 'Performans');

  clComponent.SetupComponent(btnGoPerf, '{"Align": "Left", "Width": 90, "MarginRight": 5, "MarginTop": 10, "MarginBottom": 15, "BackgroundColor": "#8e44ad", "TextColor": "#ffffff", "TextSize": 13, "TextBold": "yes", "RoundWidth": 8, "RoundHeight": 8}');

  subForm.AddNewEvent(btnGoPerf, tbeOnClick, 'ShowPerfPanel');

  

  btnGoPayroll = subForm.AddNewProButton(navBar, 'btnGoPayroll', 'Maas/Prim');

  clComponent.SetupComponent(btnGoPayroll, '{"Align": "Left", "Width": 100, "MarginRight": 5, "MarginTop": 10, "MarginBottom": 15, "BackgroundColor": "#27ae60", "TextColor": "#ffffff", "TextSize": 13, "TextBold": "yes", "RoundWidth": 8, "RoundHeight": 8}');

  subForm.AddNewEvent(btnGoPayroll, tbeOnClick, 'ShowPayrollPanel');

  

  btnGoCulture = subForm.AddNewProButton(navBar, 'btnGoCulture', 'Sikayetler');

  clComponent.SetupComponent(btnGoCulture, '{"Align": "Left", "Width": 100, "MarginRight": 5, "MarginTop": 10, "MarginBottom": 15, "BackgroundColor": "#c0392b", "TextColor": "#ffffff", "TextSize": 13, "TextBold": "yes", "RoundWidth": 8, "RoundHeight": 8}');

  subForm.AddNewEvent(btnGoCulture, tbeOnClick, 'ShowCulturePanel');

  

  btnGoAdmin = subForm.AddNewProButton(navBar, 'btnGoAdmin', 'Yonetici');

  clComponent.SetupComponent(btnGoAdmin, '{"Align": "Left", "Width": 80, "MarginRight": 5, "MarginTop": 10, "MarginBottom": 15, "BackgroundColor": "#34495e", "TextColor": "#ffffff", "TextSize": 13, "TextBold": "yes", "RoundWidth": 8, "RoundHeight": 8}');

  subForm.AddNewEvent(btnGoAdmin, tbeOnClick, 'GoToAdminUnit');

  

  btnGoLogout = subForm.AddNewProButton(navBar, 'btnGoLogout', 'Cikis');

  clComponent.SetupComponent(btnGoLogout, '{"Align": "Left", "Width": 80, "MarginRight": 10, "MarginTop": 10, "MarginBottom": 15, "BackgroundColor": "#e74c3c", "TextColor": "#ffffff", "TextSize": 13, "TextBold": "yes", "RoundWidth": 8, "RoundHeight": 8}');

  subForm.AddNewEvent(btnGoLogout, tbeOnClick, 'GoToLogout');

  

  scrollMain = subForm.AddNewVertScrollBox(pnlHRMain, 'scrollMain');

  scrollMain.Align = alClient;

  

  lblHRMainTitle = subForm.AddNewProLabel(scrollMain, 'lblHRMainTitle', 'INSAN KAYNAKLARI MERKEZI');

  clComponent.SetupComponent(lblHRMainTitle, '{"Align": "Top", "MarginTop": 25, "MarginLeft": 20, "MarginRight": 20, "Height": 40, "TextColor": "#ffffff", "TextSize": 20, "TextBold": "yes", "TextHorizontalAlign": "center", "WordWrap": "yes"}');

  

  lblHRSub = subForm.AddNewProLabel(scrollMain, 'lblHRSub', 'Oryantasyon, egitim, performans ve maas surecleri');

  clComponent.SetupComponent(lblHRSub, '{"Align": "Top", "MarginTop": 5, "MarginLeft": 20, "MarginRight": 20, "Height": 40, "TextColor": "#95a5a6", "TextSize": 13, "TextHorizontalAlign": "center", "WordWrap": "yes"}');

  

  pnlSum1 = subForm.AddNewProPanel(scrollMain, 'pnlSum1');

  clComponent.SetupComponent(pnlSum1, '{"Align": "Top", "MarginTop": 15, "MarginLeft": 20, "MarginRight": 20, "Height": 50, "BackgroundColor": "#2980b9", "RoundWidth": 8, "RoundHeight": 8}');

  lblSum1 = subForm.AddNewProLabel(pnlSum1, 'lblSum1', 'Aktif Calisan Sayisi: 142');

  clComponent.SetupComponent(lblSum1, '{"Align": "Client", "MarginLeft": 15, "TextColor": "#ffffff", "TextSize": 14, "TextBold": "yes", "TextVerticalAlign": "center"}');

  

  pnlSum2 = subForm.AddNewProPanel(scrollMain, 'pnlSum2');

  clComponent.SetupComponent(pnlSum2, '{"Align": "Top", "MarginTop": 10, "MarginLeft": 20, "MarginRight": 20, "Height": 50, "BackgroundColor": "#e74c3c", "RoundWidth": 8, "RoundHeight": 8}');

  lblSum2 = subForm.AddNewProLabel(pnlSum2, 'lblSum2', 'Bekleyen Sikayet / Bildirim: 2');

  clComponent.SetupComponent(lblSum2, '{"Align": "Client", "MarginLeft": 15, "TextColor": "#ffffff", "TextSize": 14, "TextBold": "yes", "TextVerticalAlign": "center"}');

  

  wbHRCharts = subForm.AddNewWebBrowser(scrollMain, 'wbHRCharts');

  wbHRCharts.Align = alTop;

  wbHRCharts.Margins.Top = 20; wbHRCharts.Margins.Left = 10; wbHRCharts.Margins.Right = 10;

  wbHRCharts.Height = 600;

  wbHRCharts.Navigate('file://' + Clomosy.AppFilesPath + 'hr_charts.html');

  

  pnlRecruit = subForm.AddNewProPanel(subForm, 'pnlRecruit');

  clComponent.SetupComponent(pnlRecruit, '{"Align": "Client", "BackgroundColor": "#100e17"}');

  pnlRecruit.Visible = False;

  scrollRecruit = subForm.AddNewVertScrollBox(pnlRecruit, 'scrollRecruit');

  scrollRecruit.Align = alClient;

  

  lblRecruitTitle = subForm.AddNewProLabel(scrollRecruit, 'lblRecruitTitle', 'ISE ALIM VE ORYANTASYON');

  clComponent.SetupComponent(lblRecruitTitle, '{"Align": "Top", "MarginTop": 25, "MarginLeft": 20, "MarginRight": 20, "Height": 35, "TextColor": "#3498db", "TextSize": 18, "TextBold": "yes", "TextHorizontalAlign": "center"}');

  

  lblRecruitSub = subForm.AddNewProLabel(scrollRecruit, 'lblRecruitSub', 'Acik Pozisyonlar ve Uyum Sureci Takibi');

  clComponent.SetupComponent(lblRecruitSub, '{"Align": "Top", "MarginTop": 10, "MarginLeft": 20, "MarginRight": 20, "Height": 20, "TextColor": "#f1c40f", "TextSize": 14, "TextBold": "yes"}');

  

  memRecruit = subForm.AddNewMemo(scrollRecruit, 'memRecruit', '');

  clComponent.SetupComponent(memRecruit, '{"BackgroundColor": "#2c3e50", "TextColor": "#ecf0f1"}');

  memRecruit.Align = alTop; memRecruit.Margins.Top = 5; memRecruit.Margins.Left = 20; memRecruit.Margins.Right = 20;

  memRecruit.Height = 120; memRecruit.ReadOnly = True;

  memRecruit.Lines.Add('[ACIK POZISYON] Bolge Satis Muduru (2 Kisi)');

  memRecruit.Lines.Add('[Mulakati] Ayse Yilmaz - IK Mulakati (Bugun 14:00)');

  memRecruit.Lines.Add('[Oryantasyon] Mehmet Kaya - 2. Gun Saha Egitimi');

  

  btnRecruitAction = subForm.AddNewProButton(scrollRecruit, 'btnRecruitAction', 'Yeni Ilan Olustur');

  clComponent.SetupComponent(btnRecruitAction, '{"Align": "Top", "MarginTop": 15, "MarginLeft": 20, "MarginRight": 20, "Height": 45, "BackgroundColor": "#2980b9", "TextColor": "#ffffff", "TextSize": 14, "TextBold": "yes", "RoundWidth": 8, "RoundHeight": 8}');

  subForm.AddNewEvent(btnRecruitAction, tbeOnClick, 'OnMockAction');

  

  btnRecruitBack = subForm.AddNewProButton(scrollRecruit, 'btnRecruitBack', 'Geri Don');

  clComponent.SetupComponent(btnRecruitBack, '{"Align": "Top", "MarginTop": 20, "MarginLeft": 20, "MarginRight": 20, "Height": 45, "BackgroundColor": "#7f8c8d", "TextColor": "#ffffff", "TextSize": 15, "TextBold": "yes", "RoundWidth": 8, "RoundHeight": 8}');

  subForm.AddNewEvent(btnRecruitBack, tbeOnClick, 'GoToMain');

  

  pnlTraining = subForm.AddNewProPanel(subForm, 'pnlTraining');

  clComponent.SetupComponent(pnlTraining, '{"Align": "Client", "BackgroundColor": "#100e17"}');

  pnlTraining.Visible = False;

  scrollTraining = subForm.AddNewVertScrollBox(pnlTraining, 'scrollTraining');

  scrollTraining.Align = alClient;

  

  lblTrainTitle = subForm.AddNewProLabel(scrollTraining, 'lblTrainTitle', 'EGITIM VE GELISTIRME');

  clComponent.SetupComponent(lblTrainTitle, '{"Align": "Top", "MarginTop": 25, "MarginLeft": 20, "MarginRight": 20, "Height": 35, "TextColor": "#f39c12", "TextSize": 18, "TextBold": "yes", "TextHorizontalAlign": "center"}');

  

  lblTrainSub = subForm.AddNewProLabel(scrollTraining, 'lblTrainSub', 'Planlanan Egitimler ve Katilim Durumu');

  clComponent.SetupComponent(lblTrainSub, '{"Align": "Top", "MarginTop": 10, "MarginLeft": 20, "MarginRight": 20, "Height": 20, "TextColor": "#f1c40f", "TextSize": 14, "TextBold": "yes"}');

  

  memTrain = subForm.AddNewMemo(scrollTraining, 'memTrain', '');

  clComponent.SetupComponent(memTrain, '{"BackgroundColor": "#2c3e50", "TextColor": "#ecf0f1"}');

  memTrain.Align = alTop; memTrain.Margins.Top = 5; memTrain.Margins.Left = 20; memTrain.Margins.Right = 20;

  memTrain.Height = 120; memTrain.ReadOnly = True;

  memTrain.Lines.Add('- Satis Teknikleri 101 (25 Temmuz) | Katilim: 20 Kisi');

  memTrain.Lines.Add('- Ileri Seviye Excel (1 Agustos) | Katilim: 15 Kisi');

  memTrain.Lines.Add('- Sirket Ici Egitim Tamamlanma Orani: %85');

  

  btnTrainAction = subForm.AddNewProButton(scrollTraining, 'btnTrainAction', 'Yeni Egitim Planla');

  clComponent.SetupComponent(btnTrainAction, '{"Align": "Top", "MarginTop": 15, "MarginLeft": 20, "MarginRight": 20, "Height": 45, "BackgroundColor": "#d35400", "TextColor": "#ffffff", "TextSize": 14, "TextBold": "yes", "RoundWidth": 8, "RoundHeight": 8}');

  subForm.AddNewEvent(btnTrainAction, tbeOnClick, 'OnMockAction');

  

  btnTrainBack = subForm.AddNewProButton(scrollTraining, 'btnTrainBack', 'Geri Don');

  clComponent.SetupComponent(btnTrainBack, '{"Align": "Top", "MarginTop": 20, "MarginLeft": 20, "MarginRight": 20, "Height": 45, "BackgroundColor": "#7f8c8d", "TextColor": "#ffffff", "TextSize": 15, "TextBold": "yes", "RoundWidth": 8, "RoundHeight": 8}');

  subForm.AddNewEvent(btnTrainBack, tbeOnClick, 'GoToMain');

  

  pnlPerf = subForm.AddNewProPanel(subForm, 'pnlPerf');

  clComponent.SetupComponent(pnlPerf, '{"Align": "Client", "BackgroundColor": "#100e17"}');

  pnlPerf.Visible = False;

  scrollPerf = subForm.AddNewVertScrollBox(pnlPerf, 'scrollPerf');

  scrollPerf.Align = alClient;

  

  lblPerfTitle = subForm.AddNewProLabel(scrollPerf, 'lblPerfTitle', 'PERFORMANS YONETIMI');

  clComponent.SetupComponent(lblPerfTitle, '{"Align": "Top", "MarginTop": 25, "MarginLeft": 20, "MarginRight": 20, "Height": 35, "TextColor": "#9b59b6", "TextSize": 18, "TextBold": "yes", "TextHorizontalAlign": "center"}');

  

  lblPerfSub = subForm.AddNewProLabel(scrollPerf, 'lblPerfSub', 'Hedef Gerceklesme ve Terfi Analizi');

  clComponent.SetupComponent(lblPerfSub, '{"Align": "Top", "MarginTop": 10, "MarginLeft": 20, "MarginRight": 20, "Height": 20, "TextColor": "#f1c40f", "TextSize": 14, "TextBold": "yes"}');

  

  memPerf = subForm.AddNewMemo(scrollPerf, 'memPerf', '');

  clComponent.SetupComponent(memPerf, '{"BackgroundColor": "#2c3e50", "TextColor": "#ecf0f1"}');

  memPerf.Align = alTop; memPerf.Margins.Top = 5; memPerf.Margins.Left = 20; memPerf.Margins.Right = 20;

  memPerf.Height = 120; memPerf.ReadOnly = True;

  memPerf.Lines.Add('Saha Satis Ekibi Hedef Gerceklesme Orani: %92');

  memPerf.Lines.Add('Lojistik Ekibi Verimlilik Orani: %88');

  memPerf.Lines.Add('[DIKKAT] 3 personel terfi degerlendirmesinde.');

  

  btnPerfAction = subForm.AddNewProButton(scrollPerf, 'btnPerfAction', 'Donem Sonu Degerlendirmesi');

  clComponent.SetupComponent(btnPerfAction, '{"Align": "Top", "MarginTop": 15, "MarginLeft": 20, "MarginRight": 20, "Height": 45, "BackgroundColor": "#8e44ad", "TextColor": "#ffffff", "TextSize": 14, "TextBold": "yes", "RoundWidth": 8, "RoundHeight": 8}');

  subForm.AddNewEvent(btnPerfAction, tbeOnClick, 'OnMockAction');

  

  btnPerfBack = subForm.AddNewProButton(scrollPerf, 'btnPerfBack', 'Geri Don');

  clComponent.SetupComponent(btnPerfBack, '{"Align": "Top", "MarginTop": 20, "MarginLeft": 20, "MarginRight": 20, "Height": 45, "BackgroundColor": "#7f8c8d", "TextColor": "#ffffff", "TextSize": 15, "TextBold": "yes", "RoundWidth": 8, "RoundHeight": 8}');

  subForm.AddNewEvent(btnPerfBack, tbeOnClick, 'GoToMain');

  

  pnlPayroll = subForm.AddNewProPanel(subForm, 'pnlPayroll');

  clComponent.SetupComponent(pnlPayroll, '{"Align": "Client", "BackgroundColor": "#100e17"}');

  pnlPayroll.Visible = False;

  scrollPayroll = subForm.AddNewVertScrollBox(pnlPayroll, 'scrollPayroll');

  scrollPayroll.Align = alClient;

  

  lblPayTitle = subForm.AddNewProLabel(scrollPayroll, 'lblPayTitle', 'MAAS VE PRIM YONETIMI');

  clComponent.SetupComponent(lblPayTitle, '{"Align": "Top", "MarginTop": 25, "MarginLeft": 20, "MarginRight": 20, "Height": 35, "TextColor": "#2ecc71", "TextSize": 18, "TextBold": "yes", "TextHorizontalAlign": "center"}');

  

  lblPaySub = subForm.AddNewProLabel(scrollPayroll, 'lblPaySub', 'Aylik Odemeler ve Sigorta Islemleri');

  clComponent.SetupComponent(lblPaySub, '{"Align": "Top", "MarginTop": 10, "MarginLeft": 20, "MarginRight": 20, "Height": 20, "TextColor": "#f1c40f", "TextSize": 14, "TextBold": "yes"}');

  

  memPay = subForm.AddNewMemo(scrollPayroll, 'memPay', '');

  clComponent.SetupComponent(memPay, '{"BackgroundColor": "#2c3e50", "TextColor": "#ecf0f1"}');

  memPay.Align = alTop; memPay.Margins.Top = 5; memPay.Margins.Left = 20; memPay.Margins.Right = 20;

  memPay.Height = 120; memPay.ReadOnly = True;

  memPay.Lines.Add('- Agustos Donemi Maas Hesaplamalari: ONAYLANDI');

  memPay.Lines.Add('- Saha Ekibi Prim Dagitimi: ONAY BEKLIYOR');

  memPay.Lines.Add('- Multinet / Arac Yakit Karti Yuklemeleri: BEKLEMEDE');

  

  btnPayAction = subForm.AddNewProButton(scrollPayroll, 'btnPayAction', 'Odemeleri Finansa Ilet');

  clComponent.SetupComponent(btnPayAction, '{"Align": "Top", "MarginTop": 15, "MarginLeft": 20, "MarginRight": 20, "Height": 45, "BackgroundColor": "#27ae60", "TextColor": "#ffffff", "TextSize": 14, "TextBold": "yes", "RoundWidth": 8, "RoundHeight": 8}');

  subForm.AddNewEvent(btnPayAction, tbeOnClick, 'OnMockAction');

  

  btnPayBack = subForm.AddNewProButton(scrollPayroll, 'btnPayBack', 'Geri Don');

  clComponent.SetupComponent(btnPayBack, '{"Align": "Top", "MarginTop": 20, "MarginLeft": 20, "MarginRight": 20, "Height": 45, "BackgroundColor": "#7f8c8d", "TextColor": "#ffffff", "TextSize": 15, "TextBold": "yes", "RoundWidth": 8, "RoundHeight": 8}');

  subForm.AddNewEvent(btnPayBack, tbeOnClick, 'GoToMain');

  

  pnlCulture = subForm.AddNewProPanel(subForm, 'pnlCulture');

  clComponent.SetupComponent(pnlCulture, '{"Align": "Client", "BackgroundColor": "#100e17"}');

  pnlCulture.Visible = False;

  scrollCulture = subForm.AddNewVertScrollBox(pnlCulture, 'scrollCulture');

  scrollCulture.Align = alClient;

  

  lblCultTitle = subForm.AddNewProLabel(scrollCulture, 'lblCultTitle', 'SIKAYET VE BILDIRIM MERKEZI');

  clComponent.SetupComponent(lblCultTitle, '{"Align": "Top", "MarginTop": 25, "MarginLeft": 20, "MarginRight": 20, "Height": 35, "TextColor": "#e74c3c", "TextSize": 18, "TextBold": "yes", "TextHorizontalAlign": "center"}');

  

  lblCultSub = subForm.AddNewProLabel(scrollCulture, 'lblCultSub', 'Personelden Gelen Bildirimler');

  clComponent.SetupComponent(lblCultSub, '{"Align": "Top", "MarginTop": 10, "MarginLeft": 20, "MarginRight": 20, "Height": 20, "TextColor": "#f1c40f", "TextSize": 14, "TextBold": "yes"}');

  

  memCult = subForm.AddNewMemo(scrollCulture, 'memCult', '');

  clComponent.SetupComponent(memCult, '{"BackgroundColor": "#2c3e50", "TextColor": "#ecf0f1"}');

  memCult.Align = alTop; memCult.Margins.Top = 5; memCult.Margins.Left = 20; memCult.Margins.Right = 20;

  memCult.Height = 150; memCult.ReadOnly = True;

  memCult.Lines.Add('GUNCEL SIKAYETLER');

  memCult.Lines.Add('1. Yemekhane kalitesi son gunlerde dustu (Gonderen: Saha Ekibi)');

  memCult.Lines.Add('2. Mobbing bildirimi: Isimsiz (ACIL INCELEME GEREKIYOR)');

  

  btnCultAction = subForm.AddNewProButton(scrollCulture, 'btnCultAction', 'Sikayetleri Incelemeye Al');

  clComponent.SetupComponent(btnCultAction, '{"Align": "Top", "MarginTop": 15, "MarginLeft": 20, "MarginRight": 20, "Height": 45, "BackgroundColor": "#c0392b", "TextColor": "#ffffff", "TextSize": 14, "TextBold": "yes", "RoundWidth": 8, "RoundHeight": 8}');

  subForm.AddNewEvent(btnCultAction, tbeOnClick, 'OnMockAction');

  

  btnCultBack = subForm.AddNewProButton(scrollCulture, 'btnCultBack', 'Geri Don');

  clComponent.SetupComponent(btnCultBack, '{"Align": "Top", "MarginTop": 20, "MarginLeft": 20, "MarginRight": 20, "Height": 45, "BackgroundColor": "#7f8c8d", "TextColor": "#ffffff", "TextSize": 15, "TextBold": "yes", "RoundWidth": 8, "RoundHeight": 8}');

  subForm.AddNewEvent(btnCultBack, tbeOnClick, 'GoToMain');

  

  subForm.Run;

} 

uHR codu full

  pnlPayroll = subForm.AddNewProPanel(subForm, 'pnlPayroll');

uHR uniti 264.satir bu 

ama uHR unitini ana kodun icinde bir unit olarak calistiriyorum

ana kodun 264.satirinda;

myUnit.Run; 

kodu var. acaba ana kod 264 e gelince uHR unitine gitmeye calisiyor da uHR basta(1,2) mi cokuyor cunku uHR unitinin 264.satirinda ( subForm : TclForm; ve pnlPayroll : TClProPanel; degisken tanimlamalarini var blogunda yaptim ve subForm = TclForm.Create(Self); ile formu onceden olusturdum.) bir problem bulamadim .isterseniz kodu kapsamli bir sekilde paylasabilirim