var

  MyForm: TclForm;

  mainPnl: TclProPanel;

  GirisBtn: TClProButton;

  KullaniciAdiEdit, SifreEdit: TclProEdit;

  LblKullaniciAdi, LblSifre: TclProLabel;

  KullaniciAdi, Sifre: String;

  Unit1: TclUnit;

  HiddenPasswordBtn, NormalPasswordBtn: TClProButton;  // Ekle

// Girişten sonra Dashboard'a geçiş

void GoToUnit1;

{

  MyForm.clShow;

  Unit1.UnitName = 'uDashboard';

  Unit1.CallerForm = MyForm;

  Unit1.Run;

}

// Giriş kontrolü

void GoToGirisKontrol;

{

  KullaniciAdi = KullaniciAdiEdit.Text;

  Sifre = SifreEdit.Text;

  if ((KullaniciAdi == 'Admin') && (Sifre == '1'))

    GoToUnit1;

  else

    ShowMessage('Kullanıcı adı veya şifre yanlış!');

}

// Şifreyi göster

void HiddenPasswordBtnClick

{

  if not Assigned(NormalPasswordBtn)

  {

    NormalPasswordBtn = MyForm.AddNewProButton(SifreEdit, 'NormalPasswordBtn', '');

    NormalPasswordBtn.Align = alRight;

    NormalPasswordBtn.Margins.Right = 10;

    NormalPasswordBtn.Margins.Top = 5;

    NormalPasswordBtn.Margins.Bottom = 5;

    NormalPasswordBtn.Width = 25;

    MyForm.SetImage(NormalPasswordBtn, ' https://i.imgur.com/6xrqP8j.png" rel="nofollow - https://i.imgur.com/6xrqP8j.png '); // göz resmi

    MyForm.AddNewEvent(NormalPasswordBtn, tbeOnClick, 'NormalPasswordBtnClick');

  }

  else

  {

    NormalPasswordBtn.Visible = True;

  }

  SifreEdit.Password = False; // Şifre görünür olsun

  HiddenPasswordBtn.Visible = False;

}

// Şifreyi gizle

void NormalPasswordBtnClick

{

  if not Assigned(HiddenPasswordBtn)

  {

    HiddenPasswordBtn = MyForm.AddNewProButton(SifreEdit, 'HiddenPasswordBtn', '');

    HiddenPasswordBtn.Align = alRight;

    HiddenPasswordBtn.Margins.Right = 10;

    HiddenPasswordBtn.Margins.Top = 5;

    HiddenPasswordBtn.Margins.Bottom = 5;

    HiddenPasswordBtn.Width = 25;

    MyForm.SetImage(HiddenPasswordBtn, ' https://i.imgur.com/qVm2XpB.png" rel="nofollow - https://i.imgur.com/qVm2XpB.png '); // kapalı göz resmi

    MyForm.AddNewEvent(HiddenPasswordBtn, tbeOnClick, 'HiddenPasswordBtnClick');

  }

  else

  {

    HiddenPasswordBtn.Visible = True;

  }

  SifreEdit.Password = True; // Şifre gizli olsun

  NormalPasswordBtn.Visible = False;

}

