Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.06.06;
Скачать: CL | DM;

Вниз

MS ListView32   Найти похожие ветки 

 
csr ©   (2004-04-23 12:14) [0]

Как на винапи добавлять и удалять элементы в\из ActiveX MS ListView32 из MS common ctrl 6 ? Желательно с примером. Спасибо.


 
csr ©   (2004-04-23 13:42) [1]

Господа, не ужели никто не знает? Я делаю так:

var i: TLVITEM;
begin
item.mask := LVIF_TEXT;
item.pszText := "My text";
item.cchTextMax := 255;
ListView_InsertItem(lv.handle, item);

не проходит ...


 
clickmaker ©   (2004-04-23 14:39) [2]

ZeroMemory(@item, SizeOf(TLVItem)) перед заполнением


 
csr ©   (2004-04-28 15:44) [3]

Все равно не получается!! Не добавляется ничего. Вот код:

procedure TForm1.Button1Click(Sender: TObject);
var item: TLVITEM;
begin
  ZeroMemory(@item, SizeOf(TLVItem));
  item.mask := LVIF_TEXT;
  item.iItem := 0;
  item.iSubItem := 1;
  item.pszText := "My text";
  item.cchTextMax := 7;
  ListView_InsertItem(lv.handle, item);
end;


 
clickmaker ©   (2004-04-28 16:00) [4]

iSubItem д.б. = 0


 
[lamer]Barmaglot ©   (2004-04-28 17:51) [5]

Есть подозрение, что не созданы колонки...

Проще вот код из моей программы вставки колонки и вставки итема.


procedure BarInsertColumn;
var
 LVColumn1, LVColumn2:    LV_Column;
begin
//-------------------------вставка колонны---------------
 Column1:="Имя";
 LVColumn1.mask:= LVCF_FMT or LVCF_TEXT {or LVCF_WIDTH};
 LVColumn1.fmt:=  LVCFMT_LEFT ;
 LVColumn1.cx:=150;
 LVColumn1.pszText:=Column1;
 LVColumn1.cchTextMax:=length(Column1);
 SendMessage(hWnd_Listview1,LVM_InsertColumn,0, Integer(@LVColumn1));
 SendMessage(hWnd_Listview2,LVM_InsertColumn,0, Integer(@LVColumn1));

 Column2:="Размер";
 LVColumn2.mask:= LVCF_FMT or LVCF_TEXT {or LVCF_WIDTH};
 LVColumn2.fmt:=  LVCFMT_CENTER ;
 LVColumn2.cx:=150;
 LVColumn2.pszText:=Column2;
 LVColumn2.cchTextMax:=length(Column1);
 SendMessage(hWnd_Listview1,LVM_InsertColumn,1, Integer(@LVColumn2));
 SendMessage(hWnd_Listview2,LVM_InsertColumn,1, Integer(@LVColumn2));
end;





Procedure BarInsertItem(Where: THandle; Item1: PChar; item2: PChar);
var
 LVItem1:      TLVItem;
begin

 LVItem1.mask:=LVIF_TEXT;
 LVItem1.iItem:=0;
 LVItem1.iSubItem:=0;
 LVItem1.pszText:=item1;
 LVItem1.cchTextMax:=length(item1);
 SendMessage(Where,LVM_InsertItem,0 ,Integer(@LVItem1));

 LVItem1.iItem:=0;
 LVItem1.iSubItem:=1;
 LVItem1.pszText:=item2;
 LVItem1.cchTextMax:=length(item2);
 SendMessage(Where,LVM_SetItem,1 ,Integer(@LVItem1));
end;


 
csr ©   (2004-04-30 11:46) [6]

2 [lamer]Barmaglot ©  

Использую твой код с TListView - вылетает AccessViolation ... В чем дело подскажи плз?


 
csr ©   (2004-04-30 12:06) [7]

И походу вопрос: я использую ActiveX MS ListView 32 из CommCtrl! Импортировал tlb, положил Лист на форму. И оказалось что не перерисовывается этот контрол! В чем дело?


 
csr ©   (2004-04-30 12:42) [8]

Код нормально работает со всеми видами ListView кроме vsReport :(. Даже после создания колонок при их перемещении выскакивает ошибка!


 
Игорь Шевченко ©   (2004-04-30 13:07) [9]

Новый вид спама через ListView ? Любопытно...


 
csr ©   (2004-04-30 14:28) [10]

Удалено модератором
Примечание: Выражения выбираем



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

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

Наверх




Память: 0.49 MB
Время: 0.033 c
8-1079009082
all_
2004-03-11 15:44
2004.06.06
Подскажите как мне изменить цвет


1-1085631998
Вованчик
2004-05-27 08:26
2004.06.06
загрузка dll


6-1080821244
a3a3ello
2004-04-01 16:07
2004.06.06
Как отправить по e-mail прицепленный файл ?


14-1085085506
тихий вовочка
2004-05-21 00:38
2004.06.06
глупые вопросы по проектированию


8-1080208527
max003
2004-03-25 12:55
2004.06.06
Воспроизведение звука в неизвестном формате