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

Тема: Графические возможности Delphi. (6 часов)

Цель: Отработка практических навыков  создания DELPHI-приложения с использованием компонентов  TImage, TChart.

 

Задание 1.

Создать проект, позволяющий просматривать и редактировать рисунки, а также просматривать простейшие геометрические фигуры

Примерный вид формы:

 

 

Выполнение задания:

1. Разместите на форме указанные компоненты.

2. Установите следующие свойства компонентов

Компонент	Свойство	Значение
ComboBox1	Items	квадрат круг
Image1	AutoSuze Stretch	true false

 

3. Создайте главное меню формы

4. Запрограммируйте  выбор пункта меню открыть

procedure TForm1.N2Click(Sender: TObject);

begin

   if OpenPictureDialog1.Execute then Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);

end;

5. Запрограммируйте выбор пункта меню сохранить:

procedure TForm1.N3Click(Sender: TObject);

begin

 if SavePictureDialog1.Execute then Image1.Picture.SaveToFile(SavePictureDialog1.FileName);

end;

6. Запрограммируйте выбор цвета для рисования с помощью компонента ColorBox1:

procedure TForm1.ColorBox1Change(Sender: TObject);

begin

 Image1.Canvas.Pen.Color:=ColorBox1.Selected;

end;

7. Запрограммируйте установку графического указателя при нажатии клавиши мыши в пределах компонента Image1:

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y: Integer);

begin

   Image1.Canvas.MoveTo(X,Y);

end;

8. Запрограммируйте рисование линии при нажатии левой клавиши мыши и ее перемещении по компоненту Image1:

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer);

begin

   if ssLeft in Shift then Image1.Canvas.LineTo(X,Y);

end;

9. Запрограммируйте выбор простой геометрической фигуры с помощью компонента ComboBox1:

procedure TForm1.ComboBox1Change(Sender: TObject);

begin

 case ComboBox1.ItemIndex of

  0:  Shape1.Shape:=stSquare;

  1:  Shape1.Shape:=stCircle;

 end;

end;

10. Сохраните проект и проверьте его работу.

Задание для самостоятельной работы

Доработайте проект следующим образом:

1)                      добавьте в список ComboBox1 новые пункты: прямоугольник и эллипс и предусмотрите возможность изображения этих фигур;

2)                      запрограммируйте закраску фигуры  Shape1 цветом, выбранном в компоненте ColorBox1;

3)                      добавьте на форму две кнопки Button1 и  Button2. При щелчке мышью по Button1 размеры компонента Shape1 увеличиваются вдвое, а при щелчке по Button2 – уменьшаются вдвое.

Форма представления отчета:

            Отчет о выполненной самостоятельной работе должен содержать:

1)                      тему лабораторной работы;

2)                      условие задачи;

3)                      листинг программы;

4)                      результаты ее тестирования.

Компонент Chart

Компонент Chart позволяет строить графики, диаграммы различных видов. Компонент Chart расположен на палитре Additional.

Круговая диаграмма

1.     Создайте форму следующего вида

2.      

 

2. Присвойте компонентам следующие значения

Компонент	Свойство	Значение
Label1	Caption	Пролив
Label2	Caption	Длина
Edit1	Text
Edit2	Text
Button1	Caption	Ввод
SrtingGrid1	ColCount RowCount FixedCols	2 10 0

 

3. Дважды щелкните по объекту Chart и в появившемся  окне добавьте элемент Series (Add) и выберите тип Pie

 

4. Выделите объект Form1 в диспетчере объектов и перейдите на закладку Events в Object Inspector и дважды щелкните в поле справа от события OnCreate

 

 

5. Запрограммируйте событие создания формы.

 

procedure TForm1.FormCreate(Sender: TObject);

begin

StringGrid1.Cells[0,0]:='Пролив';

StringGrid1.Cells[1,0]:='Длина';

Chart1.Title.Text.Clear;

Chart1.Title.Text.Add('Диаграмма');

Series1.Clear;

Series1.Marks.Visible:=false;

end;

6. Запрограммируйте событие onClick для button1

procedure TForm1.Button1Click(Sender: TObject);

var A,A1:integer;

begin

A:=Edit1.tag;

inc(A);

Edit1.tag:=A;

StringGrid1.Cells[0,A]:=Edit1.Text;

StringGrid1.Cells[1,A]:=Edit2.Text;

A1:=StrToInt(Edit2.Text);

if ColorDialog1.Execute then Series1.Add(A1,Edit1.text, ColorDialog1.Color)

else Series1.Add(A1,Edit1.text, clYellow);

end;

7. Запустите программу на исполнение. Помните в поле Edit2 нужно вводить только числа

Построение графиков функций

1. Создайте форму следующего вида

 

2. Присвойте компонентам следующие значения

Компонент	Свойство	Значение
CheckBox1	Caption	3D

 

3. Дважды щелкните по объекту Chart и в появившемся  окне добавьте элемент Series (Add) и выберите тип Line

 

 

4. Запрограммируйте событие onClick для button1

procedure TForm1.Button1Click(Sender: TObject);

var i:integer;

begin

Series1.Clear;

Chart1.View3D:=false;

Series1.Title:='Sin';

for i := 0 to 100 do

begin

  Series1.AddXY(0.02 * Pi * i, sin(0.02 * Pi * i), '', clRed);

end;

end;