Clomosy | Forum : popup oluşturma

var

AnaForm: TCLForm;

OlcekliYerlesim: TclScaledLayout;

ArkaPlanPnl, UstMenuPnl, AltMenuPnl: TclProPanel;

IcerikKaydirici: TclVertScrollBox;

// Üst Başlık Alanı

BaslikLbi: TclProLabel;

YeniPersonelBtn: TclProButton;

AciklamaLbi: TclProLabel;

// Navbar Panelleri ve Butonları

NavPnlOzet, NavPnlPersonel, NavPnlSikayetler, NavPnlRaporlar, NavPnlCikis: TclProPanel;

NavBtnOzet, NavBtnPersonel, NavBtnSikayetler, NavBtnRaporlar, NavBtnCikis: TclProButton;

void OnMenuTikla;

{

if (TclProButton(AnaForm.clSender).clTagStr == 'Ozet')

Clomosy.RunUnit('adminozet')

else if (TclProButton(AnaForm.clSender).clTagStr == 'Personel')

Clomosy.RunUnit('personel')

else if (TclProButton(AnaForm.clSender).clTagStr == 'Cikis')

Clomosy.RunUnit('giris');

else

ShowMessage(TclProButton(AnaForm.clSender).clTagStr + ' sayfası yapım aşamasında!');

}

// Yeni Personel Ekleme Butonu

void OnYeniPersonelClick;

{

ShowMessage('Yeni personel kayıt sayfasına yönlendiriliyorsunuz...');

}

// --- VERİTABANINDAN OTOMATİK BAŞ HARF ÇIKARMA MOTORU ---

function BasHarfleriBul(AAdSoyad: String): String;

var

BoslukIndex: Integer;

