Разработка демонстрационного многопоточного приложения с динамическим изменением свойств окна и компонент

 

КУРСОВАЯ РАБОТА

по дисциплине: "Среды визуального программирования"

Тема: "Разработка демонстрационного многопоточного приложения с динамическим изменением свойств окна и компонент"

Содержание

Введение

1. Постановка задачи

2. Выбор средств реализации

3. Описание логики работы приложения и разработка программного обеспечения

4. Описание пользовательского интерфейса

Заключение

Список использованной литературы

Приложения

Введение

Зачастую необходимо получить быстрый доступ к информации. Всё чаще для этого используются различные компьютерные приложения.

Одним из важнейших разделов науки информатики является программирование. Язык программирования - это формальный, искусственно созданный язык для написания и реализации алгоритма на компьютере.

Среди главных причин, принесших заслуженную популярность объектно-ориентированного программирования, следует отметить следующие:

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

·переход от существующих языков программирования к новым, прогрессивным информационным технологиям и сходство идей объектно-ориентированного программирования с идеями из других областей науки.

Методы ООП для решения технических задач нередко используются в повседневной жизни, поэтому, обучение языкам объектно-ориентированного программирования не вызывает особых трудностей.

Преимущество ООП в наглядном представлении программы с помощью объектов (кнопок, строк для ввода информации и др.). Каждый объект принадлежит определенному классу. Например, кнопка (Button1) принадлежит классу кнопок TButton. В класс входит сколь угодно много объектов, объединенных в одну группу согласно их свойствам и поведению в среде окружения, в которой они существуют и взаимодействуют.

Появление Delphi не могло пройти незамеченным среди многочисленных пользователей компьютера. Оценки экспертов, изучающих возможности этого продукта фирмы Borland, обычно окрашены в восторженные тона. Основное достоинство Delphi состоит в том, что здесь реализованы идеи визуального программирования. Среда визуального программирования превращает процесс создания программы в приятное и легко понимаемое конструирование приложения из большого набора графических и структурных примитивов.

Практической частью курсового проекта является разработка справочной системы по визуальным компонентам Delphi

1. Постановка задачи

Разработка справочной системы по визуальным компонентам Delphi.

Основные требования: получение информации по основным визуальным компонентам (не менее 15 компонент). Визуализация компонент в специально отведенной области с возможностью задания им разных свойств (размер, цвет и т.д.). Обеспечить возможность с помощью мыши перемещения компонент по отведенной области с отображением координат. Описание компонент должно храниться в текстовом файле.

Общие требования:

1.При выходе из программы обеспечить возможность сохранения измененных свойств компонент в файле с возможностью их загрузки в будущем.

2.Тип приложения: GUI

2. Выбор средств реализации

Для выполнения проекта был выбран язык программирования Delphi, так как он сочетает в себе простоту выполнения задачи, построения пользовательского интерфейса, а также обладает мощным набором функций, экономящим время на разработку программного обеспечения.

В разрабатываемой программе предполагается использование следующих функций и модулей

Модуль Forms позволяет работать с формами. Для создания GUI - приложения будут использованы объекты класса TForm;

Модули StdCtrls, Buttons, ExtCtrls для создания с помощью кнопок интерфейса, удобного и привычного пользователю;

Модуль Controls для работы с классом TControl, что позволяет упростить написание обработчиков события перемещения объектов по форме с помощью мыши;

Модуль Dialogs для вызова модальной формы с помощью функции showmessage;

Модуль Windows для создания объекта FocusRect класса TRect, используемого для отображения прямоугольника при перемещении объектов по форме с помощью мыши;

Модуль Graphics для работы с классом TColor;

Модули ComCtrls и Grids исключительно для создания примеров компонент, остальные компоненты есть в ранее упомянутых модулях.

Реализация метода Drag and Drop для перемещения объектов по форме;

Реализация сохранения и загрузки состояния компонент на форме;

Изменение некоторых свойств создаваемых объектов;

Получение справочной информации о выбранном компоненте;

Получение информации о программе;

Выход из программы.

. Описание логики работы приложения и разработка программного обеспечения

В разрабатываемом приложении реализуется справочная система по визуальным компонентам Delphi. Пользователь имеет возможность получить информацию о некоторых компонентах библиотеки VLC Delphi, увидеть пример этих компонент, изменить их свойства, а также сохранить текущее состояние программы для последующей загрузки.

В файл, при условии наличия объекта компоненты на форме, сохраняются значения его координат и размеры объекта. При отсутствии компонента в файл записывается на соответствующее место ноль. Алгоритм загрузки производится в обратном порядке.

Листинг программы приведен в приложении А.

В процессе создания программного обеспечения были разработаны процедуры и функции, приведённые в таблице 1.

Таблица 1.

Используемые методы.

