var
registerForm : TclForm;
EmailImg, passwordImg, isimImg, soyisimImg, yasImg, meslekImg: TClProImage;
MainPnl: TclProPanel;
isimLbl, epostaLbl, parolaLbl, yasLbl : TClProLabel;
HiddenPasswordBtn, NormalPasswordBtn, kayitOlBtn: TClProButton;
EmailEdit, isimEdit, ParolaEdit, yasEdit: TclProEdit;
void VirtualKeyboardShow;
{
MainPnl.Margins.Bottom = registerForm.clVKBoundsHeight;
}
void VirtualKeyboardHidden;
{
MainPnl.Margins.Bottom = 0;
}
void HiddenPasswordBtnClick;
{
if not Assigned(NormalPasswordBtn)
{
NormalPasswordBtn = registerForm.AddNewProButton(ParolaEdit, 'NormalPasswordBtn', '');
NormalPasswordBtn.Align = alRight;
NormalPasswordBtn.Margins.Right = 10;
NormalPasswordBtn.Margins.Top = 5;
NormalPasswordBtn.Margins.Bottom = 5;
NormalPasswordBtn.Width = 25;
registerForm.SetImage(NormalPasswordBtn, ' https://i.imgur.com/3h7ewO1.png" rel="nofollow - https://i.imgur.com/3h7ewO1.png ');
registerForm.AddNewEvent(NormalPasswordBtn, tbeOnClick, 'NormalPasswordBtnClick');
}
else
{
NormalPasswordBtn.Visible = True;
}
ParolaEdit.Password = False;
HiddenPasswordBtn.Visible = False;
}
void NormalPasswordBtnClick;
{
try
if not Assigned(HiddenPasswordBtn)
{
HiddenPasswordBtn = registerForm.AddNewProButton(ParolaEdit, 'HiddenPasswordBtn', '');
HiddenPasswordBtn.Align = alRight;
HiddenPasswordBtn.Margins.Right = 10;
HiddenPasswordBtn.Margins.Top = 5;
HiddenPasswordBtn.Margins.Bottom = 5;
HiddenPasswordBtn.Width = 25;
registerForm.SetImage(HiddenPasswordBtn, ' https://i.imgur.com/dQ1keru.png" rel="nofollow - https://i.imgur.com/dQ1keru.png ');
registerForm.AddNewEvent(HiddenPasswordBtn, tbeOnClick, 'HiddenPasswordBtnClick');
}
else
{
HiddenPasswordBtn.Visible = True;
}
ParolaEdit.Password = True;
NormalPasswordBtn.Visible = False;
except
ShowMessage('Exception Class: ' + LastExceptionClassName + ' Exception Message: ' + LastExceptionMessage);
}
}
{
registerForm = TclForm.Create(Self);
MainPnl = registerForm.AddNewProPanel(registerForm, 'MainPnl');
MainPnl.Align = alCenter;
MainPnl.Height = 630;
MainPnl.Width = 400;
MainPnl.clProSettings.RoundHeight = 40;
MainPnl.clProSettings.RoundWidth = 40;
//MainPnl.clProSettings.IsFill = False;
//MainPnl.clProSettings.BorderWidth = 3;
MainPnl.clProSettings.IsTransparent = False;
MainPnl.SetclProSettings(MainPnl.clProSettings);
//İsim label ayarları
isimLbl = registerForm.AddNewProLabel(MainPnl, 'isimLbl' , 'İsim');
isimLbl.Align = alCenter;
isimLbl.Margins.Top = 0;
isimLbl.Margins.Left = 0;
isimLbl.Margins.Right = 220;
isimLbl.Margins.Bottom = 220;
isimLbl.Height = 50;
isimLbl.Width = 100;
isimLbl.clProSettings.FontSize = 20;
isimLbl.SetclProSettings(isimLbl.clProSettings);
//Email Label ayarları
epostaLbl = registerForm.AddNewProLabel(MainPnl, 'epostaLbl', 'E-Mail');
epostaLbl.Align = alCenter;
epostaLbl.Margins.Top = 0;
epostaLbl.Margins.Left = 0;
epostaLbl.Margins.Right = 220;
epostaLbl.Margins.Bottom = 30;
epostaLbl.Height = 50;
epostaLbl.Width = 100;
epostaLbl.clProSettings.FontSize = 20;
epostaLbl.SetclProSettings(epostaLbl.clProSettings);
//Parola Label ayarları
parolaLbl = registerForm.AddNewProLabel(MainPnl, 'parolaLbl', 'Parola');
parolaLbl.Align = alCenter;
parolaLbl.Margins.Top = 280;
parolaLbl.Margins.Left = 0;
parolaLbl.Margins.Right = 220;
parolaLbl.Height = 50;
parolaLbl.Width = 100;
parolaLbl.clProSettings.FontSize = 20;
parolaLbl.SetclProSettings(parolaLbl.clProSettings);
//Yaş label ayarları
yasLbl = registerForm.AddNewProLabel(MainPnl, 'yasLbl' , 'Yaş');
yasLbl.Align = alCenter;
yasLbl.Margins.Top = 100;
yasLbl.Margins.Left = 0;
yasLbl.Margins.Right = 220;
yasLbl.Height = 50;
yasLbl.Width = 100;
yasLbl.clProSettings.FontSize = 20;
yasLbl.SetclProSettings(yasLbl.clProSettings);
// Email edit setup
EmailEdit = registerForm.AddNewProEdit(MainPnl, 'EmailEdit', 'E-posta');
EmailEdit.Align = alCenter;
EmailEdit.Height = 50;
EmailEdit.Width = 350;
EmailEdit.Margins.Top =120;
EmailEdit.Margins.Left = 20;
EmailEdit.Margins.Right = 20;
EmailEdit.Margins.Bottom = 100;
EmailEdit.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#B2F0E4');
EmailEdit.clProSettings.IsTransparent = True;
EmailEdit.clProSettings.IsFill = False;
EmailEdit.clProSettings.IsRound = True;
EmailEdit.clProSettings.RoundHeight = 30;
EmailEdit.clProSettings.RoundWidth = 40;
EmailEdit.TextSettings.Font.Size = 16;
EmailEdit.clProSettings.FontColor = clAlphaColor.clHexToColor('#070807');
//EmailEdit.clProSettings.BorderColor = clAlphaColor.clHexToColor('#070807');
//EmailEdit.clProSettings.BorderWidth = 2;
EmailEdit.SetclProSettings(EmailEdit.clProSettings);
EmailImg = registerForm.AddNewProImage(EmailEdit,'EmailImg');
EmailImg.Align = alLeft;
EmailImg.Margins.Left = 10;
EmailImg.Margins.Top = 5;
EmailImg.Margins.Bottom =5;
EmailImg.Width = 25;
registerForm.SetImage(EmailImg,' https://i.imgur.com/g9t6md5.png" rel="nofollow - https://i.imgur.com/g9t6md5.png ');
// İsim edit setup
isimEdit = registerForm.AddNewProEdit(MainPnl, 'isimEdit', 'İsim');
isimEdit.Align = alCenter;
isimEdit.Height = 50;
isimEdit.Width = 350;
isimEdit.Margins.Top =20;
isimEdit.Margins.Left = 20;
isimEdit.Margins.Right = 20;
isimEdit.Margins.Bottom = 180;
isimEdit.Password = True;
isimEdit.TextSettings.Font.Size = 16;
isimEdit.clProSettings.FontColor = clAlphaColor.clHexToColor('#151515');
isimEdit.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#B2F0E4');
isimEdit.clProSettings.IsTransparent = True;
isimEdit.clProSettings.IsFill = False;
isimEdit.clProSettings.IsRound = True;
isimEdit.clProSettings.RoundHeight = 30;
isimEdit.clProSettings.RoundWidth = 40;
//isimEdit.clProSettings.BorderColor = clAlphaColor.clHexToColor('#070807');
//isimEdit.clProSettings.BorderWidth = 2;
isimEdit.SetclProSettings(isimEdit.clProSettings);
isimImg = registerForm.AddNewProImage(isimEdit,'isimImg');
isimImg.Align = alLeft;
isimImg.Margins.Left = 10;
isimImg.Margins.Top = 5;
isimImg.Margins.Bottom =5;
isimImg.Width = 25;
registerForm.SetImage(isimImg,' https://i.imgur.com/PqhWaa3.png" rel="nofollow - https://i.imgur.com/PqhWaa3.png ');
// Password edit setup
ParolaEdit = registerForm.AddNewProEdit(MainPnl, 'ParolaEdit', 'Parola');
ParolaEdit.Align = alCenter;
ParolaEdit.Height = 50;
ParolaEdit.Width = 350;
ParolaEdit.Margins.Top =210;
ParolaEdit.Margins.Left = 20;
ParolaEdit.Margins.Right = 20;
ParolaEdit.Margins.Bottom = 10;;
ParolaEdit.Password = True;
ParolaEdit.TextSettings.Font.Size = 16;
ParolaEdit.clProSettings.FontColor = clAlphaColor.clHexToColor('#151515');
ParolaEdit.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#B2F0E4');
ParolaEdit.clProSettings.IsTransparent = True;
ParolaEdit.clProSettings.IsFill = False;
ParolaEdit.clProSettings.IsRound = True;
ParolaEdit.clProSettings.RoundHeight = 30;
ParolaEdit.clProSettings.RoundWidth = 40;
// ParolaEdit.clProSettings.BorderColor = clAlphaColor.clHexToColor('#070807');
//ParolaEdit.clProSettings.BorderWidth = 2;
ParolaEdit.SetclProSettings(ParolaEdit.clProSettings);
// Yas edit setup
yasEdit = registerForm.AddNewProEdit(MainPnl, 'yasEdit', 'Yaş');
yasEdit.Align = alCenter;
yasEdit.Height = 50;
yasEdit.Width = 350;
yasEdit.Margins.Top =380;
yasEdit.Margins.Left = 20;
yasEdit.Margins.Right = 20;
yasEdit.Margins.Bottom = 0;
yasEdit.Password = True;
yasEdit.TextSettings.Font.Size = 16;
yasEdit.clProSettings.FontColor = clAlphaColor.clHexToColor('#151515');
yasEdit.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#B2F0E4');
yasEdit.clProSettings.IsTransparent = True;
yasEdit.clProSettings.IsFill = False;
yasEdit.clProSettings.IsRound = True;
yasEdit.clProSettings.RoundHeight = 30;
yasEdit.clProSettings.RoundWidth = 40;
//yasEdit.clProSettings.BorderColor = clAlphaColor.clHexToColor('#070807');
//yasEdit.clProSettings.BorderWidth = 2;
yasEdit.SetclProSettings(yasEdit.clProSettings);
yasImg = registerForm.AddNewProImage(yasEdit,'yasImg');
yasImg.Align = alLeft;
yasImg.Margins.Left = 10;
yasImg.Margins.Top = 5;
yasImg.Margins.Bottom =5;
yasImg.Width = 25;
registerForm.SetImage(yasImg,' https://imgur.com/sfIaXkU.png" rel="nofollow - https://imgur.com/sfIaXkU.png ');
HiddenPasswordBtn = registerForm.AddNewProButton(ParolaEdit,'HiddenPasswordBtn', '');
HiddenPasswordBtn.Align = alRight;
HiddenPasswordBtn.Margins.Right = 10 ;
HiddenPasswordBtn.Margins.Top =5 ;
HiddenPasswordBtn.Margins.Bottom = 5 ;
HiddenPasswordBtn.Width = 25;
registerForm.SetImage(HiddenPasswordBtn,' https://i.imgur.com/dQ1keru.png" rel="nofollow - https://i.imgur.com/dQ1keru.png ');
passwordImg = registerForm.AddNewProImage(ParolaEdit,'passwordImg');
passwordImg.Align = alLeft;
passwordImg.Margins.Left = 10;
passwordImg.Margins.Top = 5;
passwordImg.Margins.Bottom =5;
passwordImg.Width = 25;
registerForm.SetImage(passwordImg,' https://i.imgur.com/G2qFyZf.png" rel="nofollow - https://i.imgur.com/G2qFyZf.png ');
// Kayıt Ol buton ayarları
kayitOlBtn = registerForm.AddNewProButton(MainPnl, 'kayitOlBtn', 'Kayıt Ol');
kayitOlBtn.Align = alCenter;
kayitOlBtn.Height = 50;
kayitOlBtn.Width = MainPnl.Width*40/100;
kayitOlBtn.Margins.Top =600;
kayitOlBtn.Margins.Left = 20;
kayitOlBtn.Margins.Right = 20;
kayitOlBtn.Margins.Bottom = 10;
kayitOlBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FF6B35');
kayitOlBtn.clProSettings.RoundHeight = 30;
kayitOlBtn.clProSettings.RoundWidth = 40;
kayitOlBtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#070807');
kayitOlBtn.clProSettings.FontSize = 16;
//kayitOlBtn.clProSettings.BorderWidth = 2;
kayitOlBtn.SetclProSettings(kayitOlBtn.clProSettings);
registerForm.SetFormBGImage(' https://i.imgur.com/U5e5R9k.png" rel="nofollow - https://i.imgur.com/U5e5R9k.png ');
registerForm.AddNewEvent(HiddenPasswordBtn,tbeOnClick,'HiddenPasswordBtnClick');
registerForm.AddNewEvent(kayitOlBtn, tbeOnClick, 'BtnOnLoginClick');
registerForm.AddNewEvent(registerForm,tbeOnVirtualKeyboardShown,'VirtualKeyboardShow');
registerForm.AddNewEvent(registerForm,tbeOnVirtualKeyboardHidden,'VirtualKeyboardHidden');
registerForm.Run;
}