Talimat: Bir form oluştur ve çeşitli metin kutuları ile yanlarına ilgili simgeleri yerleştir.
Kod:
AdminAdresEdit = AdminForm.AddNewProEdit(AdminVerticalScrollBox, 'AdminAdresEdit', 'Adres');
AdminAdresEdit.Align = alTop;
AdminAdresEdit.Height = 50;
AdminAdresEdit.Margins.Top = 25;
AdminAdresEdit.Margins.Left = 20;
AdminAdresEdit.Margins.Right = 20;
AdminAdresEdit.clProSettings.IsTransparent = False;
AdminAdresEdit.clProSettings.IsFill = False;
AdminAdresEdit.clProSettings.IsRound = True;
AdminAdresEdit.clProSettings.RoundHeight = 10;
AdminAdresEdit.clProSettings.RoundWidth = 10;
AdminAdresEdit.TextSettings.Font.Size = 16;
AdminAdresEdit.clProSettings.FontColor = clAlphaColor.clHexToColor('#070807');
AdminAdresEdit.clProSettings.BorderColor = clAlphaColor.clHexToColor('#000000');
AdminAdresEdit.clProSettings.BorderWidth = 1;
AdminAdresEdit.SetclProSettings(AdminAdresEdit.clProSettings);
AdminAdresImg = AdminForm.AddNewProImage(AdminAdresEdit,'AdminAdresImg');
AdminAdresImg.Align = alLeft;
AdminAdresImg.Margins.Left = 10;
AdminAdresImg.Margins.Top = 5;
AdminAdresImg.Margins.Bottom =5;
AdminAdresImg.Width = 25;
AdminForm.SetImage(AdminAdresImg,'https://i.imgur.com/1KzXjrV.png');