{

  MyForm = TclForm.Create(Self);

  MyForm.SetFormBGImage(' https://resmim.net/cdn/2025/07/04/T9rhf1.jpg" rel="nofollow - https://resmim.net/cdn/2025/07/04/T9rhf1.jpg ');

  Unit1 = TclUnit.Create;

  mainPnl = MyForm.AddNewProPanel(MyForm, 'mainPnl');

  mainPnl.Align = alCenter;

  mainPnl.Height = 600;

  mainPnl.Width = 400;

  mainPnl.Margins.Top = 30;

  mainPnl.Margins.Bottom = 40;

  mainPnl.clProSettings.RoundHeight = 40;

  mainPnl.clProSettings.RoundWidth = 40;

  mainPnl.clProSettings.IsTransparent = False;

  mainPnl.SetclProSettings(mainPnl.clProSettings);

  LblKullaniciAdi = MyForm.AddNewProLabel(mainPnl, 'LblKullaniciAdi', 'Kullanıcı Adı');

  LblKullaniciAdi.Align = alTop;

  LblKullaniciAdi.Height = 30;

  LblKullaniciAdi.Margins.Top = 100;

  LblKullaniciAdi.clProSettings.FontSize = 24;

  LblKullaniciAdi.clProSettings.FontColor = clAlphaColor.clHexToColor('#080808');

  LblKullaniciAdi.clProSettings.FontHorzAlign = palCenter;

  LblKullaniciAdi.SetclProSettings(LblKullaniciAdi.clProSettings);

  KullaniciAdiEdit = MyForm.AddNewProEdit(mainPnl, 'KullaniciAdiEdit', '');

  KullaniciAdiEdit.Align = alTop;

  KullaniciAdiEdit.Height = 40;

  KullaniciAdiEdit.Width = mainPnl.Width * 70 / 100;

  KullaniciAdiEdit.Margins.Top = 10;

  KullaniciAdiEdit.Margins.Left = 20;

  KullaniciAdiEdit.Margins.Right = 20;

  KullaniciAdiEdit.clProSettings.RoundHeight = 20;

  KullaniciAdiEdit.clProSettings.RoundWidth = 20;

  KullaniciAdiEdit.clProSettings.FontSize = 20;

  KullaniciAdiEdit.SetclProSettings(KullaniciAdiEdit.clProSettings);

  LblSifre = MyForm.AddNewProLabel(mainPnl, 'LblSifre', 'Şifre');

  LblSifre.Align = alTop;

  LblSifre.Height = 30;

  LblSifre.Margins.Top = 20;

  LblSifre.clProSettings.FontSize = 24;

  LblSifre.clProSettings.FontColor = clAlphaColor.clHexToColor('#080808');

  LblSifre.clProSettings.FontHorzAlign = palCenter;

  LblSifre.SetclProSettings(LblSifre.clProSettings);

  SifreEdit = MyForm.AddNewProEdit(mainPnl, 'SifreEdit', '');

  SifreEdit.Align = alTop;

  SifreEdit.Height = 40;

  SifreEdit.Width = mainPnl.Width * 70 / 100;

  SifreEdit.Margins.Top = 10;

  SifreEdit.Margins.Left = 20;

  SifreEdit.Margins.Right = 20;

  SifreEdit.clProSettings.RoundHeight = 20;

  SifreEdit.clProSettings.RoundWidth = 20;

  SifreEdit.clProSettings.FontSize = 20;

  SifreEdit.SetclProSettings(SifreEdit.clProSettings);

  // Şifre göster/gizle butonları başlat

  HiddenPasswordBtn = MyForm.AddNewProButton(SifreEdit, 'HiddenPasswordBtn', '');

  HiddenPasswordBtn.Align = alRight;

  HiddenPasswordBtn.Margins.Right = 10;

  HiddenPasswordBtn.Margins.Top = 5;

  HiddenPasswordBtn.Margins.Bottom = 5;

  HiddenPasswordBtn.Width = 25;

  MyForm.SetImage(HiddenPasswordBtn, ' https://i.imgur.com/qVm2XpB.png" rel="nofollow - https://i.imgur.com/qVm2XpB.png '); // kapalı göz resmi

  MyForm.AddNewEvent(HiddenPasswordBtn, tbeOnClick, 'HiddenPasswordBtnClick');

  GirisBtn = MyForm.AddNewProButton(mainPnl, 'GirisBtn', 'Giriş Yap');

  GirisBtn.Align = alTop;

  GirisBtn.Height = 50;

  GirisBtn.Width = mainPnl.Width * 70 / 100;

  GirisBtn.Margins.Top = 30;

  GirisBtn.Margins.Left = 20;

  GirisBtn.Margins.Right = 20;

  GirisBtn.clProSettings.RoundHeight = 40;

  GirisBtn.clProSettings.RoundWidth = 40;

  GirisBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#fc0000');

  GirisBtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#080808');

  GirisBtn.clProSettings.FontSize = 24;

  GirisBtn.clProSettings.BorderWidth = 2;

  GirisBtn.SetclProSettings(GirisBtn.clProSettings);

  MyForm.AddNewEvent(GirisBtn, tbeOnClick, 'GoToGirisKontrol');

  MyForm.clSetWindowState(fwsMaximized);

  MyForm.Run;

}