Форум: "Основная";
Текущий архив: 2002.06.20;
Скачать: [xml.tar.bz2];

Вниз

TListView & Win XP   Найти похожие ветки 

← →
dkDimon   (2002-06-08 22:24) [0]

Создаю в Delphi 6 компонент TListView, ставлю ViewStyle в vsReport, делаю несколько столбцов, подлкючаю манифест (чтобы компоненты были в стиле WinXP), запускаю и ...

Project ... raised exception class EAccessViolation with message
"Access violation at address 77E77DFA in module "kernel32.dll".
Write of address 003F0286". Process stopped. Use Step or Run to continue.

Ошибка кроется где-то в исходниках Delphi (а именно в исходнике VCL TListView), потому что пытался я создать ListView только средствами API и все шло как по маслу. Но это довольно-таки неудобно.
Помогите, кто чем может!!!

---

← →
Макс Черных   (2002-06-08 23:44) [1]

Поставь второй update, там это исправлено.

---

← →
dkDimon   (2002-06-09 12:50) [2]

Спасибо! Но тут еще одна проблемка - где его можно взять (желательно из Инета - размер не важен)?

---

← →
cyborg   (2002-06-09 18:33) [3]

Возможно нужно перед изменениями делать BeginUpdate

---

← →
Макс Черных   (2002-06-09 20:47) [4]

>где его можно взять
Поискать поиском, ту ссылку которую я лично качал Borland уже
вырубил.

Можно и ручками исправить:

В модуле Ctrls.pas, найти метод TCustomListView.UpdateColumn

Оригинальный код:

if FImageIndex <> -1 then
fmt := fmt or LVCFMT_IMAGE or LVCFMT_COL_HAS_IMAGES;

Исправить его на:

if FImageIndex <> -1 then
fmt := fmt or LVCFMT_IMAGE or LVCFMT_COL_HAS_IMAGES
else
mask := mask and not (LVCF_IMAGE);

>cyborg
При чем тут BeginUpdate?

---

← →
dkDimon   (2002-06-09 20:48) [5]

Спасибочки огромное!!!

---

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

Форум: "Основная";
Текущий архив: 2002.06.20;
Скачать: [xml.tar.bz2];

Наверх

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