Работа с TListView
Progh © (2005-01-06 12:58:00)
Вот есть у меня процедурка установки значения в определенную
строку и столбец GridView-a, если строки с заданным номером не
существует, моя процедура автоматически создаст ее. Данная
процедура писалась для использования компонента GridView, как
переписать ее чтобы она точно также работала, но с компонентом не
GridView а TreeView.
Const IMG = 0;
Const Comp = 1;
Const TimeLeft = 2;
Const BeginTime = 3;
Const EndTime = 4;
Const State = 5;
Const ActiveApp = 6;
procedure SetField(num: Integer; Field: Integer; str: String;
CompList: TGridView);
var
i: Integer;
begin
i := num - CompList.RowCount;
CompList.AddRow(i+1);
case Field of
Comp: CompList.Cell[Field,num].AsString := str;
IMG: CompList.Cell[Field,num].AsInteger :=
StrToInt(str);
TimeLeft: CompList.Cell[Field,num].AsString :=
str;
BeginTime: CompList.Cell[Field,num].AsString :=
str;
EndTime: CompList.Cell[Field,num].AsString :=
str;
State: CompList.Cell[Field,num].AsString := str;
end
end;
Пример использования :
SetField(5, 1,'str',GridView1); //Устанавливает значение
'str' в строку 5, и столбец 1 компонента GridView
Как переписать данную процедуру для компонента ListView ?
Заранее благодарен !
Progh (2005-01-08 08:38:00) [1]
Почему все молчат ?
Наверх 
ЧАТ |
Орешник |
|
