StdCtrls, ExtCtrls;
type
{ TForm4 }
TForm4 = class(TForm)
Button1: TButton;
Button2: TButton;
ColorDialog1: TColorDialog;
Label1: TLabel;
Panel1: TPanel;
Shape1: TShape;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
private
{ private declarations }
public
{ public declarations }
end;
var
Form4: TForm4;
implementation
uses tmain;
{ TForm4 }
procedure TForm4.Button1Click(Sender: TObject);
begin
if ColorDialog1.Execute then // вызываемокнодиологовыборыцвета
Shape1.Brush.Color:=ColorDialog1.Color; // меняемцветфигуры
end;
procedure TForm4.Button2Click(Sender: TObject);
begin
if ColorDialog1.Execute then // вызываемокнодиологовыборыцвета
Form4.Color:= ColorDialog1.Color; // меняемцветформы
end;
procedure TForm4.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
Form1.Show;
end;
initialization
{$I colorshape.lrs}
end.
Приложение В
Результаты работы программ:
1. Работа программы tmain.
2. Работа программы Tugol
3. Работа программы parray
4. Работа программы colorshape.
ВЫВОДЫ
Данная курсовая работа была выполнена в полном соответствии поставленному заданию и отлажена в среде Лазарус. В ходе выполнения курсовой работы была разработана программа на модальных окнах.
В ходе выполнения курсового проекта были проведены - анализ технического задания и постановка задачи проектирования.
Были выделены функции, которыми должна обладать разрабатываемая программа.
Был разработан алгоритм программы, предназначенной для выполнения сформированных функций.
Согласно разработанному алгоритму была составлена и отлажена программа алгоритмическом языке программирования Delphi. В ходе разработки программы проводилось ее тестирование и отладка на тестовых наборах.
Результаты работы оформлены в виде пояснительной записки.
В ходе разработки программы были закреплены навыки работы:
- командами ввода-вывода как на экран, так и в текстовые файлы,
- использования процедур,
- команды обработки массивов,
- команды для реализации циклов с заданным числом повторений;
В результате выполнения данной курсовой работы, мы убедились в широких возможностях языка программирования Delphi, закрепили практические навыки программирования в cреде Лазарус.
Список Использованной Литературы:
1. Е.А. Жоголев. Введение в технологию программирования (конспект лекций). - М.: "ДИАЛОГ-МГУ", 1994.
2. М. Зелковец, А. Шоу, Дж. Гэннон. Принципы разработки программного обеспечения. - М.: Мир, 1982. - С. 11.
3. К. Зиглер. Методы проектирования программных систем. - М.: Мир, 1985. - С. 15-23.
4. Дж. Фокс. Программное обеспечение и его разработка. - М.: Мир, 1985. - С. 53-67, 125-130.
5. И. Ю. Баженова Delphi 7 самоучитель программиста Москва 2003.