ПроцедураОписаниеprocedure ListBox1ClickПри нажатии на элемент списка создаётся или удаляется соответствующий объект (при активированном переключателе CheckBox1 также показывается справка о нём). procedure SetPropertiesПрисваевает свойству Text компонент Edit1, Edit2, Edit3, Edid4 соответствующие свойства выбранного компонента. procedure ComponentMouseDownОбработчик события нажатия кнопкой мыши на объекте для последующего его перемещения. procedure ComponentMouseMoveОбработчик события перемещения компонента по ограниченной области формы с помощью мыши. procedure ComponentMouseUpОбработчик события прекращеия перемещения объекта по форме. procedure Button1ClickПрименение к выбранному компоненту свойств, заданных в Edi1, Edit2, Edit3, Edid4. procedure BitBtn4ClickВыход из программыprocedure BitBtn5ClickВызов модальной формы, показывающей информацию о программеprocedure BitBtn1ClickСохранение текущего состояния программы в файлprocedure BitBtn3ClickКнопка, вызывающая процедуру clear_allprocedure BitBtn2ClickУдаление всех созданных пользователем объектов и загрузка положения компонент на форме из файлаprocedure clear_allУдаляет созданные пользователем объекты с формы.

4. Описание пользовательского интерфейса

В интерфейсе проекта используются компоненты Delphi: Label, Button, BitBtn, Edit, ListBox, CheckBox, Shape, StatusBar.

Label - предназначен для отображения статического текста, то есть надписей и меток на форме, которые не меняются в течение всего времени работы программы.и BitBtn - используется для реализации в программе команд с помощью обработчика события OnClick этого компонента.- используется для ввода - вывода текстовой информации.- необходим для выбора пользователем компонента, с которым он хотел бы ознакомиться.- независимый переключатель, предназначенный для проверки решения пользователя типа Да/Нет.- данный компонент был использован для того, чтобы визуально ограничить область, в которой пользователь может работать с примерами компонент.- используется для отображения координаты курсора при перемещении компоненты по форме.

При запуске проекта пользователь попадает на следующую форму:

Рис. 1. Запуск проекта.

Далее, если пользователь активировал переключатель "Показывать информацию", при нажатии на один из элементов списка происходит запуск модальной формы с кратким описанием выбранного компонента, а также создание этого объекта на форме. Если переключатель не был активирован, то модальная форма не запускается.

визуальный компонент язык программирование

Рис. 2. Нажатие на элемент списка.

Появившиеся объекты пользователь может перемещать с помощью мыши по форме в разрешенных пределах, изменять их свойства применяя изменения нажатием на кпопку "Apply". При перемещении объекта, отображаются координаты курсора

Рис. 3. Изменение свойств объектов.

При работе с программой пользователь может сохранить или загрузить положение и свойства находящихся на форме объектов кликнув на соответствующих кнопках "Save" и "Load". Пользователь также может очистить поле с помощью кнопки "Clear" от всех созданных им компонент или вручную удалять каждый из них повторно нажав на соответствующий элемент списка; получить информацию о самом приложении с помощью кнопки "About"; выйти из программы нажав на кнопку "Quit".

Рис. 4. О программе.

Заключение

Целью курсовой работы было изучение языка программирования Delphi и улучшение практических заданий.

В ходе курсовой работы было разработано приложение, позволяющее получать справочную информацию о визуальных компонентах Delphi. В нём был реализован метод Drag and Drop, сохранение и загрузка данных, отображение координат курсора, изменение некоторых свойств создаваемых объектов, использованы объекты классов TForm, TLabel, TEdit, TButton, TBitBtn, TShape, TCheckBox, TListBox, TStatusBar, TColorBox. Для отображения справочной информации использовались модальные формы, информация в которые загружается из соответствующего файла.

Список использованной литературы

1.Архангельский А.Я. Программирование в Delphi: Учебник по классическим версиям Delphi. - М.: Бином, 2011.

2.Дмитрий Осипов. Delphi. Профессиональное програмирование. - 2008

.Фаронов В.В. Delphi. Программирование на языке высокого уровня: Учебник для вузов - Спб.: Лидер, 2010.

4.Справочник Основы Delphi URL - <#"center">Приложения

Приложение А (обязательное)

Листинг программыmain;, SysUtils, Graphics, Controls, Forms, Dialogs, Grids,, StdCtrls, ComCtrls, ExtCtrls, Classes;= class (TForm): TListBox;: TEdit;: TEdit;: TEdit;: TEdit;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TButton;: TBitBtn;: TBitBtn;: TBitBtn;: TBitBtn;: TBitBtn;: TShape;: TShape;: TCheckBox;: TLabel;: TStatusBar;: TColorBox;: TLabel;ListBox1Click (Sender: TObject);SetProperties (Sender: TObject);ComponentMouseDown (Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);ComponentMouseMove (Sender: TObject; Shift: TShiftState; X,: Integer);ComponentMouseUp (Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);Button1Click (Sender: TObject);BitBtn4Click (Sender: TObject);BitBtn5Click (Sender: TObject);BitBtn1Click (Sender: TObject);BitBtn3Click (Sender: TObject);BitBtn2Click (Sender: TObject);clear_all;

