Sayfayı Yazdır | Pencereyi Kapat

RUNTIME ERROR

Nereden Yazdırıldığı: Clomosy | Forum
Kategori: Genel Programlama
Forum Adı: Genel İşlemler
Forum Tanımlaması: TRObject dili ile programlama yaparken karşılaşılan genel işlemler
URL: https://forum.clomosy.com.tr/forum_posts.asp?TID=1621
Tarih: 21 Temmuz 2026 Saat 13:49
Program Versiyonu: Web Wiz Forums 12.07 - https://www.webwizforums.com


Konu: RUNTIME ERROR
Mesajı Yazan: john1
Konu: RUNTIME ERROR
Mesaj Tarihi: 20 Temmuz 2026 Saat 11:57
RUNTIME ERROR
File library Main: Unit uHR: Syntax error.
Source position: 1,2 when evaluating instruction CallProc ($FFFFFFFF,$0,$72D094E0,$6D,"Run").
Stack content is: [-5476376661869721616,-5476376666970276608,-5476376666970316432,-5476376661869705136...].
Source position: 264,15
Position: 264, 15 
aldigim hata bu.
kodun baslangici;
var
  subForm : TclForm;
  currentUser : String;
1,2 de neden hata aldigimi anlamiyorum (`var` etrafinda herhangi bir gorunmez karakter yoktur).
https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" rel="nofollow - https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">

-------------
urlt


Cevaplar:
Mesajı Yazan: Emr.Erkmn
Mesaj Tarihi: 20 Temmuz 2026 Saat 12:00
Merhaba Hamza

Gelen hata uHR birimin de 264. satırda geliyor orayı kontrol edebilir misin https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" rel="nofollow - https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">< defer="" ="https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" -cf-beacon=""version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"_timing":"name":"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true,"location_startswith":null" crossorigin="anonymous">

Mesajı Yazan: john1
Mesaj Tarihi: 20 Temmuz 2026 Saat 12:23
  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

https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" rel="nofollow - https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">

-------------
urlt

Mesajı Yazan: Emr.Erkmn
Mesaj Tarihi: 20 Temmuz 2026 Saat 13:03
Kodu paylaşabilir misin? https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" rel="nofollow - https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">

Mesajı Yazan: john1
Mesaj Tarihi: 20 Temmuz 2026 Saat 13:16
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" rel="nofollow - 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
https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" rel="nofollow - https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">

-------------
urlt

Mesajı Yazan: john1
Mesaj Tarihi: 20 Temmuz 2026 Saat 13:27
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" rel="nofollow - 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
                                       
https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" rel="nofollow - https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">

-------------
urlt

Mesajı Yazan: Emr.Erkmn
Mesaj Tarihi: 20 Temmuz 2026 Saat 13:32
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" rel="nofollow - 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;
}
https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" rel="nofollow - https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">

Mesajı Yazan: Emr.Erkmn
Mesaj Tarihi: 20 Temmuz 2026 Saat 13:34
Hamza öncelikle senden istediğim setupcombenet yazsıyla yazmaman. Bunu yerin clProsettings ile bileşenlere özellik atmanı istiyorum

gelen hatanın sebebi ise kapanış olarak end yazması bunun  yerne süslü parantezleri kullan  https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" rel="nofollow - https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">

Mesajı Yazan: john1
Mesaj Tarihi: 20 Temmuz 2026 Saat 14:52
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" rel="nofollow - 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
https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" rel="nofollow - https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">

-------------
urlt

Mesajı Yazan: john1
Mesaj Tarihi: 20 Temmuz 2026 Saat 15:49
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" rel="nofollow - 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
https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" rel="nofollow - https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">

-------------
urlt

Mesajı Yazan: Emr.Erkmn
Mesaj Tarihi: 20 Temmuz 2026 Saat 17:32
Anakod ve uHR sayfalarında mevcut herhangi bir hata gözlemleyemedim. uAdmin birimini inceler misin https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" rel="nofollow - https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">


Sayfayı Yazdır | Pencereyi Kapat

Forum Software by Web Wiz Forums® version 12.07 - https://www.webwizforums.com
Copyright ©2001-2024 Web Wiz Ltd. - https://www.webwiz.net