 |
Оценка практической работы преподавателем
|
|
|
|
| Наименование объектов контроля и оценки | Основные показатели оценки результата | Оценка |
| У3. Разрабатывать программное обеспечение с помощью языков программирования информационного контента. | - созданы элементы пользовательского интерфейса в соответствии с требованиями к эргономики; - реализовано главное окно ЭУ; | Правильно созданы элементы ПИ - 2 балла; Правильно реализовано главное окно ЭУ - 2 балла. Итого – 4 балла |
За правильное выполнение практической работы выставляется положительная оценка – 4 балла.
За не правильное выполнение практической работы выставляется отрицательная оценка – 0 баллов.
Практическая работа 11. Использование графики
| Тема: | Разработка пользовательского интерфейса |
| Цель: | Научиться создавать главное окно ЭУ с использованием графических возможностей Delphi 7 |
| Оборудование: Программное обеспечение: | Персональный компьютер Операционная система Windows 7 |
Учебно-методическая литература
Основные источники:
Петров, Н.Н. В.П. Молочков Компьютерная графика [Текст]/ Н.Н. Петров, В.П. Молочков.- СПб.: Питер,
Время, отведенное на выполнение работы: 2 часа
Общие теоретические сведения
Для отображения графической информации в библиотеке Delphi предусмотрены компоненты, список которых дан в таблице.
| Компоненты отображения графической информации | Компонент | Страница |
 Image (изображение)
| Additional | Используется для отображения графики: пиктограмм, битовых матриц и метафайлов. |
 PaintBox
(окно для рисования)
| System | Используется для создания на форме некоторой области, в которой можно рисовать. |
| DrawGrid (таблица рисунков)
| Additional | Используется для отображения в строках и столбцах нетекстовых данных. |
 Chart (диаграммы и графики)
| Additional | Компонент принадлежит к семейству компонентов TChart, которые используются для создания диаграмм и графиков. |
Ход работы
|
|
|
Задание 1.Создать программу Стили заполнения областей, которая выводит в окно (рис. 1) восемь прямоугольников, закрашенных черным цветом с использованием разных стилей.
Рисунок 1
Листинг 10.1. Стили заполнения областей
unit brustyle_;
Interface
Uses
Windows, Messages, SysUtils, Classes,
Graphics, Controls, Forms, Dialogs, ExtCtrls;
Type
TForm1 = class (TForm)
procedure FormPaint(Sender: TObject);
Private
{ Private declarations}
Public
{ Public declarations)
end;
Var
Form1: TForm1;
Implementation
{$R *.DFM}
// перерисовкаформы
procedure TForm1.FormPaint(Sender: TObject);
Const
bsName: array [1..8] of string =
('bsSolid','bsClear','bsHorizontal',
'bsVertical','bsFDiagonal','bsBDiagonal',
'bsCross','bsDiagCross');
Var
x,y: integer; // координатылевоговерхнегоуглапрямоугольника
w,h: integer; // ширина и высота прямоугольника
bs: TBrushStyle;// стиль заполнения области
k: integer; // номер стиля заполнения
i,j: integer;
Begin
w:=40; h:=40; // размер области(прямоугольника)
у:=20;
for i:=l to 2 do
Begin
х:=10;
for j:=1 to 4 do
Begin
k:=j+(i-1)*4; // номер стиля заполнения
Case k of
1: bs = bsSolid;
2: bs = bsClear;
3: bs = bsHorizontal;
4: bs = bsVertical;
5: bs = bsFDiagonal;
6: bs = bsBDiagonal;
7: bs = bsCross;
8: bs = bsDiagCross; end;
// выводпрямоугольника
Canvas.Brush.Color:= clGreen;
// цвет закрашивания — зеленый
Canvas.Brush.Style:= bs;
// стильзакрашивания
Canvas. Rectangle (x, y, x+w, y-t-h);
// выводназваниястиля
Canvas.Brush.Style:= bsClear;
Canvas.TextOut(x, y-15, bsName[k]);
// вывод названия стиля
x:= x+w+30;
end;
у:= y+h+30;
end;
end;
End.
Задание 2.Создать программу, которая демонстрирует использование функции Textout для вывода текста на поверхность формы:
Для вывода текста на поверхность графического объекта используется метод TextOut. Инструкция вызова метода TextOut в общем виде выглядит следующим образом:
Объект.Canvas.TextOut(x, у, Текст)
где:
· объект — имя объекта, на поверхность которого выводится текст;
· х, у — координаты точки графической поверхности, от которой выполняется вывод текста (рис. 2);
|
|
|
· Текст — переменная или константа символьного типа, значение которой определяет выводимый методом текст.
Рисунок 2 - Координаты области вывода текста
Следующий фрагмент программы демонстрирует использование функции Textout для вывода текста на поверхность формы:
with Form1.Canvas do begin
// установить характеристики шрифта
Font.Name:= 'Tahoma';
Font.Size:= 20;
Font.Style:= [fsltalic, fsBold];
Brush.Style:= bsClear; // областьвыводатекстанезакраши-
TextOut(0, 10, 'Borland Delphi 7');
end;
Контрольные задания:
1. Создать главное окно электронного учебника с использованием графики.
|
|
|