{ Private declarations }

{ Public declarations };: TForm1;

{$R *. dfm}: TButton; // 1: TEdit; // 2: TCheckBox; // 3: TRadioButton; // 4: TPanel; // 5: TProgressBar; // 6: TBitBtn; // 7: TLabel; // 8: TLabeledEdit; // 9: TGroupBox; // 10: TMemo; // 11: TSpeedButton; // 12: TShape; // 13: TStaticText; // 14: TStringGrid; // 15: boolean;, YOffset: integer;: TRect;_Component: TControl;: integer;TForm1. SetProperties (Sender: TObject);. Text: = IntToStr ( (Sender as TControl). Left);. Text: = IntToStr ( (Sender as TControl). Top);. Text: = IntToStr ( (Sender as TControl). Height);. Text: = IntToStr ( (Sender as TControl). Width);last of

: ColorBox1. Selected: =button. Font. Color;

: ColorBox1. Selected: =textBox. Font. Color;

// 3:

// 4:

: ColorBox1. Selected: =panel. Font. Color;

// 6:

: ColorBox1. Selected: =bitBtn. Font. Color;

: ColorBox1. Selected: =labelBox. Font. Color;

: ColorBox1. Selected: =labeledEdit. Font. Color;

: ColorBox1. Selected: =groupBox. Font. Color;

: ColorBox1. Selected: =memoBox. Font. Color;

// 12:

// 13:

// 14:

// 15:;;TForm1. ListBox1Click (Sender: TObject);x,y: integer; h: textfile; shelp: AnsiString;: = 200;: = 200;listbox1. Selected [0] then begin // Buttoncheckbox1. Checked then begin(h,'h1. txt');(h);(h,shelp);(shelp);(h);;not (Assigned (button)) then begin: = TButton. Create (Form1);. Parent: = Form1;. Left: = x;. Top: = y;. Visible: = True;: =1;. Height: = 30;. Width: = 80;. Name: = 'Button';. OnMouseDown: = ComponentMouseDown;. OnMouseMove: = ComponentMouseMove;. OnMouseUp: = ComponentMouseUp;(button);begin button. Destroy; button: =nil; exit; end; end;listbox1. Selected [1] then begin // Editcheckbox1. Checked then begin(h,'h2. txt');(h);(h,shelp);(shelp);(h);;not (Assigned (textBox)) then begin: = TEdit. Create (Form1);. Parent: = Form1;. Left: = x;. Top: = y;. Visible: = True;: =2;. Height: = 30;. Width: = 60;. Name: = 'Edit';. OnMouseDown: = ComponentMouseDown;. OnMouseMove: = ComponentMouseMove;. OnMouseUp: = ComponentMouseUp;(textBox);begin textBox. Destroy; textBox: =nil; exit; end; end;listbox1. Selected [2] then begin // CheckBoxcheckbox1. Checked then begin(h,'h3. txt');(h);(h,shelp);(shelp);(h);;not (Assigned (checkBox)) then begin: = TCheckBox. Create (Form1);. Parent: = Form1;. Left: = x;. Top: = y;. Visible: = True;: =3;. Height: = 30;. Width: = 80;. Name: = 'CheckBox';. OnMouseDown: = ComponentMouseDown;. OnMouseMove: = ComponentMouseMove;. OnMouseUp: = ComponentMouseUp;(checkBox);begin checkBox. Destroy; checkBox: =nil; exit; end; end;listbox1. Selected [3] then begin // RadioButtoncheckbox1. Checked then begin(h,'h4. txt');(h);(h,shelp);(shelp);(h);;not (Assigned (radio)) then begin: = TRadioButton. Create (Form1);. Parent: = Form1;. Left: = x;. Top: = y;. Visible: = True;: =4;. Height: = 30;. Width: = 80;. Name: = 'RadioButton';. OnMouseDown: = ComponentMouseDown;. OnMouseMove: = ComponentMouseMove;. OnMouseUp: = ComponentMouseUp;(radio);begin radio. Destroy; radio: =nil; exit; end; end;listbox1. Selected [4] then begin // Panelcheckbox1. Checked then begin(h,'h5. txt');(h);(h,shelp);(shelp);(h);;not (Assigned (panel)) then begin: = TPanel. Create (Form1);. Parent: = Form1;. Left: = x;. Top: = y;. Visible: = True;: =5;. Height: = 30;. Width: = 80;. Name: = 'Panel';. OnMouseDown: = ComponentMouseDown;. OnMouseMove: = ComponentMouseMove;. OnMouseUp: = ComponentMouseUp;(panel);begin panel. Destroy; panel: =nil; exit; end; end;listbox1. Selected [5] then begin // ProgressBarcheckbox1. Checked then begin(h,'h6. txt');(h);(h,shelp);(shelp);(h);;not (Assigned (progress)) then begin: = TProgressBar. Create (Form1);. Parent: = Form1;. Left: = x;. Top: = y;. Visible: = True;: =6;. Height: = 30;. Width: = 80;. Name: = 'ProgressBar';. OnMouseDown: = ComponentMouseDown;. OnMouseMove: = ComponentMouseMove;. OnMouseUp: = ComponentMouseUp;(progress);begin progress. Destroy; progress: =nil; exit; end; end;listbox1. Selected [6] then begin // BitBtncheckbox1. Checked then begin(h,'h7. txt');(h);(h,shelp);(shelp);(h);;not (Assigned (bitBtn)) then begin: = TBitBtn. Create (Form1);. Parent: = Form1;. Left: = x;. Top: = y;. Visible: = True;: =7;. Height: = 30;. Width: = 80;. Name: = 'BitButton';. OnMouseDown: = ComponentMouseDown;. OnMouseMove: = ComponentMouseMove;. OnMouseUp: = ComponentMouseUp;(bitBtn);begin bitBtn. Destroy; bitBtn: =nil; exit; end; end;listbox1. Selected [7] then begin // Labelcheckbox1. Checked then begin(h,'h8. txt');(h);(h,shelp);(shelp);(h);;not (Assigned (labelBox)) then begin: = TLabel. Create (Form1);. Parent: = Form1;. Left: = x;. Top: = y;. Visible: = True;: =8;. Height: = 130;. Width: = 80;. Name: = 'Label';. OnMouseDown: = ComponentMouseDown;. OnMouseMove: = ComponentMouseMove;. OnMouseUp: = ComponentMouseUp;(labelBox);begin labelBox. Destroy; labelBox: =nil; exit; end; end;listbox1. Selected [8] then begin // labeledEditcheckbox1. Checked then begin(h,'h9. txt');(h);(h,shelp);(shelp);(h);;not (Assigned (labeledEdit)) then begin: = TLabeledEdit. Create (Form1);. Parent: = Form1;. Left: = x + 60;. Top: = y;. Visible: = True;: =9;. Height: = 30;. Width: = 80;. Name: = 'LabeledEdit';. EditLabel. Caption: = 'LabeledEdit';. OnMouseDown: = ComponentMouseDown;. OnMouseMove: = ComponentMouseMove;. OnMouseUp: = ComponentMouseUp;(labeledEdit);begin labeledEdit. Destroy; labeledEdit: =nil; exit; end; end;listbox1. Selected [9] then begin // GroupBoxcheckbox1. Checked then begin(h,'h10. txt');(h);(h,shelp);(shelp);(h);;not (Assigned (groupBox)) then begin: = TGroupBox. Create (Form1);. Parent: = Form1;. Left: = x;. Top: = y;. Visible: = True;: =10;. Height: = 130;. Width: = 80;. Name: = 'GroupBox';. OnMouseDown: = ComponentMouseDown;. OnMouseMove: = ComponentMouseMove;. OnMouseUp: = ComponentMouseUp;(groupBox);begin groupBox. Destroy; groupBox: =nil; exit; end; end;listbox1. Selected [10] then begin // Memocheckbox1. Checked then begin(h,'h11. txt');(h);(h,shelp);(shelp);(h);;not (Assigned (memoBox)) then begin: = TMemo. Create (Form1);. Parent: = Form1;. Left: = x;. Top: = y;. Visible: = True;: =11;. Height: = 80;. Width: = 80;. Name: = 'Memo';. OnMouseDown: = ComponentMouseDown;. OnMouseMove: = ComponentMouseMove;. OnMouseUp: = ComponentMouseUp;(memoBox);begin memoBox. Destroy; memoBox: =nil; exit; end; end;listbox1. Selected [11] then begin // SpeedButtoncheckbox1. Checked then begin(h,'h12. txt');(h);(h,shelp);(shelp);(h);;not (Assigned (speedBtn)) then begin: = TSpeedButton. Create (Form1);. Parent: = Form1;. Left: = x;. Top: = y;. Visible: = True;: =12;. Height: = 30;. Width: = 80;. Name: = 'SpeedButton';. OnMouseDown: = ComponentMouseDown;. OnMouseMove: = ComponentMouseMove;. OnMouseUp: = ComponentMouseUp;(speedBtn);begin speedBtn. Destroy; speedBtn: =nil; exit; end; end;listbox1. Selected [12] then begin // Shapecheckbox1. Checked then begin(h,'h13. txt');(h);(h,shelp);(shelp);(h);;not (Assigned (shape)) then begin: = TShape. Create (Form1);. Parent: = Form1;. Left: = x;. Top: = y;. Visible: = True;: =13;. Height: = 30;. Width: = 80;. Name: = 'Shape';. OnMouseDown: = ComponentMouseDown;. OnMouseMove: = ComponentMouseMove;. OnMouseUp: = ComponentMouseUp;(shape);begin shape. Destroy; shape: =nil; exit; end; end;listbox1. Selected [13] then begin // staticTextcheckbox1. Checked then begin(h,'h14. txt');(h);(h,shelp);(shelp);(h);;not (Assigned (staticText)) then begin: = TStaticText. Create (Form1);. Parent: = Form1;. Left: = x;. Top: = y;. Visible: = True;: =14;. Height: = 130;. Width: = 80;. Name: = 'StaticText';. OnMouseDown: = ComponentMouseDown;. OnMouseMove: = ComponentMouseMove;. OnMouseUp: = ComponentMouseUp;(staticText);begin staticText. Destroy; staticText: =nil; exit; end; end;listbox1. Selected [14] then begin // stringGridcheckbox1. Checked then begin(h,'h15. txt');(h);(h,shelp);(shelp);(h);;not (Assigned (stringGrid)) then begin: = TStringGrid. Create (Form1);. Parent: = Form1;. Left: = x;. Top: = y + 50;. Visible: = True;: =15;. Height: = 150;. Width: = 200;. Name: = 'StringGrid';. Col: =3;. Row: =2;. OnMouseDown: = ComponentMouseDown;. OnMouseMove: = ComponentMouseMove;. OnMouseUp: = ComponentMouseUp;(stringGrid);begin stringGrid. Destroy; stringGrid: =nil; exit; end; end;;TForm1.componentMouseDown (Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);: = True;: = X;: = Y;Sender. ClassType = TButton then begin colorbox1. Enabled: =false; last: =1;_Component: = Sender as TButton; end;Sender. ClassType = TEdit then begin colorbox1. Enabled: =true; last: =2;_Component: = Sender as TEdit; end;Sender. ClassType = TCheckBox then begin colorbox1. Enabled: =false; last: =3;_Component: = Sender as TCheckBox; end;Sender. ClassType = TRadioButton then begin colorbox1. Enabled: =false; last: =4;_Component: = Sender as TRadioButton; end;Sender. ClassType = TPanel then begin colorbox1. Enabled: =true; last: =5;_Component: = Sender as TPanel; end;Sender. ClassType = TProgressBar then begin colorbox1. Enabled: =false; last: =6;_Component: = Sender as TProgressBar; end;Sender. ClassType = TBitBtn then begin colorbox1. Enabled: =true; last: =7;_Component: = Sender as TBitBtn; end;Sender. ClassType = TLabel then begin colorbox1. Enabled: =true; last: =8;_Component: = Sender as TLabel; end;Sender. ClassType = TLabeledEdit then begin colorbox1. Enabled: =true; last: =9;_Component: = Sender as TLabeledEdit; end;Sender. ClassType = TGroupBox then begin colorbox1. Enabled: =false; last: =10;_Component: = Sender as TGroupBox; end;Sender. ClassType = TMemo then begin colorbox1. Enabled: =true; last: =11;_Component: = Sender as TMemo; end;Sender. ClassType = TSpeedButton then begin colorbox1. Enabled: =false; last: =12;_Component: = Sender as TSpeedButton; end;Sender. ClassType = TShape then begin colorbox1. Enabled: =false; last: =13;_Component: = Sender as TShape; end;Sender. ClassType = TStaticText then begin colorbox1. Enabled: =false; last: =14;_Component: = Sender as TStaticText; end;Sender. ClassType = TStringGrid then begin colorbox1. Enabled: =false; last: =15;_Component: = Sender as TStringGrid; end;(Selected_Component);Selected_Component do: = Rect (Left, Top, Left + Width, Top + Height);. DrawFocusRect (FocusRect);;TForm1.componentMouseMove (Sender: TObject; Shift: TShiftState; X,: Integer);Dragg then. DrawFocusRect (FocusRect);FocusRect do: = (Selected_Component. Left + X) - XOffset;: = (Selected_Component. Top + Y) - YOffset;: = Selected_Component. Width + Left;: = Selected_Component. Height + Top;;. DrawFocusRect (FocusRect);. SimpleText: = 'x = ' + IntToStr ( (Selected_Component. Left + X) - XOffset) +

