Текущий архив: 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.074 c
