Скачать: CL | DM;

Работа с TListView   Найти похожие ветки 

← →
Progh   (2005-01-06 12:58) [0]

Вот есть у меня процедурка установки значения в определенную строку и столбец 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) [1]

Почему все молчат ?

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.022 c