Инсталляция компонента

Испытание компонента

С помощью командыFile|Save All сохраните все сделанные добавления.

Выбрав вкладку MyCompForm.cpp в окне Редактора кода включите строку #include "MyComp. h" в заголовочный файл формы. Добавьте описание объекта:

MyComp* MyComp1;

Это можно сделать в разделе public в файле MyCompForm.h.

Активизируйте форму Form1 и в окне Инспектора объектов дважды щелкните мышью в графе значений события OnCreate. С помощью Редактора кода введите обработчик этого события в файл MyCompForm.cpp. Следующий код создаст компонент MyComp динамически (определяя ее родителя Parent и помещая в центре родительской формы) во время выполнения тестового приложения:

void__fastcall TForm1::FormCreate(TObject *Sender)

{MyComp1 = new MyComp(this);

MyComp1->Parent = this;

// Центрировать компонент по ширине формы

MyCompl->Left = (Width/2)-(MyCompl->Width/2);

// Центрировать компонент по высоте формы

MyCompl->Top = (Height/2)-(MyCompl->Height/2);

}

Чтобы кнопка управляла индикатором, дважды щелкните мышью в графе значений события OnClick объекта Button1 в окне Инспектора объектов. С помощью Редактора кода введите следующую инструкцию в тело обработчика события:

void __fastcall TForm1::Button1Click(TObject *Sender) (

MyComp1->OnOff =!MyComp1->OnOff;

}

Скомпилируйте и запустите тестовое приложение командойRun | Run.

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

Осталось создать битовый образ пиктограммы, которой новый компонент будет представлена в Палитре компонентов. Из меню редактора изображений, открывающегося по командеTools|Image Editor, выберите File|New|Resource File, a затем – Resource|New|Bitmap. В диалоге свойств битового образа установите размеры пиктограммы 24×24 и число цветов VGA (16 Colors). Переименуйте битовый образ компонента (MyComp) по команде Resourse|Rename и дважды щелкните мышью на выбранном имени в древовидном списке ресурсных файлов, чтобы нарисовать подходящую картинку индикатора (например, зеленый кружок). Командой File|Save As сохраните ресурсный файл MyComp.res в рабочем каталоге и закройте Редактор изображений.

Перед тем, как приступить к инсталляции нового компонента на Палитру компонентов, выполните еще раз команду File|Save All.

С помощью командыComponent|Install Component откройте диалоговое окно инсталляции компонентов. Нажмите кнопкуAdd, которая открывает диалоговое окно добавления модуля. Найдите местоположение модуля MyComp.cpp, нажав на кнопку поиска Browse. Нажмите кнопку ОК и ждите окончания перестройки VCL и установки нового компонента на Палитру компонентов.

Дата добавления: 2014-12-27