Delphi. Страница Additional. Васильев В.В - 11 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

11
При выборе быстрой кнопки из группы она переходит в состояние
«утопленная», а все остальные кнопки возвращаются в «нормальное» со-
стояние.
Создадим на линейке инструментов вторую быструю кнопку ,
клик по которой будет вновь выводить логотип фирмы и восстанавливать
первоначальный цвет заливки фигуры.
19. Положите слева от кнопки
SpeedButton1 кнопку SpeedButton2
Страница Additional
С помощью встроенного редактора Image Editor нарисуем свою грави-
ровку для второй быстрой кнопки. Image Editor – это простая «рисоваль-
ная» программа, предназначенная для создания пиктограмм, битовых мат-
риц, … Наша гравировка будет представлять собой горизонтальный растр
64х16 пикселей, состоящих из 4-х разноцветных букв Л (Логотип) .
20. Вызовите окно Image Editor
Tools|Image Editor...
21. Создайте новый файл
File|New|Bitmap File (.bmp)
22. Укажите размеры рисунка
– растра
Width (ширина)=64, Height (высота)=16
23. Увеличьте размер изо-
бражения
Инструмент Zoom (изменение масшта-
ба)
24. Создайте изображение
Пользуйтесь инструментами редактора
Изображение должно состоять из четырех одинаковых квадратных
зон (гравировок для четырех состояний кнопки). В центре каждой зоны
поместите большую букву Л (синюю, серую, красную, фиолетовую).
25. Сохраните рисунок в файле my_pic.bmp
File|Save As...
26. Положите на кнопку SpeedButton2 соз-
данную гравировку my_pic.bmp
Свойство Glyph
Посмотрите значение свойства NumGlyphs (количество гравировок).
Оно автоматически должно получить значение 4.
27. Включите кнопку SpeedButton2
в группу
Значение 1 свойства GroupIndex
28. Сделайте кнопку SpeedButton2
невидимой
Значение False свойства Visible
29. Сделайте подсказку «Показать ло-
готип» к SpeedButton2
Свойства Hint, ShowHints
Добавим коды обработки нажатий кнопок SpeedButton1 и Speed-
Button2.
30. Напи-
шите об-
работчик
события
OnClick
кнопки
Speed-
procedure TAdditionalTab.SpeedButton1Click
(Sender: TObject);
begin
{Если кнопка SpeedButton1 нажата, то выполнить действия}
if SpeedButton1.Down=True then
begin
{Сделать видимой вторую быструю кнопку SpeedButton2}

Страницы