Clomosy | Forum Ana Sayfa
Forum Anasayfa Forum Anasayfa > Genel Programlama > Genel İşlemler
  Aktif Konular Aktif Konular RSS - popup oluşturma
  SSS SSS  Forumu Ara   Etkinlikler   Kayıt Ol Kayıt Ol  Giriş Giriş

Clomosy Resmi Forum Sitesidir. Amacımız kullanıcılarımıza, iş ortaklarımıza, danışmanlara, yazılımcılara programlarımız hakkında destek ve bilgi vermektir.

popup oluşturma
 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
  Konu Arama Konu Arama  Topic Seçenekleri Topic Seçenekleri
MehmetOzcan Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 12 Saat 10 Dakika Önce
Durum: Aktif Değil
Puanlar: 3 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı MehmetOzcan Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: popup oluşturma
    Gönderim Zamanı: 6 Saat 29 Dakika Önce Saat 15:14
Kullanıcı YeniPersonelBtn 'a tıkladığında popup acılmasını istiyorum. nasıl yapılabilir.https://static.cloudflareinsights.com/beacon.min.js/v833ccba57c9e4d2798f2e76cebdd09a11778172276447" integrity="sha512-57MDmcccJXYtNnH+ZiBwzC4jb2rvgVCEokYN+L/nLlmO8rfYT/gIpW2A569iJ/3b+0UEasghjuZH/ma3wIs/EQ==" 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">
teşekkür ederim.
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;
  }
Yukarı Dön
Emr.Erkmn Açılır Kutu İzle
Moderatör
Moderatör


Kayıt Tarihi: 28 Şubat 2025
Durum: Aktif Değil
Puanlar: 922 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı Emr.Erkmn Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 5 Saat 25 Dakika Önce Saat 16:18
Merhaba Mehmet
var
  AnaForm: TCLForm;
  OlcekliYerlesim: TclScaledLayout;
  ArkaPlanPnl, UstMenuPnl, AltMenuPnl: TclProPanel;
  IcerikKaydirici: TclVertScrollBox;
  BaslikLbi: TclProLabel;
  YeniPersonelBtn: TclProButton;
  AciklamaLbi: TclProLabel;
  NavPnlOzet, NavPnlPersonel, NavPnlSikayetler, NavPnlRaporlar, NavPnlCikis: TclProPanel;
  NavBtnOzet, NavBtnPersonel, NavBtnSikayetler, NavBtnRaporlar, NavBtnCikis: TclProButton;
  PopupArkaPlanPnl, PopupKutuPnl: TclProPanel;
  PopupBaslikLbi: TclProLabel;
  EdtYeniAdSoyad, EdtYeniGorev: TclProEdit;
  BtnPopupKaydet, BtnPopupKapat: 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!');
}

void OnYeniPersonelClick;
{
  PopupArkaPlanPnl.Visible = True;
}

void OnPopupKapatClick;
{
  PopupArkaPlanPnl.Visible = False;
  EdtYeniAdSoyad.Text = '';
  EdtYeniGorev.Text = '';
}

