- •Сборник практических работ
- •Практическая работа № 1 Управляющие структуры Delphi. Программирование линейных алгоритмов.
- •Усвоить применение компонентов Label, Edit, Button и BitBtn.
- •Получить практические навыки программирования линейных алгоритмов в Delphi.
- •Практическая работа № 2 Управляющие структуры Delphi. Программирование ветвящихся алгоритмов. Инструкция If
- •Изучить структуру простого проекта на языке Delphi.
- •Усвоить применение инструкции if.
- •Практическая работа № 3 Реализация ветвящихся алгоритмов для решения прикладных задач
- •Получить практические навыки работы с ветвящимися алгоритмами в Delphi.
- •Практическая работа № 4 Использование визуальных компонентов Delphi для организации структуры ветвления:
- •Получить практические навыки работы с ветвящимися алгоритмами в Delphi.
- •Усвоить применение компонента RadioButton.
- •Усвоить применение компонента RadioGroup.
- •Группа переключателей RadioGroup
- •0:MessageDlg('Внимание! Не выбран ни один цвет!',mtInformation,[mbOk],0);
- •Практическая работа № 5 Использование визуальных компонентов Delphi для работы со списками –
- •Получить практические навыки работы с ветвящимися алгоритмами в Delphi.
- •Усвоить применение компонента ListBox.
- •Усвоить применение компонента ComboBox.
- •Практическая работа № 6 Использование циклических структур в Delphi
- •Получить практические навыки работы с циклическими алгоритмами в Delphi.
- •Закрепить практические навыки применения компонентов ListBox, ComboBox.
- •Закрепить практические навыки применения компонентов RadioButton, RadioGroup.
- •Формат записи оператора Repeat…until:
- •Практическая работа № 7 Разработка простейшего приложения типа «Калькулятор»
- •Закрепить практические навыки применения компонентов страницы Standart.
- •Закрепить практические навыки написания обработчиков простейших событий.
- •Практическая работа № 8 Разработка приложения для обработки массива
- •Освоить работу с массивами.
- •Усвоить применение компонента StringGrid.
- •Практическая работа № 9 Разработка простейшего графического редактора
- •Порядок выполнения
- •Практическая работа № 10 Разработка приложений с использованием компонентов Shape и Image
- •Порядок выполнения
Практическая работа № 10 Разработка приложений с использованием компонентов Shape и Image
Цель работы:
Получить навыки использования визуальных компонентов Shape и Image.
Краткие теоретические сведения
В стандартную библиотеку визуальных компонент Delphi входит несколько объектов, с помощью которых можно придать своей программе совершенно оригинальный вид. Это - TImage (TDBImage), Tshape и др.
TImage позволяет поместить графическое изображение в любое место на форме.
Этот объект очень прост в использовании - выберите его на странице Additional и поместите в нужное место формы. Собственно картинку можно загрузить во время дизайна в редакторе свойства Picture (Инспектор Объектов). Картинка должна храниться в файле в формате BMP (bitmap), WMF (Windows Meta File) или ICO (icon). (TDBImage отображает картинку, хранящуюся в таблице в поле типа BLOB. При этом доступен только формат BMP.)
Как известно, форматов хранения изображений гораздо больше трех вышеназванных (например, наиболее известны PCX, GIF, TIFF, JPEG). Для включения в программу изображений в этих форматах нужно либо перевести их в формат BMP, либо найти библиотеки третьих фирм, в которых есть аналог TImage, "понимающий" данные форматы (есть как VBX объекты, так и "родные" объекты для Delphi).
При проектировании следует помнить, что изображение, помещенное на форму во время дизайна, включается в файл .DPR и затем прикомпилируется к EXE файлу. Поэтому такой EXE файл может получиться достаточно большой. Как альтернативу можно рассмотреть загрузку картинки во время выполнения программы, для этого у свойства Picture (которое является объектом со своим набором свойств и методов) есть специальный метод LoadFromFile. Это делается, например, так:
Image1.Picture.LoadFromFile(имя файла);
Важными являются свойства объекта Center и Stretch - оба имеют булевский тип.
Если Center установлено в True, то центр изображения будет совмещаться с центром объекта TImage.
Если Stretch установлено в True, то изображение будет сжиматься или растягиваться таким образом, чтобы заполнить весь объект TImage.
TShape - простейшие графические объекты на форме типа круг, квадрат и т.п.
Вид объекта указывается в свойстве Shape.
Свойство Pen определяет цвет и вид границы объекта.
Brush задает цвет и вид заполнения объекта. Эти свойства можно менять как во время дизайна, так и во время выполнения программы.
Контрольные вопросы (допуск к работе)
Для чего используется визуальный компонент TImage?
Каковы основные свойства компонента TImage?
Для чего используется визуальный компонент TShape?
Каковы основные свойства компонента TShape?
Задание
Разработать проект, демонстрирующий использование визуальных компонентов Shape и Image.
Порядок выполнения
Загрузить визуальную среду программирования. Создать новый проект.
Поместить на форму компонент Shape который находится на странице Additional палитры компонент, а ткак же компоненты Image (Additional), RadioButton (Standart) и ColorGrid (Simples) (см. рис.).
В результате у Вас должен получиться интерфейс программы, подобный ниже приведенному:
С помощью инспектора объектов создайте следующие обработчики событий и внесите в них требуемый код:
Для компнонента ColorGrid |
procedure TForm1.ColorGrid1Change(Sender: TObject); begin form1.Shape1.Brush.Color:=form1.ColorGrid1.ForegroundColor; end; |
Для компнонента RadioButton1 (квадрат) |
procedure TForm1.RadioButton1Click(Sender: TObject); begin form1.Shape1.Shape:=stRectangle; end; |
Для компнонента RadioButton2 (круг) |
procedure TForm1.RadioButton2Click(Sender: TObject); begin form1.Shape1.Shape:=stCircle; end; |
Дважду быстро щелкните на компоненте Image . Перед вами появиться диалоговое окно загрузки рисунка:
С помощью кнопки Load вызовите следующее диалоговое окно в котором найдите на диске некоторый графический файл (.bmp):
С помощью этих диалоговых окон загрузите в компонент Image выбранную картинку.
Запустите программу на исполнение и ознакомьтесь с ее работой.
Содержание отчета
Постановка задачи
Тексты процедур – обработчиков событий, разработанных в приложении Delphi
Контрольные вопросы
С помощью какого метода Canvas можно установить перо в заданную точку?
С помощью какого метода Canvas можно провести линию от текущего положения пера до заданной точки?
Как задать толщину пера?
Как задать цвет пера, кисти?
Как поставить точку определенного цвета на холсте?
Литература
В.Попов. Паскаль и Дельфи.— СПб.: Питер, 2003.
Фаронов В.В. Система программирования Delphi. – СПб.: БХВ-Петербург, 2003.