{

if (AAdSoyad == '')

Result = '';

else

{

BoslukIndex = Pos(' ', AAdSoyad);

if (BoslukIndex > 0)

Result = Copy(AAdSoyad, 1, 1) + Copy(AAdSoyad, BoslukIndex + 1, 1);

else

Result = Copy(AAdSoyad, 1, 1);

}

void PersonelSatiriOlustur(AParent: TclVertScrollBox; AIsim, AAdSoyad, AGorev, ADurum, AAnaRenk, AAcikRenk: String);

var

SatirPnl, ProfilDaire, DurumDisPnl, DurumNokta, BilgiPnl: TclProPanel;

HarfLbi, DurumLbi, AdLbi, GorevLbi: TclProLabel;

{

SatirPnl = AnaForm.AddNewProPanel(AParent, AIsim);

SatirPnl.Align = alTop;

SatirPnl.Height = 80;

SatirPnl.Margins.Top = 10;

SatirPnl.Margins.Left = 15;

SatirPnl.Margins.Right = 15;

SatirPnl.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#FFFFFF');

SatirPnl.clProSettings.RoundHeight = 15;

SatirPnl.clProSettings.RoundWidth = 15;

SatirPnl.clProSettings.BorderColor = clalphacolor.clHexToColor('#E2E8F0');

SatirPnl.clProSettings.BorderWidth = 1;

SatirPnl.SetclProSettings(SatirPnl.clProSettings);

// Sağ Durum Hapı (Aktif / Gecikti)

DurumDisPnl = AnaForm.AddNewProPanel(SatirPnl, AIsim + 'DurumDis');

DurumDisPnl.Align = alRight;

DurumDisPnl.Width = 85;

DurumDisPnl.Margins.Top = 20;

DurumDisPnl.Margins.Bottom = 20;

DurumDisPnl.Margins.Right = 15;

DurumDisPnl.clProSettings.BackgroundColor = clalphacolor.clHexToColor(AAcikRenk);

DurumDisPnl.clProSettings.RoundHeight = 15;

DurumDisPnl.clProSettings.RoundWidth = 15;

DurumDisPnl.SetclProSettings(DurumDisPnl.clProSettings);

DurumDisPnl.HitTest = False;

DurumNokta = AnaForm.AddNewProPanel(DurumDisPnl, AIsim + 'DurumNokta');

DurumNokta.Align = alLeft;

DurumNokta.Width = 8;

DurumNokta.Margins.Left = 8;

DurumNokta.Margins.Top = 11;

DurumNokta.Margins.Bottom = 11;

DurumNokta.clProSettings.BackgroundColor = clalphacolor.clHexToColor(AAnaRenk);

DurumNokta.clProSettings.RoundHeight = 8;

DurumNokta.clProSettings.RoundWidth = 8;

DurumNokta.SetclProSettings(DurumNokta.clProSettings);

DurumNokta.HitTest = False;

DurumLbi = AnaForm.AddNewProLabel(DurumDisPnl, AIsim + 'DurumLbi', ADurum);

DurumLbi.Align = alClient;

DurumLbi.Margins.Left = 3;

DurumLbi.clProSettings.FontColor = clalphacolor.clHexToColor(AAnaRenk);

DurumLbi.clProSettings.FontSize = 12;

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

DurumLbi.clProSettings.fontvertalign = palcenter;

DurumLbi.HitTest = False;

DurumLbi.SetclProSettings(DurumLbi.clProSettings);

// Sol Profil Dairesi (Dinamik Baş Harf)

ProfilDaire = AnaForm.AddNewProPanel(SatirPnl, AIsim + 'Profil');

ProfilDaire.Align = alLeft;

ProfilDaire.Width = 45;

ProfilDaire.Margins.Left = 15;

ProfilDaire.Margins.Top = 17;

ProfilDaire.Margins.Bottom = 17;

ProfilDaire.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#F1F5F9');

ProfilDaire.clProSettings.RoundHeight = 22;

ProfilDaire.clProSettings.RoundWidth = 22;

ProfilDaire.SetclProSettings(ProfilDaire.clProSettings);

ProfilDaire.HitTest = False;

HarfLbi = AnaForm.AddNewProLabel(ProfilDaire, AIsim + 'Harf', BasHarfleriBul(AAdSoyad));

HarfLbi.Align = alClient;

HarfLbi.clProSettings.FontColor = clalphacolor.clHexToColor('#0F172A');

HarfLbi.clProSettings.FontSize = 14;

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

HarfLbi.clProSettings.FontHorzAlign = palcenter;

HarfLbi.clProSettings.fontvertalign = palcenter;

HarfLbi.HitTest = False;

HarfLbi.SetclProSettings(HarfLbi.clProSettings);

// Orta Bilgi Alanı (İsim ve Unvan)

BilgiPnl = AnaForm.AddNewProPanel(SatirPnl, AIsim + 'Bilgi');

BilgiPnl.Align = alClient;

BilgiPnl.Margins.Left = 15;

BilgiPnl.Margins.Top = 18;

BilgiPnl.clProSettings.IsTransparent = True;

BilgiPnl.HitTest = False;

BilgiPnl.SetclProSettings(BilgiPnl.clProSettings);

AdLbi = AnaForm.AddNewProLabel(BilgiPnl, AIsim + 'Ad', AAdSoyad);

AdLbi.Align = alTop;

AdLbi.Height = 20;

AdLbi.clProSettings.FontColor = clalphacolor.clHexToColor('#0F172A');

AdLbi.clProSettings.FontSize = 14;

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

AdLbi.HitTest = False;

AdLbi.SetclProSettings(AdLbi.clProSettings);

GorevLbi = AnaForm.AddNewProLabel(BilgiPnl, AIsim + 'Gorev', AGorev);

GorevLbi.Align = alTop;

GorevLbi.Height = 20;

GorevLbi.clProSettings.FontColor = clalphacolor.clHexToColor('#94A3B8');

GorevLbi.clProSettings.FontSize = 12;

GorevLbi.HitTest = False;

GorevLbi.SetclProSettings(GorevLbi.clProSettings);

}

void PersonelEkraniniKur;

{

// 1. Arka Plan

ArkaPlanPnl = AnaForm.AddNewProPanel(OlcekliYerlesim, 'ArkaPlanPnl');

ArkaPlanPnl.Align = alClient;

ArkaPlanPnl.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#F4F6F9');

ArkaPlanPnl.SetclProSettings(ArkaPlanPnl.clProSettings);

// 2. Üst Menü (Başlık ve Ekle Butonu)

UstMenuPnl = AnaForm.AddNewProPanel(ArkaPlanPnl, 'UstMenuPnl');

UstMenuPnl.Align = alTop;

UstMenuPnl.Height = 70;

UstMenuPnl.clProSettings.IsTransparent = True;

UstMenuPnl.SetclProSettings(UstMenuPnl.clProSettings);

BaslikLbi = AnaForm.AddNewProLabel(UstMenuPnl, 'BaslikLbi', 'Personel Yönetimi');

BaslikLbi.Align = alLeft;

BaslikLbi.Width = 220;

BaslikLbi.Margins.Left = 20;

BaslikLbi.Margins.Top = 20;

BaslikLbi.clProSettings.FontColor = clalphacolor.clHexToColor('#0F172A');

BaslikLbi.clProSettings.FontSize = 20;

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

BaslikLbi.SetclProSettings(BaslikLbi.clProSettings);

// YeniPersonelBtn

YeniPersonelBtn = AnaForm.AddNewProButton(UstMenuPnl, 'YeniPersonelBtn', '+ Yeni Personel');

YeniPersonelBtn.Align = alRight;

YeniPersonelBtn.Width = 135;

YeniPersonelBtn.Height = 35;

YeniPersonelBtn.Margins.Right = 20;

YeniPersonelBtn.Margins.Top = 18;

YeniPersonelBtn.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#0F172A');

YeniPersonelBtn.clProSettings.FontColor = clalphacolor.clHexToColor('#FFFFFF');

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

YeniPersonelBtn.clProSettings.RoundHeight = 10;

YeniPersonelBtn.clProSettings.RoundWidth = 10;

YeniPersonelBtn.SetclProSettings(YeniPersonelBtn.clProSettings);

AnaForm.AddNewEvent(YeniPersonelBtn, tbeOnClick, 'OnYeniPersonelClick');

AciklamaLbi = AnaForm.AddNewProLabel(ArkaPlanPnl, 'AciklamaLbi', 'Personele tıklayarak detayları inceleyin');

AciklamaLbi.Align = alTop;

AciklamaLbi.Height = 25;

AciklamaLbi.Margins.Left = 25;

AciklamaLbi.Margins.Top = 5;

AciklamaLbi.clProSettings.FontColor = clalphacolor.clHexToColor('#94A3B8');

AciklamaLbi.clProSettings.FontSize = 12;

AciklamaLbi.SetclProSettings(AciklamaLbi.clProSettings);

AltMenuPnl = AnaForm.AddNewProPanel(ArkaPlanPnl, 'AltMenuPnl');

AltMenuPnl.Align = alBottom;

AltMenuPnl.Height = 60;

AltMenuPnl.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#FFFFFF');

AltMenuPnl.clProSettings.BorderColor = clalphacolor.clHexToColor('#E2E8F0');

AltMenuPnl.clProSettings.BorderWidth = 1;

AltMenuPnl.SetclProSettings(AltMenuPnl.clProSettings);

NavPnlOzet = AnaForm.AddNewProPanel(AltMenuPnl, 'NavPnlOzet');

NavPnlOzet.Align = alLeft;

NavPnlOzet.Width = AltMenuPnl.Width / 5;

NavBtnOzet = AnaForm.AddNewProButton(NavPnlOzet, 'NavBtnOzet', 'Özet');

NavBtnOzet.Align = alClient;

NavBtnOzet.clProSettings.FontColor = clalphacolor.clHexToColor('#64748B');

NavBtnOzet.clProSettings.FontHorzAlign = palcenter;

NavBtnOzet.clTagStr = 'Ozet';

NavBtnOzet.SetclProSettings(NavBtnOzet.clProSettings);

AnaForm.AddNewEvent(NavBtnOzet, tbeOnClick, 'OnMenuTikla');

NavPnlPersonel = AnaForm.AddNewProPanel(AltMenuPnl, 'NavPnlPersonel');

NavPnlPersonel.Align = alLeft;

NavPnlPersonel.Width = AltMenuPnl.Width / 5;

NavBtnPersonel = AnaForm.AddNewProButton(NavPnlPersonel, 'NavBtnPersonel', 'Personel');

NavBtnPersonel.Align = alClient;

NavBtnPersonel.clProSettings.FontColor = clalphacolor.clHexToColor('#0F172A');

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

NavBtnPersonel.clProSettings.FontHorzAlign = palcenter;

NavBtnPersonel.clTagStr = 'Personel';

NavBtnPersonel.SetclProSettings(NavBtnPersonel.clProSettings);

AnaForm.AddNewEvent(NavBtnPersonel, tbeOnClick, 'OnMenuTikla');

NavPnlSikayetler = AnaForm.AddNewProPanel(AltMenuPnl, 'NavPnlSikayetler');

NavPnlSikayetler.Align = alLeft;

NavPnlSikayetler.Width = AltMenuPnl.Width / 5;

NavBtnSikayetler = AnaForm.AddNewProButton(NavPnlSikayetler, 'NavBtnSikayetler', 'Şikayetler');

NavBtnSikayetler.Align = alClient;

NavBtnSikayetler.clProSettings.FontColor = clalphacolor.clHexToColor('#64748B');

NavBtnSikayetler.clProSettings.FontHorzAlign = palcenter;

NavBtnSikayetler.clTagStr = 'Sikayetler';

NavBtnSikayetler.SetclProSettings(NavBtnSikayetler.clProSettings);

AnaForm.AddNewEvent(NavBtnSikayetler, tbeOnClick, 'OnMenuTikla');

NavPnlRaporlar = AnaForm.AddNewProPanel(AltMenuPnl, 'NavPnlRaporlar');

NavPnlRaporlar.Align = alLeft;

NavPnlRaporlar.Width = AltMenuPnl.Width / 5;

NavBtnRaporlar = AnaForm.AddNewProButton(NavPnlRaporlar, 'NavBtnRaporlar', 'Raporlar');

NavBtnRaporlar.Align = alClient;

NavBtnRaporlar.clProSettings.FontColor = clalphacolor.clHexToColor('#64748B');

NavBtnRaporlar.clProSettings.FontHorzAlign = palcenter;

NavBtnRaporlar.clTagStr = 'Raporlar';

NavBtnRaporlar.SetclProSettings(NavBtnRaporlar.clProSettings);

AnaForm.AddNewEvent(NavBtnRaporlar, tbeOnClick, 'OnMenuTikla');

NavPnlCikis = AnaForm.AddNewProPanel(AltMenuPnl, 'NavPnlCikis');

NavPnlCikis.Align = alLeft;

NavPnlCikis.Width = AltMenuPnl.Width / 5;

NavBtnCikis = AnaForm.AddNewProButton(NavPnlCikis, 'NavBtnCikis', 'Çıkış');

NavBtnCikis.Align = alClient;

NavBtnCikis.clProSettings.FontColor = clalphacolor.clHexToColor('#B91C1C');

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

NavBtnCikis.clProSettings.FontHorzAlign = palcenter;

NavBtnCikis.clTagStr = 'Cikis';

NavBtnCikis.SetclProSettings(NavBtnCikis.clProSettings);

AnaForm.AddNewEvent(NavBtnCikis, tbeOnClick, 'OnMenuTikla');

IcerikKaydirici = AnaForm.AddNewVertScrollBox(ArkaPlanPnl, 'IcerikKaydirici');

IcerikKaydirici.Align = alClient;

IcerikKaydirici.Margins.Bottom = 10;

PersonelSatiriOlustur(IcerikKaydirici, 'Per1', 'Ayşe Kaya', 'Temizlik Personeli', 'Aktif', '#10B981', '#D1FAE5');

PersonelSatiriOlustur(IcerikKaydirici, 'Per2', 'Mehmet Demir', 'Temizlik Personeli', 'Aktif', '#10B981', '#D1FAE5');

PersonelSatiriOlustur(IcerikKaydirici, 'Per3', 'Fatma Şahin', 'Kıdemli Personel', 'Gecikti', '#EF4444', '#FEE2E2');

PersonelSatiriOlustur(IcerikKaydirici, 'Per4', 'Ali Çelik', 'Temizlik Personeli', 'Aktif', '#10B981', '#D1FAE5');

PersonelSatiriOlustur(IcerikKaydirici, 'Per5', 'Zeynep Arslan', 'Temizlik Personeli', 'Aktif', '#10B981', '#D1FAE5');

}

{

AnaForm = TCLForm.Create(Self);

OlcekliYerlesim = AnaForm.AddNewScaledLayout(AnaForm, 'OlcekliYerlesim');

OlcekliYerlesim.Align = alClient;

OlcekliYerlesim.OriginalHeight = 750;

OlcekliYerlesim.OriginalWidth = 350;

OlcekliYerlesim.Margins.top = -50;

PersonelEkraniniKur;

AnaForm.FormWaiting.Visible = False;

AnaForm.BtnFormMenu.Visible = False;

AnaForm.BtnGoBack.Visible = False;

AnaForm.Run;

}