void OnPopupKaydetClick;
{
  if ((EdtYeniAdSoyad.Text == '') || (EdtYeniGorev.Text == '')) 
  {
    ShowMessage('Lütfen tüm alanları doldurunuz!');
  }
  else
  {
    ShowMessage('Personel Başarıyla Kaydedildi: ' + EdtYeniAdSoyad.Text);
    OnPopupKapatClick;
  }
}

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);

  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);

  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);

  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;
{
  ArkaPlanPnl = AnaForm.AddNewProPanel(OlcekliYerlesim, 'ArkaPlanPnl');
  ArkaPlanPnl.Align = alClient; 
  ArkaPlanPnl.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#F4F6F9');
  ArkaPlanPnl.SetclProSettings(ArkaPlanPnl.clProSettings);

  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 = 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');

  PopupArkaPlanPnl = AnaForm.AddNewProPanel(OlcekliYerlesim, 'PopupArkaPlanPnl');
  PopupArkaPlanPnl.Align = alClient;
  PopupArkaPlanPnl.Visible = False;
  clComponent.SetupComponent(PopupArkaPlanPnl, '{"BackgroundColor":"#80000000"}');

  PopupKutuPnl = AnaForm.AddNewProPanel(PopupArkaPlanPnl, 'PopupKutuPnl');
  PopupKutuPnl.Align = alCenter; 
  PopupKutuPnl.Width = 300; 
  PopupKutuPnl.Height = 320;
  clComponent.SetupComponent(PopupKutuPnl, '{"BackgroundColor":"#FFFFFF", "RoundHeight":20, "RoundWidth":20, "BorderColor":"#E2E8F0", "BorderWidth":1}');

  PopupBaslikLbi = AnaForm.AddNewProLabel(PopupKutuPnl, 'PopupBaslikLbi', 'Yeni Personel Kaydı');
  PopupBaslikLbi.Align = alTop; 
  PopupBaslikLbi.Height = 40; 
  PopupBaslikLbi.Margins.Top = 15;
  PopupBaslikLbi.clProSettings.FontColor = clalphacolor.clHexToColor('#0F172A'); 
  PopupBaslikLbi.clProSettings.FontSize = 16;
  PopupBaslikLbi.clProSettings.TextSettings.Font.Style = [fsBold]; 
  PopupBaslikLbi.clProSettings.FontHorzAlign = palCenter;
  PopupBaslikLbi.SetclProSettings(PopupBaslikLbi.clProSettings);

  EdtYeniAdSoyad = AnaForm.AddNewProEdit(PopupKutuPnl, 'EdtYeniAdSoyad', 'Adı Soyadı...');
  EdtYeniAdSoyad.Align = alTop; 
  EdtYeniAdSoyad.Height = 45; 
  EdtYeniAdSoyad.Margins.Top = 15; 
  EdtYeniAdSoyad.Margins.Left = 20; 
  EdtYeniAdSoyad.Margins.Right = 20;

  EdtYeniGorev = AnaForm.AddNewProEdit(PopupKutuPnl, 'EdtYeniGorev', 'Görevi / Unvanı...');
  EdtYeniGorev.Align = alTop; 
  EdtYeniGorev.Height = 45; 
  EdtYeniGorev.Margins.Top = 12; 
  EdtYeniGorev.Margins.Left = 20; 
  EdtYeniGorev.Margins.Right = 20;

  BtnPopupKaydet = AnaForm.AddNewProButton(PopupKutuPnl, 'BtnPopupKaydet', 'Kaydet');
  BtnPopupKaydet.Align = alTop; 
  BtnPopupKaydet.Height = 40; 
  BtnPopupKaydet.Margins.Top = 20; 
  BtnPopupKaydet.Margins.Left = 20; 
  BtnPopupKaydet.Margins.Right = 20;
  BtnPopupKaydet.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#10B981'); 
  BtnPopupKaydet.clProSettings.FontColor = clalphacolor.clWhite;
  BtnPopupKaydet.clProSettings.RoundHeight = 10; 
  BtnPopupKaydet.SetclProSettings(BtnPopupKaydet.clProSettings);
  AnaForm.AddNewEvent(BtnPopupKaydet, tbeOnClick, 'OnPopupKaydetClick');

  BtnPopupKapat = AnaForm.AddNewProButton(PopupKutuPnl, 'BtnPopupKapat', 'Kapat');
  BtnPopupKapat.Align = alTop; 
  BtnPopupKapat.Height = 35; 
  BtnPopupKapat.Margins.Top = 8; 
  BtnPopupKapat.Margins.Left = 20; 
  BtnPopupKapat.Margins.Right = 20;
  BtnPopupKapat.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#F1F5F9'); 
  BtnPopupKapat.clProSettings.FontColor = clalphacolor.clHexToColor('#64748B');
  BtnPopupKapat.clProSettings.RoundHeight = 10; 
  BtnPopupKapat.SetclProSettings(BtnPopupKapat.clProSettings);
  AnaForm.AddNewEvent(BtnPopupKapat, tbeOnClick, 'OnPopupKapatClick');
}

{
  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;
}

Kodu çalıştırıp dener misin?
https://static.cloudflareinsights.com/beacon.min.js/v833ccba57c9e4d2798f2e76cebdd09a11778172276447" integrity="sha512-57MDmcccJXYtNnH+ZiBwzC4jb2rvgVCEokYN+L/nLlmO8rfYT/gIpW2A569iJ/3b+0UEasghjuZH/ma3wIs/EQ==" 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">
Yukarı Dön
MehmetOzcan Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 12 Saat 10 Dakika Önce
Durum: Aktif Değil
Puanlar: 3 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı MehmetOzcan Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 5 Saat 16 Dakika Önce Saat 16:27
Yardımınız için teşekkür ederim. Kod çalışıyorhttps://static.cloudflareinsights.com/beacon.min.js/v833ccba57c9e4d2798f2e76cebdd09a11778172276447" integrity="sha512-57MDmcccJXYtNnH+ZiBwzC4jb2rvgVCEokYN+L/nLlmO8rfYT/gIpW2A569iJ/3b+0UEasghjuZH/ma3wIs/EQ==" 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">
Yukarı Dön
 Yanıt Yaz Yanıt Yaz

Forum Atla Forum İzinleri Açılır Kutu İzle

Forum Software by Web Wiz Forums® version 12.07
Copyright ©2001-2024 Web Wiz Ltd.

Bu Sayfa 0,031 Saniyede Yüklendi.