| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

MS ListView32 [D7, WinXP]

csr ©   (2004-04-23 12:14:00) 

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

---

csr   (2004-04-30 14:28:00) [1]

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

---

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

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

---

csr   (2004-04-30 12:42:00) [3]

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

---

csr   (2004-04-30 12:06:00) [4]

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

---

csr   (2004-04-30 11:46:00) [5]

2 [lamer]Barmaglot ©  

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

---

[lamer]Barmaglot   (2004-04-28 17:51:00) [6]

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

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


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;


---

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

iSubItem д.б. = 0

---

csr   (2004-04-28 15:44:00) [8]

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

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-23 14:39:00) [9]

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

---

csr   (2004-04-23 13:42:00) [10]

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

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

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

---

Наверх