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

>где его можно взять
Поискать поиском, ту ссылку которую я лично качал 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?

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

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