XP-Manifest и TListView

← →
сомневающийся (2004-12-02 14:20) [0]

Добрый день! Возникла небольшая проблемка, надеюсь на вашу подсказку.

Итак, дано: Delphi5, WinXP Pro SP2. Создаю новый проект, подключаю {$R MANIFEST.RES} - скомпилированный ресурс манифеста, ставлю на форму TListView, создаю Column, ставлю ViewStyle = vsReport.

Запускаю программу. При любых действиях с заголовком столбца (даже просто проведение над ним курсора мыши) проект вываливается в дебаггер на ntdll.DbgBreakPoint.

Столбцы компонента THeaderControl ни в чём похожем замечены не были, остальные стандартные контролы тоже ведут себя нормально. Брэкпоинтов в программе нет, debug DCU не использую.

Мучаюсь весь день, в чём может быть дело? Заранее спасибо!

← →
ssk © (2004-12-02 14:40) [1]

>в чём может быть дело?

в листвью. поставь Delphi 7. там все исправлено.

← →
сомневающийся (2004-12-02 14:49) [2]

> ssk © (02.12.04 14:40) [1]
наврядли мои финансы позволят мне приобрести Delphi 7.

может, есть bug-fix для 5-й? или хотя бы подробное описание проблемы?

← →
Amoeba © (2004-12-02 15:09) [3]

Посмотри вот это:
http://www.soft-gems.net/ThemeManager.php

Но заранее предупреждаю, что сколь-нибудь в это дело не вникал, так что ни коим образом не утверждаю, что решение задачи здесь. Смотри, скачивай и разбирайся сам.

А встроенная в Delphi поддержка тем XP в версиях менее D7 отсутствует и напрямую подключить манифест невозможно.

← →
сомневающийся (2004-12-02 15:17) [4]

Пиши наследника и переопределяй ему WndProc следующим образом:
uses CommCtrl; procedure TMyListView.WndProc(var Msg: TMessage); begin if (Msg.Msg = LVM_SETCOLUMN) or (Msg.Msg = LVM_INSERTCOLUMN) then with PLVColumn(Msg.LParam)^ do if iImage = -1 then Mask := Mask and not LVCF_IMAGE; inherited; end;

> Посмотри вот это:
> http://www.soft-gems.net/ThemeManager.php

Не советую. Сначала я тоже этим заинтересовался, но когда покопался, то понял, что вещь весьма отстойная.

XP-Manifest и TListView Найти похожие ветки