Clomosy | Forum : ProListView'de Artı Butonuyla Yalnızca İlgili Ürün

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

}