Открытый компонент для кнопок с произвольной формой в Delphi

Delphi , Компоненты и Классы , Компоненты

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

Проблема

Разработчик столкнулся с проблемой, что проект, скачанный как "открытый", зависит от дорогостоящих проприетарных библиотек, включая Infopower 1stClass, используемый для создания кнопок с произвольной формой. В целях очистки проекта и его адаптации под нужды реального открытого ПО, без необходимости приобретения платных библиотек, требуется найти альтернативный компонент, совместимый с версией Delphi 2009 и выше.

Альтернативный ответ

В качестве альтернативы можно использовать компонент, который применяет маску для кнопки. Подходящий компонент можно найти на сайте Delphi-Jedi.org. Также, можно самостоятельно создать маску для кнопки, используя функцию CreatePolygonRgn.

Подтвержденный ответ

Для создания кнопки с произвольной формой можно использовать следующий код на Object Pascal (Delphi):

const Points: array [1..5] of tPoint = (
    (x:8;y:29),
    (x:18;y:19),
    (x:28;y:29),
    (x:20;y:37),
    (x:16;y:37) );
begin
  SetWindowRgn(Button2.Handle, CreatePolygonRgn(Points, 5, WINDING), True);
end;

Этот код позволяет задать форму кнопке, используя заданный массив точек, и применить её в виде области окна.

Решение

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

Заключение

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

Создано по материалам из источника по ссылке.

Разработчик ищет открытый аналог проприетарного компонента для создания кнопок с произвольной формой в Delphi для использования в проектах с открытым доступом.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Компоненты ::