КАТЕГОРИИ:
Архитектура-(3434)Астрономия-(809)Биология-(7483)Биотехнологии-(1457)Военное дело-(14632)Высокие технологии-(1363)География-(913)Геология-(1438)Государство-(451)Демография-(1065)Дом-(47672)Журналистика и СМИ-(912)Изобретательство-(14524)Иностранные языки-(4268)Информатика-(17799)Искусство-(1338)История-(13644)Компьютеры-(11121)Косметика-(55)Кулинария-(373)Культура-(8427)Лингвистика-(374)Литература-(1642)Маркетинг-(23702)Математика-(16968)Машиностроение-(1700)Медицина-(12668)Менеджмент-(24684)Механика-(15423)Науковедение-(506)Образование-(11852)Охрана труда-(3308)Педагогика-(5571)Полиграфия-(1312)Политика-(7869)Право-(5454)Приборостроение-(1369)Программирование-(2801)Производство-(97182)Промышленность-(8706)Психология-(18388)Религия-(3217)Связь-(10668)Сельское хозяйство-(299)Социология-(6455)Спорт-(42831)Строительство-(4793)Торговля-(5050)Транспорт-(2929)Туризм-(1568)Физика-(3942)Философия-(17015)Финансы-(26596)Химия-(22929)Экология-(12095)Экономика-(9961)Электроника-(8441)Электротехника-(4623)Энергетика-(12629)Юриспруденция-(1492)Ядерная техника-(1748)
Описание плана разработки программы
|
|
|
|
Begin
Листинг подпрограммы
Function OnShape (sh: TShape: X, Y: Integer): TBrushStyle; var r, cx, cy, d2: Integer;
r:= sh.Width div 2; cx:= sh.Left + r; cy:= sh.Top + r;
d2:= (X – cx) * (X – cx) + (Y – cy) * (Y – cy); OnShape:= bsClear;
if d2 > r*r then ObShape:= bsSolid; end;
procedure TForm1.FormMouseMove (Sender: TObject, Shift: TShiftState; X, Y: Integer);); begin
Shape1.Brush.Color:= clRed; Shape1.Brush.Style:= OnShape (Shape1, X, Y); Shape2.Brush.Color:= clYellow; Shape2.Brush.Style:= OnShape (Shape2, X, Y); Shape3.Brush.Color:= clLime; Shape.Brush.Style:= OnShape (Shape3, X, Y);
end;
Практическая работа № 6 «Электронный альбом»
Цель работы -создать программу,выполняющую следующие действия:
1. После запуска программы в окне изображается рисунок, выбранный первым переключателем из раскрывающегося списка.
2. Выбираем необходимый переключатель, рисунок из соответствующего раскрывающегося списка.
3. Для выхода из программы необходимо щелкнуть мышью на закрывающей кнопке в строке заголовка.
Рис. 36.
1. Открыть новый проект.
2. Разместить на форме экземпляры компонентов: рамка GroupBox, переключатель RadioBatton,раскрывающийся список ComboBox.
3. Выполнить следующие действия:
Таблица 18.
| Выделенный объект | Вкладка окна | Имя свойства/ | Действие | |
| Object Inspector | имя события | |||
| Form1 | Properties | Caption | Установка имени формы | |
| «Интерактивный электронный | ||||
| альбом» | ||||
| Events | OnCreate | RadioButton1Click(RadioButton1); | ||
| GroupBox1 | Properties | Caption | Введите название «Части света» | |
| (Вкладка Standard) | ||||
| RadioBatton1 | Properties | Caption | Введите название «Европа» | |
| (Вкладка Standard) | Checked | Задайте значение True | ||
| (Включен) | ||||
| Tag | Присвоить значение 0 | |||
| Events | Onclick | В процедуре описать локальную | ||
| переменную i. | ||||
| Описать действия переключателей, | ||||
| используя цикл с параметром i от 0 | ||||
| до 5. |
Для создания еще пяти переключателей можно использовать метод копирования через буфер обмена. Пока объект RadioBatton1 остается выделенным, нажмите комбинацию клавиш CTRL+C. Произойдет его копирование в буфер обмена. Теперь нажмите комбинацию CTRL+V – это команда вставки объекта из буфера обмена и Delphi автоматически изменит имя объекта – новый объект получит имя RadioBatton2.
| Продолжение таблицы 18. | |||||
| Выделенный объект | Вкладка окна | Имя свойства / | Действие | ||
| Object Inspector | имя события | ||||
| RadioBatton2 | Properties | Caption | Введите название «Азия» | ||
| Tag | Присвоить значение 5 | ||||
| RadioBatton3 | Properties | Caption | Введите название «Африка» | ||
| Tag | Присвоить значение 10 | ||||
| RadioBatton4 | Properties | Caption | Введите название «Северная | ||
| Америка» | |||||
| Tag | Присвоить значение 15 | ||||
| RadioBatton5 | Properties | Caption | Введите название «Южная | ||
| Америка» | |||||
| Tag | Присвоить значение 20 | ||||
| RadioBatton6 | Properties | Caption | Введите название «Австралия» | ||
| Tag | Присвоить значение 25 | ||||
| Выделите все шесть | переключателей | . Дайте команду Edit → Align (Правка → Выравнивание). | |||
| Откроется окно | Alignment (выравнивание). Установить слева переключатель Left Sides | ||||
| (Левые края), а справа Space Equally (Равные промежутки). Щелкните на кнопке OK. | |||||
| GroupBox2 | Properties | Caption | Введите название «Города» | ||
| (Вкладка Standard) | |||||
| ComboBox1 | Properties | Style | Выбрать значение csDropDownList | ||
| (Вкладка Standard) | (Раскрывающийся список) | ||||
| Events | OnChange | Image1.Picture.LoadFromFile | |||
| (ListBox2.Items [ComBox1.Tag + | |||||
| ComboBox1.ItemIndex]); | |||||
| Image1 | Поместить объект на рамку | ||||
| (Вкладка Additional) | |||||
| ListBox1 | Properties | Visible | Задайте значение False | ||
| (Вкладка Standard) | Items (Пункты) | Щелкнуть на кнопке построителя. | |||
| Введите в список тридцать названий | |||||
| городов - по пять для каждой части | |||||
| света. | |||||
| ListBox2 | Properties | Visible | Задайте значение False | ||
| (Вкладка Standard) | Items | Щелкнуть на кнопке построителя. | |||
| Введите в список тридцать имен | |||||
| файлов, содержащих иллюстрации. |
4. Сохраните проект, запустите и протестируйте его.
|
|
|
|
|
Дата добавления: 2017-02-01; Просмотров: 78; Нарушение авторских прав?; Мы поможем в написании вашей работы!