OrangeUI

 
 
ListBox添加Item的代码如下：

procedure TFrameListBox_ItemOperCode.btnAddItemClick(Sender: TObject);
var
I: Integer;
AListBoxItem:TSkinListBoxItem;
begin
//准备批量添加
Self.lbTicketProductList.Prop.Items.BeginUpdate;
try
//先清空所有Item
Self.lbTicketProductList.Prop.Items.Clear(True);
 
for I := 0 to 20-1 do
begin
//添加Item
AListBoxItem:=Self.lbTicketProductList.Prop.Items.Add;
AListBoxItem.Caption:=IntToStr(I)+'南靖土楼云水谣相当好玩你来不来';
AListBoxItem.Detail:='南靖土楼小区12栋';
AListBoxItem.Detail1:='109';
AListBoxItem.Detail2:='100';
//如果有图片的网址,那么可以直接指定Icon的Url
if I mod 2 = 0 then
begin
AListBoxItem.Icon.Url:='http://www.orangeui.cn/download/testdownloadpicturemanager/TicketProduct1.png';
end
else
begin
AListBoxItem.Icon.Url:='http://www.orangeui.cn/download/testdownloadpicturemanager/TicketProduct2.png';
end;
//      //如果图标是文件,则可以使用LoadFromFile
//      AListBoxItem.Icon.LoadFromFile(AFilePath);
//      //如果图标是数据流,则可以使用LoadFromStream
//      AListBoxItem.Icon.LoadFromStream(AMemoryStream);
end;
 
finally
Self.lbTicketProductList.Prop.Items.EndUpdate();
end;
end;
 
 
 
ListBox清空所有Item的代码如下:

procedure TFrameListBox_ItemOperCode.btnClearItemClick(Sender: TObject);
var
I: Integer;
AListBoxItem:TSkinListBoxItem;
begin
//准备批量添加
Self.lbTicketProductList.Prop.Items.BeginUpdate;
try
//清空所有Item
Self.lbTicketProductList.Prop.Items.Clear(True);
 
finally
Self.lbTicketProductList.Prop.Items.EndUpdate();
end;
end;
 
 
 
ListBox删除指定Item的代码如下:

procedure TFrameListBox_ItemOperCode.btnDelItemClick(Sender: TObject);
begin
if Self.lbTicketProductList.Prop.Items.Count>0 then
begin
Self.lbTicketProductList.Prop.Items.Delete(0);
//或使用Remove()
//Self.lbTicketProductList.Prop.Items.Remove(AListBoxItem);
end;
end;
 
 
 
 
ListBox插入Item的代码如下:

procedure TFrameListBox_ItemOperCode.btnInsertItemClick(Sender: TObject);
var
AListBoxItem:TSkinListBoxItem;
begin
//插入Item
AListBoxItem:=Self.lbTicketProductList.Prop.Items.Insert(0);
AListBoxItem.Caption:='南靖土楼云水谣相当好玩你来不来';
AListBoxItem.Detail:='南靖土楼小区12栋';
AListBoxItem.Detail1:='109';
AListBoxItem.Detail2:='100';
AListBoxItem.Icon.Url:='http://www.orangeui.cn/download/testdownloadpicturemanager/TicketProduct1.png';
end;