1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31
|
function TTabbedForm.AjouterListViewItemToAP(aListView: TListView;
aNombre: Integer): integer;
var
lListViewItem: TListViewItem;
I: integer;
lDatetimeDebut,lDatetimefin: TDateTime;
begin
lDatetimeDebut := Now;
if not Assigned (aListView) then
exit;
for I := 0 to aNombre - 1 do
begin
if (I Mod 2) = 0 then
aListView.ItemAppearanceName := 'QuestionImageItem'
else
aListView.ItemAppearanceName := 'EtapeItem';
lListViewItem := aListView.Items.Add;
lListViewItem.Text := 'viewitem' + IntToStr(I);
lListViewItem.Data[TEtapeAppearanceNames.Detail1] := Format('adresse nom article %d ', [I]);
lListViewItem.ButtonText := 'Test';
end;
lDatetimefin := now;
result := MilliSecondsBetween( lDatetimefin,lDatetimeDebut);
end; |