' y = ' + IntToStr ( (Selected_Component. Top + Y) - YOffset);;;TForm1.componentMouseUp (Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);Dragg then. DrawFocusRect (FocusRect); // Erase Focus Rect: = False;Selected_Component do: = (Left + X) - XOffset;: = (Top + Y) - YOffset;Left<120 then Left: =120;Left>900-Width then Left: =900-Width;Top<65 then Top: =65;Top>440-Height-20 then Top: =440-Height-20;;(Selected_Component);;;TForm1. Button1Click (Sender: TObject);vari: integer;(Edit1. Text='') or (Edit2. Text='') or (Edit3. Text='') or (Edit1. Text='') then begin showmessage ('Âûáåðèòå êîìïîíåíò! '); Exit; endbegin(not (TryStrToInt (Edit1. Text,vari))) or (not (TryStrToInt (Edit2. Text,vari))) or (not (TryStrToInt (Edit3. Text,vari))) or (not (TryStrToInt (Edit1. Text,vari))) then begin showmessage ('Ââåäèòå öåëîå ÷èñëî! '); Exit; end;_Component. Left: =StrToInt (Edit1. Text);_Component. Top: =StrToInt (Edit2. Text);_Component. Height: =StrToInt (Edit3. Text);_Component. Width: =StrToInt (Edit4. Text);Selected_Component. Left<120 then Selected_Component. Left: =120;Selected_Component. Left>900-Selected_Component. Width then Selected_Component. Left: =900-Selected_Component. Width;Selected_Component. Top<65 then Selected_Component. Top: =65;Selected_Component. Top>440-Selected_Component. Height-20 then Top: =440-Selected_Component. Height-20;last of

