Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.01.23;
Скачать: 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 вся ветка

Текущий архив: 2005.01.23;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.045 c
1-1104992538
lightix
2005-01-06 09:22
2005.01.23
C++ Builder и Pascal


1-1105624513
horse
2005-01-13 16:55
2005.01.23
TRegistry


3-1102600545
kaktus
2004-12-09 16:55
2005.01.23
dbExpress и MySQL


14-1104773912
Aldor_
2005-01-03 20:38
2005.01.23
Обособление интерфейсной части в программе. Способы.


1-1105470455
Oddin
2005-01-11 22:07
2005.01.23
Ассоциация файлов с программой