08/05/18 18:21:32 BE:261735-PLT(12660)
>>689
var
TestColumn: TListColumn;
begin
with ListView1 do begin
TestColumn := Columns.Add;
TestColumn.Caption := 'A';
TestColumn.Width := 100;
TestColumn := Columns.Add;
TestColumn.Caption := 'B';
TestColumn.Width := 100;
with Items.Add() do begin
Caption := '1-1';
SubItems.Add('2-1')
end;
with Items.Add() do begin
Caption := '1-2';
SubItems.Add('2-2')
end;
end;
end;