: begin textBox. Font. Color: =ColorBox1. Selected; end;

: begin panel. Font. Color: =ColorBox1. Selected; end;

: begin bitBtn. Font. Color: =ColorBox1. Selected; end;

: begin labelBox. Font. Color: =ColorBox1. Selected; end;

: begin labeledEdit. Font. Color: =ColorBox1. Selected; end;

: begin memoBox. Font. Color: =ColorBox1. Selected; end;ColorBox1. enabled: =false;;;(Selected_Component);;TForm1. BitBtn4Click (Sender: TObject);. Close;;TForm1. BitBtn1Click (Sender: TObject);f: textfile;(f,{GetCurrentDir+}'save. txt');(f);Assigned (button) then // 1(f,button. Top);(f,button. Left);(f,button. Height);(f,button. Width);writeln (f,'0');(Assigned (textBox)) and (textBox. Visible) then // 2(f,textBox. Top);(f,textBox. Left);(f,textBox. Height);(f,textBox. Width);(f,textBox. Font. Color);writeln (f,'0');(Assigned (checkBox)) and (checkBox. Visible) then // 3(f,checkBox. Top);(f,checkBox. Left);(f,checkBox. Height);(f,checkBox. Width);writeln (f,'0');(Assigned (radio)) and (radio. Visible) then // 4(f,radio. Top);(f,radio. Left);(f,radio. Height);(f,radio. Width);writeln (f,'0');(Assigned (panel)) and (panel. Visible) then // 5(f,panel. Top);(f,panel. Left);(f,panel. Height);(f,panel. Width);(f,panel. Font. Color);writeln (f,'0');(Assigned (progress)) and (progress. Visible) then // 6(f,progress. Top);(f,progress. Left);(f,progress. Height);(f,progress. Width);writeln (f,'0');(Assigned (bitBtn)) and (bitBtn. Visible) then // 7(f,bitBtn. Top);(f,bitBtn. Left);(f,bitBtn. Height);(f,bitBtn. Width);(f,bitBtn. Font. Color);writeln (f,'0');(Assigned (labelBox)) and (labelBox. Visible) then // 8(f,labelBox. Top);(f,labelBox. Left);(f,labelBox. Height);(f,labelBox. Width);(f,labelBox. Font. Color);writeln (f,'0');(Assigned (labeledEdit)) and (labeledEdit. Visible) then // 9(f,labeledEdit. Top);(f,labeledEdit. Left);(f,labeledEdit. Height);(f,labeledEdit. Width);(f,labeledEdit. Font. Color);writeln (f,'0');(Assigned (groupBox)) and (groupBox. Visible) then // 10(f,groupBox. Top);(f,groupBox. Left);(f,groupBox. Height);(f,groupBox. Width);writeln (f,'0');(Assigned (memoBox)) and (memoBox. Visible) then // 11(f,memoBox. Top);(f,memoBox. Left);(f,memoBox. Height);(f,memoBox. Width);(f,memoBox. Font. Color);writeln (f,'0');(Assigned (speedBtn)) and (speedBtn. Visible) then // 12(f,speedBtn. Top);(f,speedBtn. Left);(f,speedBtn. Height);(f,speedBtn. Width);writeln (f,'0');(Assigned (shape)) and (shape. Visible) then // 13(f,shape. Top);(f,shape. Left);(f,shape. Height);(f,shape. Width);writeln (f,'0');(Assigned (staticText)) and (staticText. Visible) then // 14(f,staticText. Top);(f,staticText. Left);(f,staticText. Height);(f,staticText. Width);writeln (f,'0');(Assigned (stringGrid)) and (stringGrid. Visible) then // 15(f,stringGrid. Top);(f,stringGrid. Left);(f,stringGrid. Height);(f,stringGrid. Width);writeln (f,'0');(f);;TForm1. clear_all;. Text: =''; Edit2. Text: =''; Edit3. Text: =''; Edit4. Text: ='';Assigned (button) then begin button. Destroy; button: =nil; end;Assigned (textBox) then begin textBox. Destroy; textBox: =nil; end;Assigned (checkBox) then begin checkBox. Destroy; checkBox: =nil; end;Assigned (radio) then begin radio. Destroy; radio: =nil; end;Assigned (panel) then begin panel. Destroy; panel: =nil; end;Assigned (progress) then begin progress. Destroy; progress: =nil; end;Assigned (bitBtn) then begin bitBtn. Destroy; bitBtn: =nil; end; // 7Assigned (labelBox) then begin labelBox. Destroy; labelBox: =nil; end;Assigned (labeledEdit) then begin labeledEdit. Destroy; labeledEdit: =nil; end;Assigned (groupBox) then begin groupBox. Destroy; groupBox: =nil; end; // 10Assigned (memoBox) then begin memoBox. Destroy; memoBox: =nil; end; // 11Assigned (speedBtn) then begin speedBtn. Destroy; speedBtn: =nil; end; // 12Assigned (shape) then begin shape. Destroy; shape: =nil; end; // 13Assigned (staticText) then begin staticText. Destroy; staticText: =nil; end; // 14Assigned (stringGrid) then begin stringGrid. Destroy; stringGrid: =nil; end; // 15;TForm1. BitBtn3Click (Sender: TObject);_all;;TForm1. BitBtn2Click (Sender: TObject);f: textfile; tmp: integer; sig: TColor;_all;(f,{GetCurrentDir+}'save. txt');(f);(f,tmp);tmp<>0 then begin // buttonNOT (Assigned (button)) then begin: = TButton. Create (Form1);. Parent: = Form1;. OnMouseDown: = ComponentMouseDown;. OnMouseMove: = ComponentMouseMove;. OnMouseUp: = ComponentMouseUp;. Name: = 'Button';;. Top: =tmp;(f,tmp);. Left: =tmp;(f,tmp);. Height: =tmp;(f,tmp);. Width: =tmp;

