Clomosy | Forum : Yazılan mesaj gizleniyor

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

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

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

// İ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');

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

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

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

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

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

registerForm.AddNewEvent(kayitOlBtn, tbeOnClick, 'BtnOnLoginClick');

registerForm.AddNewEvent(registerForm,tbeOnVirtualKeyboardShown,'VirtualKeyboardShow');

registerForm.AddNewEvent(registerForm,tbeOnVirtualKeyboardHidden,'VirtualKeyboardHidden');

registerForm.Run;

}