|
panel içinde panel kullanılabilir mi?
var Bilgiekrani:TclStyleForm; vScroll:TCLVertScrollBox; isimbtn:TClProButton; bilgiresmi,bilgiresmi1:TclProImage; markalabel,modelilabel,Fiyatlabel,Bedenilabel:TclProLabel; ProPanel1 : TclProPanel;
{ Bilgiekrani=TclStyleForm.Create(Self); vScroll = Bilgiekrani.AddNewVertScrollBox(Bilgiekrani,'ScrollBoxY'); vScroll.Align = alClient; // vScroll.ShowSrollBars = True; /* ProPanel1=Bilgiekrani.AddNewProPanel(vScroll,'ProPanel1'); ProPanel1.Align = alClient; //ProPanel1.Width = 200; // ProPanel1.Height = 280; ProPanel1.clProSettings.BorderColor = clAlphaColor.clHexToColor('#979685'); ProPanel1.clProSettings.RoundHeight = 10; ProPanel1.clProSettings.RoundWidth = 10; ProPanel1.clProSettings.BorderWidth = 2; ProPanel1.clProSettings.IsFill = True; ProPanel1.clProSettings.IsRound = True; ProPanel1.SetclProSettings(ProPanel1.clProSettings);*/ isimbtn=Bilgiekrani.AddNewProButton(vScroll,'isimbtn','bilgi') isimbtn.Height=200; isimbtn.Width=250; //isimbtn.Align=alTop; //isimbtn.Margins.Top=15; // isimbtn.Margins.Left=10; //isimbtn.Margins.Right=10; isimbtn.Align=alTop; //isimbtn.Margins.Bottom=0; isimbtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF'); isimbtn.ClProSettings.BackgroundColor=clAlphaColor.clHexToColor('#979685'); isimbtn.ClProSettings.RoundWidth=20; isimbtn.ClProSettings.RoundHeight=20; isimbtn.ClProSettings.BorderColor=clAlphaColor.clHexToColor('#f1e9e9'); isimbtn.ClProSettings.FontSize=30; isimbtn.ClProSettings.borderWidth=2; isimbtn.SetClProSettings(isimbtn.ClProSettings); Bilgiekrani.AddNewEvent(isimbtn,tbeOnClick,''); bilgiresmi = Bilgiekrani.AddNewProImage(vScroll,'bilgiresmi'); bilgiresmi.Margins.Top=10; //bilgiresmi.Margins.Bottom=200; // bilgiresmi.Width = 350; bilgiresmi.Height = 450; bilgiresmi.Align=alTop; bilgiresmi.clProSettings.BorderColor = clAlphaColor.clHexToColor('#6f35b6'); bilgiresmi.clProSettings.FontColor = clAlphaColor.clDarkorchid; bilgiresmi.clProSettings.RoundHeight = 10; bilgiresmi.clProSettings.RoundWidth = 10; bilgiresmi.clProSettings.BorderWidth = 2; bilgiresmi.clProSettings.IsFill = True; bilgiresmi.clProSettings.IsRound = True; bilgiresmi.clProSettings.PictureSource = ' https://r.resimlink.com/gy8IVpFt0d.png" rel="nofollow - https://r.resimlink.com/gy8IVpFt0d.png '; bilgiresmi.clProSettings.PictureAutoFit = True; bilgiresmi.SetclProSettings(bilgiresmi.clProSettings); markalabel = Bilgiekrani.AddNewProLabel(vScroll,'markalabel','Markası'+' '+'Nike'); markalabel.Width = 250; markalabel.Height = 30; markalabel.Align=alTop; //markalabel.Margins.Bottom=50; // markalabel.Margins.Top=340; markalabel.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000'); markalabel.clProSettings.FontSize = 20; markalabel.clProSettings.FontVertAlign = palcenter; markalabel.clProSettings.FontHorzAlign = palLeading; markalabel.clProSettings.TextSettings.Font.Style = [fsBold]; markalabel.clProSettings.IsFill = True; markalabel.clProSettings.IsRound = True; markalabel.SetclProSettings(markalabel.clProSettings); bilgiresmi1 = Bilgiekrani.AddNewProImage(vScroll,'bilgiresmi1'); bilgiresmi1.Margins.Top=10; //bilgiresmi.Margins.Bottom=200; // bilgiresmi.Width = 350; bilgiresmi1.Height = 450; bilgiresmi1.Align=alTop; bilgiresmi1.clProSettings.BorderColor = clAlphaColor.clHexToColor('#6f35b6'); bilgiresmi1.clProSettings.FontColor = clAlphaColor.clDarkorchid; bilgiresmi1.clProSettings.RoundHeight = 10; bilgiresmi1.clProSettings.RoundWidth = 10; bilgiresmi1.clProSettings.BorderWidth = 2; bilgiresmi1.clProSettings.IsFill = True; bilgiresmi1.clProSettings.IsRound = True; bilgiresmi1.clProSettings.PictureSource = ' https://r.resimlink.com/gy8IVpFt0d.png" rel="nofollow - https://r.resimlink.com/gy8IVpFt0d.png '; bilgiresmi1.clProSettings.PictureAutoFit = True; bilgiresmi1.SetclProSettings(bilgiresmi.clProSettings); Bilgiekrani.Run;
}
|