// SetProperties (button);. Visible: =true;;(f,tmp);tmp<>0 then begin // textBoxNOT (Assigned (textBox)) then begin: = TEdit. Create (Form1);. Parent: = Form1;. OnMouseDown: = ComponentMouseDown;. OnMouseMove: = ComponentMouseMove;. OnMouseUp: = ComponentMouseUp;. Name: = 'TextBox';;. Top: =tmp;(f,tmp);. Left: =tmp;(f,tmp);. Height: =tmp;(f,tmp);. Width: =tmp;(f,sig);. Font. Color: =sig;

// SetProperties (textBox);. Visible: =true;;(f,tmp);tmp<>0 then begin // checkBoxNOT (Assigned (checkBox)) then begin: = TCheckBox. Create (Form1);. Parent: = Form1;. OnMouseDown: = ComponentMouseDown;. OnMouseMove: = ComponentMouseMove;. OnMouseUp: = ComponentMouseUp;. Name: = 'CheckBox';;. Top: =tmp;(f,tmp);. Left: =tmp;(f,tmp);. Height: =tmp;(f,tmp);. Width: =tmp;

// SetProperties (checkBox);. Visible: =true;;(f,tmp);tmp<>0 then begin // radioNOT (Assigned (radio)) then begin: = TRadioButton. Create (Form1);. Parent: = Form1;. OnMouseDown: = ComponentMouseDown;. OnMouseMove: = ComponentMouseMove;. OnMouseUp: = ComponentMouseUp;. Name: = 'RadioButton';;. Top: =tmp;(f,tmp);. Left: =tmp;(f,tmp);. Height: =tmp;(f,tmp);. Width: =tmp;

// SetProperties (radio);. Visible: =true;;(f,tmp);tmp<>0 then begin // panelNOT (Assigned (panel)) then begin: = TPanel. Create (Form1);. Parent: = Form1;. OnMouseDown: = ComponentMouseDown;. OnMouseMove: = ComponentMouseMove;. OnMouseUp: = ComponentMouseUp;. Name: = 'Panel';;. Top: =tmp;(f,tmp);. Left: =tmp;(f,tmp);. Height: =tmp;(f,tmp);. Width: =tmp;(f,sig);. Font. Color: =sig;

// SetProperties (panel);. Visible: =true;;(f,tmp);tmp<>0 then begin // progressNOT (Assigned (progress)) then begin: = TProgressBar. Create (Form1);. Parent: = Form1;. OnMouseDown: = ComponentMouseDown;. OnMouseMove: = ComponentMouseMove;. OnMouseUp: = ComponentMouseUp;. Name: = 'ProgressBar';;. Top: =tmp;(f,tmp);. Left: =tmp;(f,tmp);. Height: =tmp;(f,tmp);. Width: =tmp;

// SetProperties (progress);. Visible: =true;;(f,tmp);tmp<>0 then begin // bitBtnNOT (Assigned (bitBtn)) then begin: = TBitBtn. Create (Form1);. Parent: = Form1;. OnMouseDown: = ComponentMouseDown;. OnMouseMove: = ComponentMouseMove;. OnMouseUp: = ComponentMouseUp;. Name: = 'BitBtn';;. Top: =tmp;(f,tmp);. Left: =tmp;(f,tmp);. Height: =tmp;(f,tmp);. Width: =tmp;(f,sig);. Font. Color: =sig;

