var
LoginForm : TclForm;
MainPanel, HeaderPanel, CardPanel, FormPanel : TclPanel;
ImgLogo : TclImage;
LblBaslik, LblAciklama : TclLabel;
EdtEmail, EdtSifre : TclEdit;
BtnGiris, BtnKayit : TclButton;
void GirisYap;
{
if (EdtEmail.Text == '')
ShowMessage('Lütfen e-posta adresinizi giriniz.');
else if (EdtSifre.Text == '')
ShowMessage('Lütfen şifrenizi giriniz.');
else
ShowMessage('Giriş kontrolü yapılacak.');
}
void KayitEkraninaGit;
{
ShowMessage('Kayıt ekranı açılacak.');
}
{
LoginForm = TclForm.Create(Self);
LoginForm.clSetCaption('Terzim');
LoginForm.SetFormColor('#F3F4F8', '#F3F4F8', clGVertical);
MainPanel = LoginForm.AddNewPanel(LoginForm, 'MainPanel');
MainPanel.Align = alClient;
HeaderPanel = LoginForm.AddNewPanel(MainPanel, 'HeaderPanel');
HeaderPanel.Align = alTop;
HeaderPanel.Height = 260;
ImgLogo = LoginForm.AddNewImage(HeaderPanel, 'ImgLogo');
ImgLogo.Align = alTop;
ImgLogo.Height = 115;
LoginForm.SetImage(
ImgLogo,
' https://drive.google.com/uc?export=view&id=1GlGa6PTruDLui7_6kl_YexHlWhQWYwZn" rel="nofollow - https://drive.google.com/uc?export=view&id=1GlGa6PTruDLui7_6kl_YexHlWhQWYwZn '
);
ImgLogo = LoginForm.AddNewImage(HeaderPanel, 'ImgLogo');
ImgLogo.Align = alTop;
ImgLogo.Height = 115;
// Drive'dan gelen görseli terzimlogo.png adıyla kullanacağız.
LoginForm.SetImage(ImgLogo, 'terzimlogo.png');
LblBaslik = LoginForm.AddNewLabel(HeaderPanel, 'LblBaslik', 'TERZİM');
LblBaslik.Align = alTop;
LblBaslik.Height = 60;
LblBaslik.StyledSettings = ssFamily;
LblBaslik.TextSettings.Font.Size = 34;
LblBaslik.TextSettings.HorzAlign = taCenter;
LblAciklama = LoginForm.AddNewLabel(HeaderPanel, 'LblAciklama', 'Terzi hizmetlerine kolayca ulaş');
LblAciklama.Align = alTop;
LblAciklama.Height = 35;
LblAciklama.TextSettings.Font.Size = 17;
LblAciklama.TextSettings.HorzAlign = taCenter;
CardPanel = LoginForm.AddNewPanel(MainPanel, 'CardPanel');
CardPanel.Align = alTop;
CardPanel.Height = 360;
CardPanel.Margins.Left = 25;
CardPanel.Margins.Right = 25;
CardPanel.Margins.Top = 25;
FormPanel = LoginForm.AddNewPanel(CardPanel, 'FormPanel');
FormPanel.Align = alClient;
FormPanel.Margins.Left = 20;
FormPanel.Margins.Right = 20;
FormPanel.Margins.Top = 25;
FormPanel.Margins.Bottom = 20;
EdtEmail = LoginForm.AddNewEdit(FormPanel, 'EdtEmail', 'E-posta adresiniz');
EdtEmail.Align = alTop;
EdtEmail.Height = 55;
EdtEmail.KeyboardType = vktEmailAddress;
EdtSifre = LoginForm.AddNewEdit(FormPanel, 'EdtSifre', 'Şifreniz');
EdtSifre.Align = alTop;
EdtSifre.Height = 55;
EdtSifre.Margins.Top = 12;
BtnGiris = LoginForm.AddNewButton(FormPanel, 'BtnGiris', 'Giriş Yap');
BtnGiris.Align = alTop;
BtnGiris.Height = 55;
BtnGiris.Margins.Top = 25;
BtnGiris.TextSettings.Font.Size = 18;
BtnKayit = LoginForm.AddNewButton(FormPanel, 'BtnKayit', 'Hesap Oluştur');
BtnKayit.Align = alTop;
BtnKayit.Height = 55;
BtnKayit.Margins.Top = 15;
LoginForm.AddNewEvent(BtnGiris, tbeOnClick, 'GirisYap');
LoginForm.AddNewEvent(BtnKayit, tbeOnClick, 'KayitEkraninaGit');
LoginForm.Run;
}
RUNTIME ERROR
File library Main: https://drive.google.com/uc" rel="nofollow - https://drive.google.com/uc ?export=view&id=1GlGa6PTruDLui7_6kl_YexHlWhQWYwZn Download failed after multiple attempts: Cannot create file "C:\Users\HP\AppData\Roaming\ClomosyLearn\Assets\Projects\CLOSTARTER\EE7F1630ED4\uc?export=view&id=1GlGa6PTruDLui7_6kl_YexHlWhQWYwZn". Dosya adı, dizin adı veya birim etiketi sözdizimi hatalı when evaluating instruction CallProc ($FFFFFFFF,$2,$13EA270,$0,'SetImage').
Stack content is: [Null,Null,Null,Null...].
Source position: 43,2
Position: 43, 2