Clomosy | Forum : buton yerleşim problemi https://forum.clomosy.com.tr/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Tue, 07 Jul 2026 17:45:45 +0000 Tue, 07 Jul 2026 14:51:58 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 30 https://forum.clomosy.com.tr/RSS_post_feed.asp?TID=1598 <![CDATA[Clomosy | Forum]]> https://forum.clomosy.com.tr/forum_images/logo.png https://forum.clomosy.com.tr/ <![CDATA[buton yerleşim problemi : Merhaba Sümeyyeİlgili kod aşağıda...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1598&PID=3694#3694 Yazar: Emr.Erkmn
Konu: 1598
Gönderim Zamanı: 07 Temmuz 2026 Saat 14:51

Merhaba Sümeyye 

İlgili kod aşağıda yer almaktadır 

var
  LoginForm: TclForm;
  MainPnl, LeftPnl, RightPnl: TclProPanel;
  TitleLbl, SubLbl, IconLbl, SocialLbl: TclProLabel;
  EmailEdt, PasswordEdt: TclProEdit;
  GirisBtn: TclProButton;
  GoogleBtn, FacebookBtn, XBtn: TclProButton;
  RightIconLbl, RightTitleLbl, RightSubLbl, RightInfoLbl: TclProLabel;
  ModeSwitch: TclSwitch;
  SocialPnl: TclProPanel;
  SocialLayout: TclLayout;
