void ArttirMiktar(Sender: TObject)
{
lblMiktar.Text = IntToStr(StrToInt(lblMiktar.Text) + 1);
}
void AzaltMiktar;
{
if (StrToInt(lblMiktar.Text) > 1)
{
lblMiktar.Text = IntToStr(StrToInt(lblMiktar.Text) - 1);
}
}
void CreateData;
{
Img = MyForm.AddNewProImage(DesignerPanel1, 'Img');
Img.Align = AlCenter;
Img.Margins.Right=190;
Img.Height=100;
Img.Width=100;
Img.clProSettings.RoundHeight = 10;
Img.clProSettings.RoundWidth = 10;
Img.clProSettings.IsRound = True;
Img.clProSettings.PictureAutoFit = True;
Img.SetclProSettings(Img.clProSettings);
DesignerPanel1.AddPanelObject(Img, clImage1);
taskStokAciklama = MyForm.AddNewProLabel(DesignerPanel1, 'taskStokAciklama', ' ');
taskStokAciklama.Align = AlCenter;
taskStokAciklama.Margins.Bottom=20;
taskStokAciklama.Margins.Left=80;
taskStokAciklama.clProSettings.WordWrap=True;
taskStokAciklama.clProSettings.FontColor = clAlphaColor.clHexToColor('#fff5e9');
taskStokAciklama.clProSettings.FontSize = 20;
DesignerPanel1.AddPanelObject(taskStokAciklama, clText1);
taskStokAdi = MyForm.AddNewProLabel(DesignerPanel1, 'taskStokAdi', ' ');
taskStokAdi.Align = AlCenter;
taskStokAdi.Margins.Bottom=50;
taskStokAdi.Margins.Left=80;
taskStokAdi.clProSettings.FontColor = clAlphaColor.clHexToColor('#fff5e9');
taskStokAdi.clProSettings.FontSize = 20;
DesignerPanel1.AddPanelObject(taskStokAdi, clCaption);
taskSatisFiyati = MyForm.AddNewProLabel(DesignerPanel1, 'taskSatisFiyati', ' ');
taskSatisFiyati.Align = AlCenter;
taskSatisFiyati.Margins.Top=70;
taskSatisFiyati.Margins.Left=80;
taskSatisFiyati.clProSettings.FontColor = clAlphaColor.clHexToColor('#fff5e9');
taskSatisFiyati.clProSettings.FontSize = 20;
DesignerPanel1.AddPanelObject(taskSatisFiyati, clText2);
lblMiktar = MyForm.AddNewProLabel(DesignerPanel1, 'lblMiktar', '0');
lblMiktar.Align = alCenter;
lblMiktar.Margins.Left =270;
lblMiktar.Width = 30;
lblMiktar.Height = 30;
btnArti = MyForm.AddNewProButton(DesignerPanel1, 'btnArti' , '+');
btnArti.Align = alCenter;
btnArti.Margins.Left = 250;
btnArti.Margins.Bottom = 70;
btnArti.Width = 30;
btnArti.Height = 30;
btnArti.clProSettings.FontSize = 14;
btnArti.SetclProSettings(btnArti.clProSettings);
MyForm.AddNewEvent(btnArti, tbeOnClick, 'ArttirMiktar' );
btnEksi = MyForm.AddNewProButton(DesignerPanel1, 'btnEksi' , '-');
btnEksi.Align = alCenter;
btnEksi.Margins.Left = 250;
btnEksi.Margins.Top = 50;
btnEksi.Width = 30;
btnEksi.Height = 30;
btnEksi.clProSettings.FontSize = 14;
btnEksi.SetclProSettings(btnEksi.clProSettings);
MyForm.AddNewEvent(btnEksi, tbeOnClick, 'AzaltMiktar' );
}
void CreateListView
{
PListView1 = MyForm.AddNewProListView(MyForm,'PListView1');
PListView1.Align = AlCenter;
PListView1.Margins.Top = 130;
PListView1.Margins.Right = 20;
PListView1.Margins.Left = 20;
PListView1.Height=380;
PListView1.Width=340;
PListView1.clProSettings.ColCount = 1;
PListView1.clProSettings.ItemHeight = 100;
PListView1.clProSettings.ItemSpace = 10;
PListView1.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#e8d9cc');
PListView1.clProSettings.BorderColor = clAlphaColor.clHexToColor('#b8aa9c');
PListView1.clProSettings.BorderWidth = 2;
PListView1.clProSettings.RoundHeight = 5;
PListView1.clProSettings.RoundWidth = 5;
PListView1.SetclProSettings(PListView1.clProSettings);
}
void CreateDesignerPanel
{
DesignerPanel1 = MyForm.AddNewProListViewDesignerPanel(PListView1, 'DesignerPanel1');
DesignerPanel1.Align=AlCenter;
DesignerPanel1.Margins.Top=100;
DesignerPanel1.Height = 100;
DesignerPanel1.Width = 150;
DesignerPanel1.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#fff5e9');
DesignerPanel1.clProSettings.BorderColor = clAlphaColor.clHexToColor('#fff5e9');
DesignerPanel1.clProSettings.BorderWidth = 2;
DesignerPanel1.clProSettings.RoundHeight = 20;
DesignerPanel1.clProSettings.RoundWidth = 20;
DesignerPanel1.SetclProSettings(DesignerPanel1.clProSettings);
PListView1.SetDesignerPanel(DesignerPanel1);
}