Разработка программы с графическими возможностями

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

Тема: разработка программы с графическими возможностями.

Цель: получить навыки разработки программы с использованием типа TBrushStyle.

Ход выполнения работы:

Задание:  разработать программу, которая будет выводить в окно восемь прямоугольников, закрашенных черным цветом с использованием разных стилей заполнения областей.

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

Листинг программы:

procedure TForm1.Button1Click(Sender: TObject);

var

a: array [1 .. 5] of integer;

summ: integer;

sr: real;

i: integer;

begin

for i := 1 to 5 do

if Length(StringGrid1.Cells[i - 1, 0]) <> 0 then

a[i] := StrToInt(StringGrid1.Cells[i - 1, 0])

else

a[i] := 0;

summ := 0;

for i := 1 to 5 do

summ := summ + a[i];

sr := summ / 5;

Label2.Caption := 'Сумма элементов: ' + IntToStr(summ) + #13 +

'Среднее арифметическое: ' + FloatToStr(sr);

end;

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);

begin

case Key of

#8, '0' .. '9':;

#13: if StringGrid1.Col < StringGrid1.ColCount - 1 then

StringGrid1.Col := StringGrid1.Col + 1;

'.', ',':

begin

if Key <> DecimalSeparator then

Key := DecimalSeparator;

if Pos(DecimalSeparator, StringGrid1.Cells[StringGrid1.Col, 0])

<> 0 then

Key := Chr(0);

end;

'-': if Length(StringGrid1.Cells[StringGrid1.Col, 0]) <> 0 then

Key := Chr(0);

else

Key := Chr(0);

end;

end;

Программа состоит из двух процедур: Button1Click и StringGrid1KeyPress. Процедура Button1Click вызывается нажатием на кнопку Button1, эта процедура выполняет вычисление. Процедура StringGrid1KeyPress вызывается при вводе данных в ячейку компонента StringGrid1 и обеспечивает ввод и обработку массива дробных чисел, обеспечивает ввод в ячейку только допустимых при записи дробного числа символов.

.

Рисунок 7.1 – Блок-схема процедуры Button1Click

Рисунок 7.2 – Блок-схема процедуры StringGrid1KeyPress

Выполнение программы представлено на рисунке 7.3.

Рисунок 7.3 – Выполнение программы