Разработка визуальных компонентов - компонент потомок TGraphicControl

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

0

как сделал? с ресурса считываешь картинку?
а то теперь и у меня проблема появилась.
когда кидаю TMyGraphicControl на форму - все нормально.
когда запускаю на выполнение - появляется исключение EResNotFound with message 'Resource BITMAP_0'. до этого проверял - такого вроде не было.

0

.dcr файл с картинкой сделал. назвал и файл и картинку как компонент.

0

а считывал картинку таким образом?
LoadFromResourceName((int)HInstance, название_битмапа);

0

Нет, я такого даже не писал ни где.

0

а как тогда картинку на форме отображаешь?

0

DCR это файл ресурсов для компонента, его нужно назвать так же как и класс, а в нём уже находится картинка с таким же названием. При создании компонента присоединяешь к нему этот файл и всё(у меня он автоматически был прописан, хотя и не создан).

Добавлено через 3 минуты
Файл dcr можно создать так :
Tools/Image Editor; File/New/Component Resource File. Внутри создаёшь картинку(Bitmap) 24х24.

0

Вот проверь.

Вложения

Компонент.zip (547.0 Кб, 24 просмотров)

0

но эта не картинка, а пиктограмма
я про неё написал на 2-й странице этой темы

Сообщение от dryn-da Нужно разработать визуальный компонент потомок TGraphicControl, представляющий собой любую статическую картинку на форме.

в этом задании имеется ввиду то, что когда кидаешь компонент с палитры компонентов на форму, то на ней (на форме) должна отобразиться картинка.

0

Ну дак у меня нарисована картинка

Добавлено через 1 минуту
Здесь изображение не нужно

Добавлено через 1 минуту
А если хочешь изображение то просто создать свойство в классе компонента типа TImage.

0

если бы посмотрели на мой компонент, то там уже это свойство есть.

0

Провозившись с компонентом, решил залить свой вариант TMyGraphicControl для C++ Builder 6, представляющий собой статическую картинку на форме. При кидании компонента на форму появится картинка, которая уже вшита в компонент, но при этом есть возможность её поменять на свою через свойство Picture.

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

Последовательность шагов, необходимых для нормальной установки компонента:
1) Открыть MyComponents.bpk
2) Зайти в Tools->Environment Options->Library и добавить путь до папки, в которую был распакован архив. Этот шаг нужно выполнить в случае, когда архив распаковывается в папку, о которой не знает билдер. Если этот шаг пропустить, то может возникнуть такая ситуация, когда билдер будет требовать MyGraphicControl.
3) Если в билдере уже установлен компонент с названием класса TMyGraphicControl, то зайдите
в Component->Install Packages и удалите Package (кнопка Remove), в котором находится этот компонент.
4) Нажать Project->Build All Projects
5) В окошке Package нажать Compile и затем Install.
6) Установка компонента закончена, перезапускаем билдер.

В самом проекте на форму кидаем компонент TMyGraphicControl из вкладки Samples. На форме появится картинка. Пробуем запустить программу. Если во время запуска появится ошибка: "отсутствует файл TMyGraphicControl1.bpl", то идём в Project->Options->Packages и убираем галочку с "Build with runtime packages" либо в самом конце "поля с пакетами" стираем слово "TMyGraphicControl". Было очень хорошо, если б кто-нибудь рассказал, как избавиться от этой проблемы.

Примечание: при динамическом создании экземпляров TMyGraphicControl, картинка не будет автоматом появляться, тут придется уже загружать свою картинку, используя Picture->LoadFromFile.
Потравив много времени, тестируя разными способами компонент, я понял, что не возможно автоматом при динамическом создании экземпляра TMyGraphicControl отобразить картинку на форме в случае, когда проект скомпилирован с выключенной галочкой "build with runtime packages", и сама программа размещена на компьютере, на котором не установлен билдер.
Вшитая картинка прописана в .rc-файле

Вложения

TMyGraphicControl.rar (149.5 Кб, 31 просмотров)

0

Сообщение от kzru_hunter Потравив много времени, тестируя разными способами компонент, я понял, что не возможно автоматом при динамическом создании экземпляра TMyGraphicControl отобразить картинку на форме в случае, когда проект скомпилирован с выключенной галочкой "build with runtime packages", и сама программа размещена на компьютере, на котором не установлен билдер.

Скорее всего просто не приложен DLL с вашим компонентом, вот и читает, что может. Пока точнее сказать не могу, архив не сохраняется.

Добавлено через 22 минуты
Не очень хорошо, ибо библиотека хотя бы в деструкторе должна выгружаться и она уже может быть открыта программой, так что лучше ссылаться на ресурсы программы, а дополнительные графические ресурсы перед компиляцией:
Прорисовку тоже лучше чуток подправить. Рисовать изображение только если не в дизайне (использовать else). Смысл try & catch немного не понятен, но на случай внезапного исчезновения Picture оставить можно.
Если оставлять процедуру PictureChanged, то желательно использовать его с bool AutoSize.
И объявление Лучше все-таки перенести в private.

1

DefineTrueFalse Спасибо за замечания, особенно за
Добавил эту строку в MyGraphicControl.cpp (если же её добавить в MyComponents.cpp, то картинка в bpl добавится, но не будет прикрепляться к проекту). После выполнения этого действия картинка теперь стала автоматически добавляться в ресурсы приложения.
Добавил ещё AutoSize.

Сообщение от DefineTrueFalse Смысл try & catch немного не понятен, но на случай внезапного исчезновения Picture оставить можно.

try catch было использовано в исходнике TImage, поэтому так и оставил

Сообщение от DefineTrueFalse FPicture Лучше все-таки перенести в private.

по невнимательности не туда вставил

Сообщение от DefineTrueFalse Прорисовку тоже лучше чуток подправить. Рисовать изображение только если не в дизайне (использовать else)

не понял предложение

Проблемы и решения, которые у меня возникли при разработке компонента:
1) Ситуация: удалил bpl-файл компоненты. При следующем запуске Билдер спросил: "Не найден bpl файл. Попробовать загрузить его при следующем запуске?", и вы ответили: "Нет". После этого Билдер перестал загружать Package с компонентом при создании нового приложения (т.е. компонент перестал быть отображаться на палитре компонентов).
Решение:
Закройте все открытые проекты в Билдере. Щелкните на Compononet->Install Packages. Должно появится окно с названием "Project options for Default.exe". Активируйте Package. Click Ok.
Затем, не закрывая билдер, создайте новое приложение (File->New->Application). Закройте билдер и снова запустите. Вуаля, компонент на месте.
2) Регистрирую компонент так, чтобы он появлялся, например, на вкладке "MyControls", а он все равно находится на другой вкладке:
Решение: такая ситуация произошла из-за того, что компонент с таким классом уже был до этого зарегистрирован в билдере и был размещен на другой вкладке, отличной от той, что вам нужна. Программный способ исправления этой ситуации мне не известен, но зато можно вручную перетащить этот компонент на нужную вкладку и проблема отпадет.

Вложения

TMyGraphicControl.rar (149.0 Кб, 33 просмотров)

0

DefineTrueFalse Случаем, не возникало у Вас такое исключение?.
Оно возникает, когда в параметрах запуска компоненты (Run->Parameters) указываю в Host Application путь до bcb.exe. И когда пытаюсь отладить компоненту, при запуске оно вылазит.

0

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

0