Главная страница | Контакты | Случайная страница Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

Графические компоненты

Лабораторная работа №23

План работы:

1. Проект “Просмотр графики”

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

a) Создайте новый проект в Delphi и сохраните его в отдельной папке “Просмотр графики”;

b) Разместите на форме со страницы Win 3.1 следующие компоненты:

· компонент DriveComboBox, необходимый для выбора диска;

· компонент DirectoryListBox, необходимый для выбора папок;

· компонент FileListBox, необходимый для выбора файлов;

c) Установите взаимосвязь выбора диска с имеющимся на этом диске списком папок, для этого у компонента DriveComboBox установите свойство DirList равным DirectoryListBox1. Аналогично установите связь выбора папки с имеющимся в этой папке списком файлов;

d) Установите маску вывода файлов *.bmp у компонента FileListBox;

e) Разместите на форме компонент Panel, а на этом компоненте – компонент Image, необходимый для отображения графических файлов;

f) Обработайте событие OnClick компонента FileListBox для отображения графического файла, выбранного в FileListBox следующим образом:

Image1.Picture.LoadFromFile (FileListBox1.FileName);

g) Разместите на форме компонент CheckBox для выбора режима Stretch компонента Image. Измените свойство Caption и обработайте событие OnClick компонента CheckBox.

h) Проверьте работу проекта.

2. Проект “Компьютер”

Разработать проект, изображающий состав персонального компьютера и предоставляющий возможность изменять цвет, заставку “рабочего стола” маленького компьютера. На этапе разработки форма должна иметь следующий вид:

a) Создайте новый проект в Delphi и сохраните его в отдельной папке “Компьютер”;

b) Компонент Shape, расположенный на странице Additional палитры компонентов, представляет собой различные геометрические фигуры, заштрихованные соответствующим образом. С помощью компонентов Shape нарисуйте на форме основные части персонального компьютера (монитор, системный блок, клавиатуру, коврик с мышью), используя следующие свойства:

· Форма компонента определяется свойством Shape;

· Цвет заливки компонента определяется свойством Brush и его подсвойством Color;

· Стиль заливки компонента определяется свойством Brush и его подсвойством Style;

· Аналогично, цвет и стиль границ компонента определяются соответственно Pen. Color и Pen. Style;

c) Разместите на форме компонент PaintBox так, чтобы он являлся “рабочим столом” нашего маленького компьютера. На нем мы будем выводить текст.

d) Установите на форму компонент Panel, на котором разместите кнопку “Цвет”. По щелчку по этой кнопке мы будем выбирать цвет “рабочего стола”.

e) Установите рядом с кнопкой “Цвет” компонент Shape, который будет показывать выбранный цвет. Закрасьте его таким же цветом, как цвет экрана монитора.

f) Разместите на форме со страницы Dialogs компонент ColorDialog;

g) По щелчку по кнопке “Цвет” необходимо запустить диалог выбора цвета, если выбрали новый цвет, то необходимо изменить цвет “рабочего стола ” и перекрасить маленький Shape (например, он был по счету 15). Это можно реализовать следующим образом:

{Если диалог запущен и выбран цвет, то}