void GirisClick;
{
  // Kullanıcı adı boş mu?
  if (EmailEdt.Text == '')
  {
    ShowMessage('Lütfen kullanıcı adınızı giriniz.');
    Exit;
  }
  // Şifre boş mu?
  if (PasswordEdt.Text == '')
  {
    ShowMessage('Lütfen şifrenizi giriniz.');
    Exit;
  }
  // Şifre en az 6 karakter mi?
  if (Length(PasswordEdt.Text) < 6)
  {
    ShowMessage('Şifre en az 6 karakter olmalıdır.');
    Exit;
  }
  // Şifre nokta içeriyor mu?
  if (Pos('.', PasswordEdt.Text) == 0)
  {
    ShowMessage('Şifre en az bir adet "." karakteri içermelidir.');
    Exit;
  }
  ShowMessage('Giriş başarılı.');
}
void OnGoogleAc;
{
  TClomosyOS.OpenURL('https://www.google.com');
}
void OnFacebookAc;
{
  TClomosyOS.OpenURL('https://www.facebook.com');
}
void OnXAc;
{
  TClomosyOS.OpenURL('https://x.com');
}
void ModeDegistir;
{
  if (ModeSwitch.IsChecked == True)
  {
    LoginForm.SetFormColor('#F8FAFC', '#E2E8F0', clGVertical);
    MainPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFFFFF');
    MainPnl.SetclProSettings(MainPnl.clProSettings);
    LeftPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFFFFF');
    LeftPnl.SetclProSettings(LeftPnl.clProSettings);
    RightPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#38BDF8');
    RightPnl.SetclProSettings(RightPnl.clProSettings);
    TitleLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#0F172A');
    TitleLbl.SetclProSettings(TitleLbl.clProSettings);
  }
  else
  {
    LoginForm.SetFormColor('#0B1220', '#172554', clGVertical);
    MainPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFFFFF');
    MainPnl.SetclProSettings(MainPnl.clProSettings);
    LeftPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFFFFF');
    LeftPnl.SetclProSettings(LeftPnl.clProSettings);
    RightPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2563EB');
    RightPnl.SetclProSettings(RightPnl.clProSettings);
    TitleLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#1E293B');
    TitleLbl.SetclProSettings(TitleLbl.clProSettings);
  }
}
{
  LoginForm = TclForm.Create(Self);
  LoginForm.clSetCaption('Modern Login');
  LoginForm.SetFormColor('#0B1220', '#172554', clGVertical);
  MainPnl = LoginForm.AddNewProPanel(LoginForm, 'MainPnl');
  MainPnl.Align = alCenter;
  MainPnl.Width = 780;
  MainPnl.Height = 440;
  MainPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#ffffff');
  MainPnl.clProSettings.RoundWidth = 28;
  MainPnl.clProSettings.RoundHeight = 28;
  MainPnl.SetclProSettings(MainPnl.clProSettings);
  LeftPnl = LoginForm.AddNewProPanel(MainPnl, 'LeftPnl');
  LeftPnl.Align = alLeft;
  LeftPnl.Width = 390;
  LeftPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#ffffff');
  LeftPnl.clProSettings.RoundWidth = 28;
  LeftPnl.clProSettings.RoundHeight = 28;
  LeftPnl.SetclProSettings(LeftPnl.clProSettings);
  
  ModeSwitch = LoginForm.AddNewSwitch(LeftPnl, 'ModeSwitch');
  ModeSwitch.Align = alTop;
  ModeSwitch.Height = 30;
  ModeSwitch.Margins.Top = 12;
  ModeSwitch.Margins.Left = 320;
  ModeSwitch.Margins.Right = 20;
  LoginForm.AddNewEvent(ModeSwitch, tbeOnClick, 'ModeDegistir');
  RightPnl = LoginForm.AddNewProPanel(MainPnl, 'RightPnl');
  RightPnl.Align = alClient;
  RightPnl.Margins.Left = 8;
  RightPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2563EB');
  RightPnl.clProSettings.RoundWidth = 28;
  RightPnl.clProSettings.RoundHeight = 28;
  RightPnl.SetclProSettings(RightPnl.clProSettings);
  IconLbl = LoginForm.AddNewProLabel(LeftPnl, 'IconLbl', '👤');
  IconLbl.Align = alTop;
  IconLbl.Margins.Top = 25;
  IconLbl.Height = 45;
  IconLbl.clProSettings.FontSize = 30;
  IconLbl.clProSettings.FontHorzAlign = palCenter;
  IconLbl.SetclProSettings(IconLbl.clProSettings);
  TitleLbl = LoginForm.AddNewProLabel(LeftPnl, 'TitleLbl', 'Giriş Yap');
  TitleLbl.Align = alTop;
  TitleLbl.Height = 45;
  TitleLbl.clProSettings.FontSize = 28;
  TitleLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#1E293B');
  TitleLbl.clProSettings.FontHorzAlign = palCenter;
  TitleLbl.clProSettings.TextSettings.Font.Style = [fsBold];
  TitleLbl.SetclProSettings(TitleLbl.clProSettings);
  SubLbl = LoginForm.AddNewProLabel(LeftPnl, 'SubLbl', 'Hesabınıza giriş yapın');
  SubLbl.Align = alTop;
  SubLbl.Height = 30;
  SubLbl.clProSettings.FontSize = 13;
  SubLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#64748B');
  SubLbl.clProSettings.FontHorzAlign = palCenter;
  SubLbl.SetclProSettings(SubLbl.clProSettings);
  EmailEdt = LoginForm.AddNewProEdit(LeftPnl, 'EmailEdt', 'E-mail');
  EmailEdt.Align = alTop;
  EmailEdt.Margins.Top = 28;
  EmailEdt.Margins.Left = 48;
  EmailEdt.Margins.Right = 48;
  EmailEdt.Height = 46;
  EmailEdt.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F1F5F9');
  EmailEdt.clProSettings.FontColor = clAlphaColor.clHexToColor('#1E293B');
  EmailEdt.clProSettings.RoundWidth = 16;
  EmailEdt.clProSettings.RoundHeight = 16;
  EmailEdt.SetclProSettings(EmailEdt.clProSettings);
  PasswordEdt = LoginForm.AddNewProEdit(LeftPnl, 'PasswordEdt', 'Şifre');
  PasswordEdt.Align = alTop;
  PasswordEdt.Margins.Top = 16;
  PasswordEdt.Margins.Left = 48;
  PasswordEdt.Margins.Right = 48;
  PasswordEdt.Height = 46;
  PasswordEdt.Password = True;
  PasswordEdt.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F1F5F9');
  PasswordEdt.clProSettings.FontColor = clAlphaColor.clHexToColor('#1E293B');
  PasswordEdt.clProSettings.RoundWidth = 16;
  PasswordEdt.clProSettings.RoundHeight = 16;
  PasswordEdt.SetclProSettings(PasswordEdt.clProSettings);
  GirisBtn = LoginForm.AddNewProButton(LeftPnl, 'GirisBtn', 'GİRİŞ YAP');
  GirisBtn.Align = alTop;
  GirisBtn.Margins.Top = 28;
  GirisBtn.Margins.Left = 75;
  GirisBtn.Margins.Right = 75;
  GirisBtn.Height = 48;
  GirisBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1D4ED8');
  GirisBtn.clProSettings.FontColor = clAlphaColor.clWhite;
  GirisBtn.clProSettings.FontSize = 14;
  GirisBtn.clProSettings.RoundWidth = 18;
  GirisBtn.clProSettings.RoundHeight = 18;
  GirisBtn.clProSettings.TextSettings.Font.Style = [fsBold];
  GirisBtn.SetclProSettings(GirisBtn.clProSettings);
  LoginForm.AddNewEvent(GirisBtn, tbeOnClick, 'GirisClick');
  
  SocialLayout = LoginForm.AddNewLayout(LeftPnl, 'SocialLayout');
  SocialLayout.Align = alBottom; 
  SocialLayout.Height = 55;
  SocialLayout.Margins.Bottom = 20; 
  SocialLayout.Margins.top = 20; 
  SocialLayout.Margins.Left = 105;
  SocialLayout.Margins.Right = 105;
  
  FacebookBtn = LoginForm.AddNewProButton(SocialLayout, 'FacebookBtn', 'f');
  FacebookBtn.Align = alLeft;
  FacebookBtn.Width = 45;
  FacebookBtn.Height = 45;
  FacebookBtn.Margins.Left = 5;
  FacebookBtn.Margins.Top = 5;
  FacebookBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1877F2');
  FacebookBtn.clProSettings.FontColor = clAlphaColor.clWhite;
  FacebookBtn.clProSettings.RoundWidth = 23;
  FacebookBtn.clProSettings.RoundHeight = 23;
  FacebookBtn.SetclProSettings(FacebookBtn.clProSettings);
  LoginForm.AddNewEvent(FacebookBtn, tbeOnClick, 'OnFacebookAc');
  GoogleBtn = LoginForm.AddNewProButton(SocialLayout, 'GoogleBtn', 'G');
  GoogleBtn.Align = alLeft;
  GoogleBtn.Width = 45;
  GoogleBtn.Height = 45;
  GoogleBtn.Margins.Left = 15;
  GoogleBtn.Margins.Top = 5;
  GoogleBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#DB4437');
  GoogleBtn.clProSettings.FontColor = clAlphaColor.clWhite;
  GoogleBtn.clProSettings.RoundWidth = 23;
  GoogleBtn.clProSettings.RoundHeight = 23;
  GoogleBtn.SetclProSettings(GoogleBtn.clProSettings);
  LoginForm.AddNewEvent(GoogleBtn, tbeOnClick, 'OnGoogleAc');
  
  XBtn = LoginForm.AddNewProButton(SocialLayout, 'XBtn', 'X');
  XBtn.Align = alLeft;
  XBtn.Width = 45;
  XBtn.Height = 45;
  XBtn.Margins.Left = 15;
  XBtn.Margins.Top = 5;
  XBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#000000');
  XBtn.clProSettings.FontColor = clAlphaColor.clWhite;
  XBtn.clProSettings.RoundWidth = 23;
  XBtn.clProSettings.RoundHeight = 23;
  XBtn.SetclProSettings(XBtn.clProSettings);
  LoginForm.AddNewEvent(XBtn, tbeOnClick, 'OnXAc');
  
  SocialLbl = LoginForm.AddNewProLabel(LeftPnl, 'SocialLbl', 'Sosyal medya ile giriş');
  SocialLbl.Align = alBottom;
  SocialLbl.Margins.Bottom = 8; // Butonlarla olan dikey boşluk
  SocialLbl.Height = 25;
  SocialLbl.clProSettings.FontSize = 11;
  SocialLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#64748B');
  SocialLbl.clProSettings.FontHorzAlign = palCenter;
  SocialLbl.SetclProSettings(SocialLbl.clProSettings);
  
  RightIconLbl = LoginForm.AddNewProLabel(RightPnl, 'RightIconLbl', '💼');
  RightIconLbl.Align = alTop;
  RightIconLbl.Margins.Top = 95;
  RightIconLbl.Height = 55;
  RightIconLbl.clProSettings.FontSize = 38;
  RightIconLbl.clProSettings.FontHorzAlign = palCenter;
  RightIconLbl.SetclProSettings(RightIconLbl.clProSettings);
  RightTitleLbl = LoginForm.AddNewProLabel(RightPnl, 'RightTitleLbl', 'Hoş Geldiniz');
  RightTitleLbl.Align = alTop;
  RightTitleLbl.Height = 50;
  RightTitleLbl.clProSettings.FontSize = 30;
  RightTitleLbl.clProSettings.FontColor = clAlphaColor.clWhite;
  RightTitleLbl.clProSettings.FontHorzAlign = palCenter;
  RightTitleLbl.clProSettings.TextSettings.Font.Style = [fsBold];
  RightTitleLbl.SetclProSettings(RightTitleLbl.clProSettings);
  RightSubLbl = LoginForm.AddNewProLabel(RightPnl, 'RightSubLbl', 'Şirket Yönetim Sistemi');
  RightSubLbl.Align = alTop;
  RightSubLbl.Height = 35;
  RightSubLbl.clProSettings.FontSize = 16;
  RightSubLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#DBEAFE');
  RightSubLbl.clProSettings.FontHorzAlign = palCenter;
  RightSubLbl.SetclProSettings(RightSubLbl.clProSettings);
  RightInfoLbl = LoginForm.AddNewProLabel(RightPnl, 'RightInfoLbl', '✓ Güvenli Giriş   ✓ Modern Arayüz   ✓ Hızlı Kullanım');
  RightInfoLbl.Align = alTop;
  RightInfoLbl.Margins.Top = 30;
  RightInfoLbl.Height = 40;
  RightInfoLbl.clProSettings.FontSize = 12;
  RightInfoLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#EFF6FF');
  RightInfoLbl.clProSettings.FontHorzAlign = palCenter;
  RightInfoLbl.SetclProSettings(RightInfoLbl.clProSettings);
  LoginForm.FormWaiting.Visible = False;
  LoginForm.BtnFormMenu.Visible = False;
  LoginForm.BtnGoBack.Visible = False;
  LoginForm.Run;
}
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">]]> Tue, 07 Jul 2026 14:51:58 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1598&PID=3694#3694 <![CDATA[buton yerleşim problemi : var LoginForm: TclForm; MainPnl,...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1598&PID=3692#3692 Yazar: smeye
Konu: 1598
Gönderim Zamanı: 07 Temmuz 2026 Saat 14:37