// SetProperties (bitBtn);. Visible: =true;;(f,tmp);tmp<>0 then begin // labelBoxNOT (Assigned (labelBox)) then begin: = TLabel. Create (Form1);. Parent: = Form1;. OnMouseDown: = ComponentMouseDown;. OnMouseMove: = ComponentMouseMove;. OnMouseUp: = ComponentMouseUp;. Name: = 'Label';;. Top: =tmp;(f,tmp);. Left: =tmp;(f,tmp);. Height: =tmp;(f,tmp);. Width: =tmp;(f,sig);. Font. Color: =sig;

// SetProperties (labelBox);. Visible: =true;;(f,tmp);tmp<>0 then begin // labeledEditNOT (Assigned (labeledEdit)) then begin: = TLabeledEdit. Create (Form1);. Parent: = Form1;. OnMouseDown: = ComponentMouseDown;. OnMouseMove: = ComponentMouseMove;. OnMouseUp: = ComponentMouseUp;. Name: = 'LabeledEdit';;. Top: =tmp;(f,tmp);. Left: =tmp;(f,tmp);. Height: =tmp;(f,tmp);. Width: =tmp;(f,sig);. Font. Color: =sig;

// SetProperties (labeledEdit);. Visible: =true;;(f,tmp);tmp<>0 then begin // groupBoxNOT (Assigned (groupBox)) then begin: = TGroupBox. Create (Form1);. Parent: = Form1;. OnMouseDown: = ComponentMouseDown;. OnMouseMove: = ComponentMouseMove;. OnMouseUp: = ComponentMouseUp;. Name: = 'GroupBox';;. Top: =tmp;(f,tmp);. Left: =tmp;(f,tmp);. Height: =tmp;(f,tmp);. Width: =tmp;

// SetProperties (groupBox);. Visible: =true;;(f,tmp);tmp<>0 then begin // memoBoxNOT (Assigned (memoBox)) then begin: = TMemo. Create (Form1);. Parent: = Form1;. OnMouseDown: = ComponentMouseDown;. OnMouseMove: = ComponentMouseMove;. OnMouseUp: = ComponentMouseUp;. Name: = 'Memo';;. Top: =tmp;(f,tmp);. Left: =tmp;(f,tmp);. Height: =tmp;(f,tmp);. Width: =tmp;(f,sig);. Font. Color: =sig;

// SetProperties (memoBox);. Visible: =true;;(f,tmp);tmp<>0 then begin // speedBtnNOT (Assigned (speedBtn)) then begin: = TSpeedButton. Create (Form1);. Parent: = Form1;. OnMouseDown: = ComponentMouseDown;. OnMouseMove: = ComponentMouseMove;. OnMouseUp: = ComponentMouseUp;. Name: = 'SpeedButton';;. Top: =tmp;(f,tmp);. Left: =tmp;(f,tmp);. Height: =tmp;(f,tmp);. Width: =tmp;

// SetProperties (speedBtn);. Visible: =true;;(f,tmp);tmp<>0 then begin // shapeNOT (Assigned (shape)) then begin: = TShape. Create (Form1);. Parent: = Form1;. OnMouseDown: = ComponentMouseDown;. OnMouseMove: = ComponentMouseMove;. OnMouseUp: = ComponentMouseUp;. Name: = 'Shape';;. Top: =tmp;(f,tmp);. Left: =tmp;(f,tmp);. Height: =tmp;(f,tmp);. Width: =tmp;

// SetProperties (shape);. Visible: =true;;(f,tmp);tmp<>0 then begin // staticTextNOT (Assigned (staticText)) then begin: = TStaticText. Create (Form1);. Parent: = Form1;. OnMouseDown: = ComponentMouseDown;. OnMouseMove: = ComponentMouseMove;. OnMouseUp: = ComponentMouseUp;. Name: = 'StaticText';;. Top: =tmp;(f,tmp);. Left: =tmp;(f,tmp);. Height: =tmp;(f,tmp);. Width: =tmp;

// SetProperties (staticText);. Visible: =true;;(f,tmp);tmp<>0 then begin // stringGridNOT (Assigned (stringGrid)) then begin: = TStringGrid. Create (Form1);. Parent: = Form1;. OnMouseDown: = ComponentMouseDown;. OnMouseMove: = ComponentMouseMove;. OnMouseUp: = ComponentMouseUp;. Name: = 'StringGrid';;. Top: =tmp;(f,tmp);. Left: =tmp;(f,tmp);. Height: =tmp;(f,tmp);. Width: =tmp;(stringGrid);. Visible: =true;;(f);;TForm1. BitBtn5Click (Sender: TObject); (Справка по компонентам библиотеки VLC Deflphi 7. Разработал Брик Михаил. Воронеж 2013');;.

КУРСОВАЯ РАБОТА по дисциплине: "Среды визуального программирования" Тема: "Разработка демонстра

Больше работ по теме: