var

myForm: TclForm; //myForm'un yanında , vardı kaldırıldı.

EmailEdit, ParolaEdit: TclProEdit;

GirisBtn, UyeOlBtn, HiddenPasswordBtn, NormalPasswordBtn: TClProButton;

UyeOlLbl,OrLabel: TClProLabel;

MainPnl,Socialpnl: TclProPanel;

TclLogo: TClProImage;

EmailImg, passwordImg: TClProImage;

LinkedlnBtn, FacebookBtn,GoogleBtn : TClProButton;

void GoToKayitolUnit;

{

Clomosy.RunUnit('UnitRegister');

}

void GoToLoginUnit;

{

Clomosy.RunUnit('Login');

}

{

myForm = TclForm. Create(Self);

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

TclLogo=myForm.AddNewProImage(MainPnl,'TclLogo');

TclLogo.Align=alMostTop;

TclLogo.Height=220;

TclLogo.Margins.Top=20;

TclLogo.Margins.Left=20;

TclLogo.Margins.Right=20;

TclLogo.clProSettings.IsTransparent=True;

TclLogo.clProSettings.PictureSource='https://i.imgur.com/bNebUPp.png';

TclLogo.SetclProSettings(TclLogo.ClProSettings);

GirisBtn=myForm.AddNewProButton(MainPnl,'GirisBtn', 'Giris Yap');

GirisBtn.Align=alCenter;

GirisBtn.Height=50;

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

GirisBtn.Margins.Top=30;

GirisBtn.Margins.Left=20;

GirisBtn.Margins.Right=20;

GirisBtn.Margins.Bottom=85;

GirisBtn.ClProSettings.BackgroundColor=clAlphaColor.clHexToColor('#c54242');

GirisBtn.ClProSettings.RoundHeight=20;

GirisBtn.ClProSettings.RoundWidth=20;

Girisbtn.ClProSettings.FontColor=clAlphaColor.clHexToColor ('070807');

Girisbtn.ClProSettings.FontSize=16;

GirisBtn.ClProSettings.Borderwidth=2;

GirisBtn.SetclProSettings(GirisBtn.ClProSettings);

UyeOlBtn=myForm.AddNewProButton(MainPnl,'UyeOlBtn', 'Üye ol');

UyeOlBtn.Align=alCenter;

UyeOlBtn.Height=50;

UyeOlBtn.Width=MainPnl.Width*70/100;

UyeOlBtn.Margins. Top=200;

UyeOlBtn.Margins.Left=20;

UyeOlBtn.Margins.Right=20;

UyeOlBtn.Margins.Bottom=85;

UyeOlBtn.ClProSettings.BackgroundColor=clAlphaColor.clHexToColor('#979695'); //CIProsettings yazılmıştı ClProsettings olarak değiştirildi.

UyeOlBtn.ClProSettings.Roundwidth=20;

UyeOlBtn.ClProSettings.RoundHeight=20;

UyeOlBtn.ClProsettings.BorderColor=clAlphaColor.clHexToColor('#000000');

UyeOlBtn.ClProSettings.FontSize=16;

UyeOlBtn.ClProSettings.BorderWidth=2;

UyeOlBtn.SetclProSettings(UyeolBtn.ClProSettings);

OrLabel=myForm.AddNewProLabel(MainPnl,'OrLabel','-----------OR-----------');

OrLabel.Align=alCenter;

OrLabel.Width=MainPnl.Width*80/100;

OrLabel.Margins.Left=110;

OrLabel.Margins.Right=55;

OrLabel.Margins.Top=240;

OrLabel.ClProSettings.FontSize=20;

OrLabel.SetclProSettings(OrLabel.ClProSettings);

SocialPnl=myForm.AddNewProPanel(MainPnl,'SocialPnl');

SocialPnl.Align=alMostBottom; //SocialPnlAlign birleşik yazılmıştı SocialPnl.Align olması gerek.

SocialPnl.Height=50;

SocialPnl.Width=MainPnl.Width;

SocialPnl.Margins.Top=20;

SocialPnl.Margins.Left=115;

SocialPnl.Margins.Right=30;

SocialPnl.Margins.Bottom=10;

SocialPnl.ClProSettings.IsTransparent=True;

SocialPnl.SetclProSettings(SocialPnl.ClProSettings);

GoogleBtn=myForm.AddNewProButton(SocialPnl, 'Googleßtn','');

GoogleBtn.Align=alLeft;

GoogleBtn.Width=45;

GoogleBtn.Height=45;

GoogleBtn.ClProSettings.PictureSource='https://i.imgur.com/7wwJN4N.png';

GoogleBtn.SetclproSettings(GoogleBtn.ClProSettings);

FacebookBtn=myForm.AddNewProButton(SocialPnl, 'FacebookBtn', '');

FacebookBtn.Align=alleft;

FacebookBtn.Width=45;

FacebookBtn.Height=45;

FacebookBtn.Margins.Left=20;

FacebookBtn.ClProSettings.PictureSource='https://i.imgur.com/YCj4aCM.png';

FacebookBtn.SetclproSettings(FacebookBtn.ClProSettings);

LinkedlnBtn=myForm.AddNewProButton(SocialPnl,'LinkedlnBtn','');

LinkedlnBtn.Align=alLeft;

LinkedlnBtn.Height=45;

LinkedlnBtn.Width=45;

LinkedlnBtn.Margins.Left=20;

LinkedlnBtn.ClProSettings.Picturesource='https://i.imgur.com/srczjD0.png';

LinkedlnBtn.SetclProSettings(LinkedlnBtn.ClProSettings);

myForm.AddNewEvent(GirisBtn,tbeOnClick, 'GoToLoginUnit');

myForm.AddNewEvent(UyeolBtn, tbeOnClick, 'GoToKayitolUnit');

myForm.SetFormBGImage('https://resmim.net/cdn/2025/07/11/TzT1eo.webp'); //Resim değiştirildi

myForm.Run;

}