var
  LoginForm: TclForm;
  MainPnl, LeftPnl, RightPnl: TclProPanel;
  TitleLbl, SubLbl, IconLbl, SocialLbl: TclProLabel;
  EmailEdt, PasswordEdt: TclProEdit;
  GirisBtn: TclProButton;
  GoogleBtn, FacebookBtn, XBtn: TclProButton;
  RightIconLbl, RightTitleLbl, RightSubLbl, RightInfoLbl: TclProLabel;
  ModeSwitch: TclSwitch;
  SocialPnl: TclProPanel;
  SocialLayout: TclLayout;
void GirisClick;
{
  // Kullanıcı adı boş mu?
  if (EmailEdt.Text == '')
  {
    ShowMessage('Lütfen kullanıcı adınızı giriniz.');
    Exit;
  }

  // Şifre boş mu?
  if (PasswordEdt.Text == '')
  {
    ShowMessage('Lütfen şifrenizi giriniz.');
    Exit;
  }

  // Şifre en az 6 karakter mi?
  if (Length(PasswordEdt.Text) < 6)
  {
    ShowMessage('Şifre en az 6 karakter olmalıdır.');
    Exit;
  }

  // Şifre nokta içeriyor mu?
  if (Pos('.', PasswordEdt.Text) == 0)
  {
    ShowMessage('Şifre en az bir adet "." karakteri içermelidir.');
    Exit;
  }

  ShowMessage('Giriş başarılı.');
}
void OnGoogleAc;
{
  TClomosyOS.OpenURL('https://www.google.com');
}

