![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
TKOLListView
help © (2003-04-26 06:59:00)
Люди дайте пожалуйста рабочий пример есть объект List: TKOLListView у него три колонки. Вопрос очень простой: как соэдать ячеку например в 1 столбце во 2-ой строке и т.д.
Gandalf (2003-04-26 10:45:00) [1]
Можно так:
// Создание строк
ListView1.LVItemAdd("1 строка");
ListView1.LVItemAdd("2 строка");
// Создание столбцов
ListView1.LVColAdd("1 столбец",taLeft,100);
// Присвоить текст ячейке
ListView1.LVItems[0,1]:="ячеку например в 1 столбце во 2-ой строке ";
BaRToV (2003-04-26 10:39:00) [2]var
x: Integer;
begin
ListView1.LVColAdd("Col 1", taLeft, 50);
ListView1.LVColAdd("Col 2", taLeft, 50);
ListView1.LVColAdd("Col 3", taLeft, 50);
for x := 0 to 9 do
begin
// Добавляем в 1 столбец
ListView1.LVItemAdd("c1 - " + Int2Str(x));
// Добавляем во 2 и 3 столбец
ListView1.LVItems[x, 1] := "c2 - " + Int2Str(x);
( x) [1]var
x: Integer;
begin
ListView1.LVColAdd("Col 1", taLeft, 50);
ListView1.LVColAdd("Col 2", taLeft, 50);
ListView1.LVColAdd("Col 3", taLeft, 50);
for x := 0 to 9 do
begin
// Добавляем в 1 столбец
ListView1.LVItemAdd("c1 - " + Int2Str(x));
// Добавляем во 2 и 3 столбец
ListView1.LVItems[x, 1] := "c2 - " + Int2Str(x);
ListView1.LVItems[x, 2] := "c3 - " + Int2Str(x);
end;
end;
Ну и в таком духе дальше, посмотри еще LVColInsert в HTML-Help.