Вопрос Компонент TNewCheckListBox

[Leserg]

Прошу помощи от пользователей, разбирающихся в создании/модификации компонентов Delphi.

Пытаюсь прикрутить к стандартному компоненту TNewCheckListBox из Inno Setup такие свойства, как прозрачность фона, собственное изображение в качестве фона и альтернативный фон. В разработке использую функции процедуры компании ALMEDIADEV, т.к. не разбираюсь как это все можно реализовать. Метод простой - скопировал и вставил.

В чем затык. При выборе элемента списка, когда включены свойствах прозрачности и фона, надпись элемента как-бы накладывается на то, что было ранее. Получается болд выделение, но без сглаживания. Выглядит некрасиво и неряшливо. При прокрутке списка выбранный эллемент многократно накладывается сам на себя, и надпись становится все жирнее и жирнее. Тоже происходит и при динамическом изменении размеров списка. Я не могу понять из-за чего это происходит и как это исправить. Может кто объяснит, в чем причина, как сделать правильно и прочее.

 

[Leserg]

Немного переделал. Теперь нет многократного наложения текста у выбранного пункта списка. Проблема осталась, но теперь она не такая явная (наложение происходит единожды при выборе пункта). В общем, первый блин комом. Смотрим демку в Inno Setup.

 

[Leserg]

Очередное обновление.

Удалена часть кода, которая никак не влияла на конечный результат. В компоненте окончательно (я так думаю, но могу ошибаться) реализована поддержка VCL Styles. Теперь нет "слета" скина при использовании, как дефолтных, так и кастомных списков TNewCheckListBox, как это было ранее, включая применение плагина VCL Style. Добавлена прорисовка фокуса выделения при включенной прозрачности фона или использовании собственного изображения в качестве фона.

Основная проблема - повторная прорисовка текста выбранного элемента списка при включенной прозрачности и собственном фоне - так и не решена. Это хорошо видно на прилагаемых демо сборках. Все еще надеюсь на помощь. В противном случае все это так и останется незавершенным проектом (без релиза) или до момента, когда я окончательно разберусь в создании компонентов с желаемыми свойствами. До пенсии еще 5 лет. А там времени, надеюсь, будет поболе - авось тогда доведу все это дело до конца.

В связи с тем, что в разработке используются функции и процедуры коммерческого проекта, исходный код компонента публиковаться не будет.

Прилагаю демо в Inno Setup.

На этом изыскания по данному вопросу пока прекращаю.
Огромная благодарность участнику LexBell за проявленное участие и помощь.

P.S. Сейчас работаю на интеграцией компонентов ALMEDIADEV в Inno Setup для возможности полной кастомизации графической части инсталляторов без использования сторонних компонентов и библиотек. Частично вы можете это увидеть в прилагаемых демках (в частности анимация страниц).

До скорых встреч, увидимся.

 

[Leserg]

включая применение плагина VCL Style

Парни, я оказался не прав. Сейчас дошли руки и проверил. Плагин не видит в компоненте добавленную поддержку VCL Style и работает по старинке (с ошибками).

 

[El Sanchez]

Основная проблема - повторная прорисовка текста выбранного элемента списка при включенной прозрачности и собственном фоне - так и не решена.

Типичная ошибка - рисовать поверх того, что ранее должно быть затёрто. Не парьтесь, коммерческий код в Inno всё равно не примут. Компонент то я сделал и уже выложил на оффоруме, только Мартейн хочет вносить изменения маленькими порциями, и я себе слабо представляю, как фактически замену целиком целого модуля разбить логически на серию коммитов.

 

[Leserg]

Типичная ошибка - рисовать поверх того, что ранее должно быть затёрто.

Эх, если бы вы подробно и с примерами рассказали что к чему. А так я до сих пор у разбитого корыта.

Взялся за вашу реализации компонента.
Вы, конечно, проделали огромную работу, но для использовании его с Inno в исходный код нужно вносить множество изменений, чего я всегда стараюсь избегать.

Во-первых, с ним Inno Setup не компилируется (Delphi 11).
Ошибка компиляции в EnumChildrenOf из-за несоответствия типов NativeInt и Integer.
Посмотрел, что в оригинальном компоненте, и заменил в EnumChildrenOf и TEnumChildrenProc используемый вами тип LPARAM на LongInt из оригинала.
Не знаю правильно, не правильно, но ошибка ушла.

Во-вторых, отсутствует свойство Items, что также не дает собрать программу. Компонент TNewCheckBox используется в элементах выбора компонентов установки (ComponentsList), вывода списка задач (TasksList) и списка запускаемых файлов (RunList). В итоге нужно шерстить весь код и где упоминаются данные элементы убирать это свойство (например, RunList.Items.Count >> RunList.Count).

Но это еще не самое страшное. Вы полностью изменили логику выбора компонентов списка, из-за чего снова необходимо вносить изменения в отлаженный с годами механизм работы программы. С оригинальной функцией ComponentsListClickCheck (WizardForm.pas) инсталляторы не запускаются. Использовал ваш вариант, но он работает некорректно и с ним нет уверенности, что будут установлены именно отмеченные компоненты, нужно тщательно и неоднократно все тестировать. А как его поправить я пока не разобрался.

Ошибки в работе компонента.
Если в списке имеются радиокнопки, то выбор другой никак не отражается на типе установки в элементе комбобокса.
Тогда как в оригинале также изменяется и тип.


Ваш компонент


Если же снять флажок с группы радиокнопок, то последующий выбор одной из них приводит к исключению и групповой флажок не устанавливается.



В оригинале при выборе одной из радиокнопок автоматом устанавливается флажок для группы. Возможно я что-то не доглядел или пропустил из вашего примера. Но еще раз повторю, что с вашим компонентом нужно вносить множество изменений в основной код программы, что усложняет его адаптацию с выходом новых версий Inno.

В связи с этим у меня к Вам вопрос-пожелание.
Могли вы поправить работу компонента?
Есть ли возможность (желание, время) сохранить исходную логику работы и свойства, чтобы меньше было вносить изменений в основной код Inno?
Можно ли добавить отображения фона под компонентом (прозрачность)?

Вы бы попробовали пропихнуть ваш компонент через гитхаб (просто целиком), возможно бы потом в процессе диалога с разработчиком что-то бы решилось.
Я мог бы попробовать это сделать, но и своего опыта общения могу сказать, что разработчик очень дотошный. Просит объяснять почему тут сделано так, а там сделано вот так, а вон там неправильно - переделайте, и т.д. Плюс, конечно, языковой барьер. А так как я не являюсь автором компонента, то не смогу по нему что-то объяснять и разъяснять. Очень жаль, если ваш труд канет в лету.

С уважением.