void OnFacebookAc;
{
  TClomosyOS.OpenURL('https://www.facebook.com');
}

void OnXAc;
{
  TClomosyOS.OpenURL('https://x.com');
}
void ModeDegistir;
{
  if (ModeSwitch.IsChecked == True)
  {
    LoginForm.SetFormColor('#F8FAFC', '#E2E8F0', clGVertical);

    MainPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFFFFF');
    MainPnl.SetclProSettings(MainPnl.clProSettings);

    LeftPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFFFFF');
    LeftPnl.SetclProSettings(LeftPnl.clProSettings);

    RightPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#38BDF8');
    RightPnl.SetclProSettings(RightPnl.clProSettings);

    TitleLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#0F172A');
    TitleLbl.SetclProSettings(TitleLbl.clProSettings);
  }
  else
  {
    LoginForm.SetFormColor('#0B1220', '#172554', clGVertical);

    MainPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFFFFF');
    MainPnl.SetclProSettings(MainPnl.clProSettings);

    LeftPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFFFFF');
    LeftPnl.SetclProSettings(LeftPnl.clProSettings);

    RightPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2563EB');
    RightPnl.SetclProSettings(RightPnl.clProSettings);

    TitleLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#1E293B');
    TitleLbl.SetclProSettings(TitleLbl.clProSettings);
  }
}
{
  LoginForm = TclForm.Create(Self);
  LoginForm.clSetCaption('Modern Login');
  LoginForm.SetFormColor('#0B1220', '#172554', clGVertical);

  MainPnl = LoginForm.AddNewProPanel(LoginForm, 'MainPnl');
  MainPnl.Align = alCenter;
  MainPnl.Width = 780;
  MainPnl.Height = 440;
  MainPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#ffffff');
  MainPnl.clProSettings.RoundWidth = 28;
  MainPnl.clProSettings.RoundHeight = 28;
  MainPnl.SetclProSettings(MainPnl.clProSettings);

  LeftPnl = LoginForm.AddNewProPanel(MainPnl, 'LeftPnl');
  LeftPnl.Align = alLeft;
  LeftPnl.Width = 390;
  LeftPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#ffffff');
  LeftPnl.clProSettings.RoundWidth = 28;
  LeftPnl.clProSettings.RoundHeight = 28;
  LeftPnl.SetclProSettings(LeftPnl.clProSettings);
  
  // Aydınlık / Karanlık Mod Anahtarı
ModeSwitch = LoginForm.AddNewSwitch(LeftPnl, 'ModeSwitch');

ModeSwitch.Align = alTop;
ModeSwitch.Height = 30;

ModeSwitch.Margins.Top = 12;
ModeSwitch.Margins.Left = 320;
ModeSwitch.Margins.Right = 20;

LoginForm.AddNewEvent(ModeSwitch, tbeOnClick, 'ModeDegistir');

  RightPnl = LoginForm.AddNewProPanel(MainPnl, 'RightPnl');
  RightPnl.Align = alClient;
  RightPnl.Margins.Left = 8;
  RightPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2563EB');
  RightPnl.clProSettings.RoundWidth = 28;
  RightPnl.clProSettings.RoundHeight = 28;
  RightPnl.SetclProSettings(RightPnl.clProSettings);

  IconLbl = LoginForm.AddNewProLabel(LeftPnl, 'IconLbl', '👤');
  IconLbl.Align = alTop;
  IconLbl.Margins.Top = 25;
  IconLbl.Height = 45;
  IconLbl.clProSettings.FontSize = 30;
  IconLbl.clProSettings.FontHorzAlign = palCenter;
  IconLbl.SetclProSettings(IconLbl.clProSettings);

  TitleLbl = LoginForm.AddNewProLabel(LeftPnl, 'TitleLbl', 'Giriş Yap');
  TitleLbl.Align = alTop;
  TitleLbl.Height = 45;
  TitleLbl.clProSettings.FontSize = 28;
  TitleLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#1E293B');
  TitleLbl.clProSettings.FontHorzAlign = palCenter;
  TitleLbl.clProSettings.TextSettings.Font.Style = [fsBold];
  TitleLbl.SetclProSettings(TitleLbl.clProSettings);

  SubLbl = LoginForm.AddNewProLabel(LeftPnl, 'SubLbl', 'Hesabınıza giriş yapın');
  SubLbl.Align = alTop;
  SubLbl.Height = 30;
  SubLbl.clProSettings.FontSize = 13;
  SubLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#64748B');
  SubLbl.clProSettings.FontHorzAlign = palCenter;
  SubLbl.SetclProSettings(SubLbl.clProSettings);
  

  EmailEdt = LoginForm.AddNewProEdit(LeftPnl, 'EmailEdt', 'E-mail');
  EmailEdt.Align = alTop;
  EmailEdt.Margins.Top = 28;
  EmailEdt.Margins.Left = 48;
  EmailEdt.Margins.Right = 48;
  EmailEdt.Height = 46;
  EmailEdt.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F1F5F9');
  EmailEdt.clProSettings.FontColor = clAlphaColor.clHexToColor('#1E293B');
  EmailEdt.clProSettings.RoundWidth = 16;
  EmailEdt.clProSettings.RoundHeight = 16;
  EmailEdt.SetclProSettings(EmailEdt.clProSettings);

  PasswordEdt = LoginForm.AddNewProEdit(LeftPnl, 'PasswordEdt', 'Şifre');
  PasswordEdt.Align = alTop;
  PasswordEdt.Margins.Top = 16;
  PasswordEdt.Margins.Left = 48;
  PasswordEdt.Margins.Right = 48;
  PasswordEdt.Height = 46;
  PasswordEdt.Password = True;
  PasswordEdt.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F1F5F9');
  PasswordEdt.clProSettings.FontColor = clAlphaColor.clHexToColor('#1E293B');
  PasswordEdt.clProSettings.RoundWidth = 16;
  PasswordEdt.clProSettings.RoundHeight = 16;
  PasswordEdt.SetclProSettings(PasswordEdt.clProSettings);
  
 

  GirisBtn = LoginForm.AddNewProButton(LeftPnl, 'GirisBtn', 'GİRİŞ YAP');
  GirisBtn.Align = alTop;
  GirisBtn.Margins.Top = 28;
  GirisBtn.Margins.Left = 75;
  GirisBtn.Margins.Right = 75;
  GirisBtn.Height = 48;
  GirisBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1D4ED8');
  GirisBtn.clProSettings.FontColor = clAlphaColor.clWhite;
  GirisBtn.clProSettings.FontSize = 14;
  GirisBtn.clProSettings.RoundWidth = 18;
  GirisBtn.clProSettings.RoundHeight = 18;
  GirisBtn.clProSettings.TextSettings.Font.Style = [fsBold];
  GirisBtn.SetclProSettings(GirisBtn.clProSettings);
  LoginForm.AddNewEvent(GirisBtn, tbeOnClick, 'GirisClick');
  
   SocialLbl = LoginForm.AddNewProLabel(LeftPnl,'SocialLbl','Sosyal medya ile giris');
  SocialLbl.Align = alTop;
  SocialLbl.Margins.Top = 15;
  SocialLbl.Height = 25;
  SocialLbl.clProSettings.FontSize = 11;
  SocialLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#64748B');
  SocialLbl.clProSettings.FontHorzAlign = palCenter;
  SocialLbl.SetclProSettings(SocialLbl.clProSettings);

  SocialLayout = LoginForm.AddNewLayout(LeftPnl, 'SocialLayout');
  SocialLayout.Align = alTop; 
  SocialLayout.Height = 55;
  SocialLayout.Margins.Left = 105;
  SocialLayout.Margins.Right = 105;
  
    FacebookBtn = LoginForm.AddNewProButton(SocialLayout,'FacebookBtn','f');
       FacebookBtn.Align = alLeft;
       FacebookBtn.Width = 45;
       FacebookBtn.Height = 45;
       FacebookBtn.Margins.Left = 5;
       FacebookBtn.Margins.Top = 5;
       FacebookBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1877F2');
       FacebookBtn.clProSettings.FontColor = clAlphaColor.clWhite;
       FacebookBtn.clProSettings.RoundWidth = 23;
       FacebookBtn.clProSettings.RoundHeight = 23;
       FacebookBtn.SetclProSettings(FacebookBtn.clProSettings);
       LoginForm.AddNewEvent(FacebookBtn,tbeOnClick,'OnFacebookAc');

       GoogleBtn = LoginForm.AddNewProButton(SocialLayout,'GoogleBtn','G');
       GoogleBtn.Align = alLeft;
       GoogleBtn.Width = 45;
       GoogleBtn.Height = 45;
       GoogleBtn.Margins.Left = 15;
GoogleBtn.Margins.Top = 5;
GoogleBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#DB4437');
GoogleBtn.clProSettings.FontColor = clAlphaColor.clWhite;
GoogleBtn.clProSettings.RoundWidth = 23;
GoogleBtn.clProSettings.RoundHeight = 23;
GoogleBtn.SetclProSettings(GoogleBtn.clProSettings);
LoginForm.AddNewEvent(GoogleBtn,tbeOnClick,'OnGoogleAc');

XBtn = LoginForm.AddNewProButton(SocialLayout,'XBtn','X');
XBtn.Align = alLeft;
XBtn.Width = 45;
XBtn.Height = 45;
XBtn.Margins.Left = 15;
XBtn.Margins.Top = 5;
XBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#000000');
XBtn.clProSettings.FontColor = clAlphaColor.clWhite;
XBtn.clProSettings.RoundWidth = 23;
XBtn.clProSettings.RoundHeight = 23;
XBtn.SetclProSettings(XBtn.clProSettings);
LoginForm.AddNewEvent(XBtn,tbeOnClick,'OnXAc');

  
  RightIconLbl = LoginForm.AddNewProLabel(RightPnl, 'RightIconLbl', '💼');
  RightIconLbl.Align = alTop;
  RightIconLbl.Margins.Top = 95;
  RightIconLbl.Height = 55;
  RightIconLbl.clProSettings.FontSize = 38;
  RightIconLbl.clProSettings.FontHorzAlign = palCenter;
  RightIconLbl.SetclProSettings(RightIconLbl.clProSettings);

  RightTitleLbl = LoginForm.AddNewProLabel(RightPnl, 'RightTitleLbl', 'Hoş Geldiniz');
  RightTitleLbl.Align = alTop;
  RightTitleLbl.Height = 50;
  RightTitleLbl.clProSettings.FontSize = 30;
  RightTitleLbl.clProSettings.FontColor = clAlphaColor.clWhite;
  RightTitleLbl.clProSettings.FontHorzAlign = palCenter;
  RightTitleLbl.clProSettings.TextSettings.Font.Style = [fsBold];
  RightTitleLbl.SetclProSettings(RightTitleLbl.clProSettings);

  RightSubLbl = LoginForm.AddNewProLabel(RightPnl, 'RightSubLbl', 'Şirket Yönetim Sistemi');
  RightSubLbl.Align = alTop;
  RightSubLbl.Height = 35;
  RightSubLbl.clProSettings.FontSize = 16;
  RightSubLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#DBEAFE');
  RightSubLbl.clProSettings.FontHorzAlign = palCenter;
  RightSubLbl.SetclProSettings(RightSubLbl.clProSettings);

  RightInfoLbl = LoginForm.AddNewProLabel(RightPnl, 'RightInfoLbl', '✓ Güvenli Giriş   ✓ Modern Arayüz   ✓ Hızlı Kullanım');
  RightInfoLbl.Align = alTop;
  RightInfoLbl.Margins.Top = 30;
  RightInfoLbl.Height = 40;
  RightInfoLbl.clProSettings.FontSize = 12;
  RightInfoLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#EFF6FF');
  RightInfoLbl.clProSettings.FontHorzAlign = palCenter;
  RightInfoLbl.SetclProSettings(RightInfoLbl.clProSettings);

  LoginForm.FormWaiting.Visible = False;
  LoginForm.BtnFormMenu.Visible = False;
  LoginForm.BtnGoBack.Visible = False;

  LoginForm.Run;
}
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">]]> Tue, 07 Jul 2026 14:37:10 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1598&PID=3692#3692