Контрольные работы по информатике "Язык программирования Delphi" (11 класс)

СОДЕРЖАНИЕ

Введение	3
1. Общие сведения объекта Canvas.	4
2. Свойства карандаша.	5
3. Свойства кисти.	7
4. Пример использования объекта Canvas.	8
Список используемых источников.	13

Введение

Работа с графикой в Delphi это не только линии и рисунки, но также и печать текстовых документов. Поэтому в Delphi работе с графикой нужно уделять много времени. Работа с графикой в Delphi предполагает обращение к канве - свойству Canvas компонентов. Canvas Delphi это холст, который позволяет программисту иметь доступ к каждой своей точке (пикселу), и словно художнику отображать то, что требуется. Конечно, рисовать попиксельно для работы с графикой в Delphi не приходится, система Delphi предоставляет для этого мощные средства работы с графикой, облегчающие задачу программиста.

В работе с графикой в Delphi в распоряжении программиста находятся канва (холст, полотно - свойство Canvas Delphi компонентов), карандаш (свойство Pen), кисть (свойство Brush) того компонента или объекта, на котором предполагается рисовать. У карандаша Pen и кисти Brush можно менять цвет (свойство Color) и стиль (свойство Style). Доступ к шрифтам предоставляет свойство канвы Font. Эти инструменты позволяют отображать как текст, так и достаточно сложные графики математического и инженерного содержания, а также рисунки. Кроме этого, работа с графикой позволяет использовать в Delphi такие ресурсы Windows как графические и видеофайлы.

Цель контрольной работы: изучение свойств объекта Canvas, а также разработка ряда примеров работы с этим объектом.

1. Общие сведения объекта Canvas.

На вкладке Additional расположен специализированный компонент TImage, специально предназначенный для рисования, но также свойство Canvas имеют, например, такие компоненты как ListBox, ComboBox, StringGrid, а также и сама Форма, которая размещает наши компоненты! Кроме того, для печати документов Delphi обращается к свойству Canvas такого объекта как принтер.

Основное свойство такого объекта как Canvas Delphi - Pixels[i, j] типа TColor, то есть это двумерный массив точек (пикселов), задаваемых своим цветом. Рисование на канве происходит в момент присвоения какой-либо точке канвы заданного цвета. Каждому пикселу может быть присвоен любой доступный для Windows цвет. Например, выполнение оператора

   Image1.Canvas.Pixels[100, 100]:=clRed;

приведёт к рисованию красной точки с координатами [100, 100]. Узнать цвет пиксела можно обратным присвоением:

   Color:=Image1.Canvas.Pixels[100, 100];

   Тип TColor определён как длинное целое (LongInt). Его четыре байта содержат информацию о долях синего (B), зелёного (G), и красного (R) цветов. В 16-ричной системе это выглядит так: $00BBGGRR. Доля каждого цвета может меняться от 0 до 255. Поэтому чтобы отобразить максимально красную точку, ей нужно присвоить цвет $000000FF.

Для стандартных цветов в Delphi определён набор текстовых констант. Увидеть его можно, открыв в Инспекторе Объектов свойство Color, например, той же Формы.

Следующая таблица содержит некоторые свойства и методы канвы:

Процедура TextOut(X, Y: Integer; const Text: WideString); Производит вывод строки Text начиная с (X, Y) - левого верхнего пиксела текста.

Свойство TextWidth(var Text: String): Integer; Содержит длину строки Text в пикселах.

Свойство TextHeight(var Text: String): Integer; Содержит высоту строки Text в пикселах.

Процедура MoveTo(X, Y: Integer); Производит перемещение позиции к пикселу с адресом (X, Y).

Процедура LineTo(X, Y: Integer); Производит рисование прямой линии из точки текущей позиции к пикселу с адресом (X, Y). Адрес (X, Y) становится точкой текущей позиции.

Процедура FillRect(const Rect: TRect); Заполняет прямоугольник Rect на холсте, используя текущую кисть. Может использоваться, в том числе, для стирания части изображения на холсте.

2. Свойства карандаша.

Разберёмся с цветом. Для рисования используется два понятия цвета – цвет карандаша и цвет кисти. За стиль карандаша (в том числе и цвет) отвечает свойство Pen объекта TCanvas. За стиль кисти отвечает свойство Brush. И Brush и Pen – это тоже объекты, у которых есть свои свойства.

Для начала разберёмся с объектом TPen. Этот объект отвечает за свойства карандаша. У него есть следующие свойства:

Color – цвет карандаша.

Handle – здесь находиться описание карандаша, которое можно использовать при обращении к WinAPI функциям. У большинства объектов есть свойство Handle, которое нужно только для API функций и в повседневных программах мы его использовать не будем.

Mode – режим отображение показывает, как будет рисоваться линия.

Style – стиль карандаша. Существуют следующие стили (графическое отображение стилей линий ты можешь увидеть на рисунке 4):

·        psSolid – сплошная линия;

·        psDash – линия в виде пунктира (состоит из коротких линий);

·        psDot – линия из точек;

·        psDashDot – линия с чередующимися чёрточками и точками;

·        psDashDotDot - линия с чередующимися чёрточками и двумя точками;

·        psClear – невидимая линия;

·        psInsideFrame – линия внутри формы. Внешне похожа на сплошную (рис. 1).

Width – ширина карандаша.

Рисунок 1. Стили линий

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

Результат работы программы виден на рисунке 2.

Рисунок 2. Результат работы программы.

В данном примере, по событию OnPaint (когда надо перерисовать форму) поочерёдно рисуются линии разного стиля. Для этого сначала выбираем нужный стиль (например, Canvas.Pen.Style:=psSolid – выбирает стиль сплошной линии).

Потом перемещаем карандаш в точку начала линии - Canvas.MoveTo(Х, Y). Метод MoveTo перемещает карандаш в позицию указанную в качестве параметров X, Y. При перемещении не происходит никакого рисования на холсте (Canvas). X и Y – это не сантиметры и не миллиметры, а количество пикселей (количество экранных точек).

Отсчёт координаты Х идёт слева на право. Это значит, что левая сторона окна равна нулевой позиции Х, а правая сторона окна – максимальное значение. Отсчёт координаты Y идёт сверху вниз. Это значит, что верхнее обрамление окна является нулевой точкой Y. При этом заголовок окна (с названием формы и системными кнопками) не входит в пространство окна.

Теперь рисуется линия с помощью метода LineTo(X, Y). В качестве параметров передаются конечные координаты линии. Отрезок будет нарисован, начиная от текущей позиции карандаша, куда был осуществлен переход с помощью метода MoveTo и до координат, указанных при вызове метода LineTo.

После прорисовки первой линии, мы выбираем следующий стиль и перемещаемся в позицию на 20 пикселей ниже уже нарисованной линии и рисую следующую линию.

3. Свойства кисти.

За параметры кисти отвечает свойство Brush объекта TCanvas. Кисть используется для закраски замкнутых пространств. Она тоже имеет объектный тип как и карандаш, а значит обладает своими свойствами и методами.

У объекта кисти TBrush есть несколько свойств влияющих на параметры кисти:

Bitmap – картинка, которая будет использоваться в качестве фона закраски. Картинка должны быть формата 8х8 пикселей. Если будет больше, то задействованы будут только пиксели верхнего левого квадрата 8х8.

Color – так же как и у карандаша, у кисти тоже может быть свой цвет.

Handle – такой же указатель, как и у карандаша, но на кисть.

Style – стиль фона. Здесь могут быть следующие значения: bsSolid, bsClear, bsHorizontal, bsVertical, bsFDiagonal, bsBDiagonal, bsCross, bsDiagCross. На рисунке 3 можно увидеть графическое отображение каждого из стилей.

Рисунок 3.  Стили фона

4. Пример использования объекта Canvas.

Пример 1. Паутинка (рис. 4).

Рисунок 4. Паутинка.

Листинг.

implementation

{$R *.dfm}

procedure TForm1.FormPaint(Sender: TObject);

begin

Canvas.Pen.Width:=2;

Canvas.Pen.Color:=clRed;

Canvas.MoveTo(10,10);

Canvas.LineTo(210,210);

Canvas.MoveTo(60,10);

Canvas.LineTo(160,210);

Canvas.MoveTo(110,10);

Canvas.LineTo(110,210);

Canvas.MoveTo(160,10);

Canvas.LineTo(60,210);

Canvas.MoveTo(210,10);

Canvas.LineTo(10,210);

Canvas.MoveTo(210,60);

Canvas.LineTo(10,160);

Canvas.MoveTo(210,110);

Canvas.LineTo(10,110);

Canvas.MoveTo(210,160);

Canvas.LineTo(10,60);

Canvas.Pen.Color:=clBlue;

Canvas.MoveTo(30,30);

Canvas.LineTo(110,20);

Canvas.MoveTo(110,20);

Canvas.LineTo(190,30);

Canvas.MoveTo(190,30);

Canvas.LineTo(200,110);

Canvas.MoveTo(200,110);

Canvas.LineTo(190,190);

Canvas.MoveTo(190,190);

Canvas.LineTo(110,200);

Canvas.MoveTo(110,200);

Canvas.LineTo(30,190);

Canvas.MoveTo(30,190);

Canvas.LineTo(20,110);

Canvas.MoveTo(20,110);

Canvas.LineTo(30,30);

Canvas.MoveTo(50,50);

Canvas.LineTo(110,40);

Canvas.MoveTo(110,40);

Canvas.LineTo(170,50);

Canvas.MoveTo(170,50);

Canvas.LineTo(180,110);

Canvas.MoveTo(180,110);

Canvas.LineTo(170,170);

Canvas.MoveTo(170,170);

Canvas.LineTo(110,180);

Canvas.MoveTo(110,180);

Canvas.LineTo(50,170);

Canvas.MoveTo(50,170);

Canvas.LineTo(40,110);

Canvas.MoveTo(40,110);

Canvas.LineTo(50,50);

Canvas.MoveTo(70,70);

Canvas.LineTo(110,60);

Canvas.MoveTo(110,60);

Canvas.LineTo(150,70);

Canvas.MoveTo(150,70);

Canvas.LineTo(160,110);

Canvas.MoveTo(160,110);

Canvas.LineTo(150,150);

Canvas.MoveTo(150,150);

Canvas.LineTo(110,160);

Canvas.MoveTo(110,160);

Canvas.LineTo(70,150);

Canvas.MoveTo(70,150);

Canvas.LineTo(60,110);

Canvas.MoveTo(60,110);

Canvas.LineTo(70,70);

Canvas.MoveTo(90,90);

Canvas.LineTo(110,80);

Canvas.MoveTo(110,80);

Canvas.LineTo(130,90);

Canvas.MoveTo(130,90);

Canvas.LineTo(140,110);

Canvas.MoveTo(140,110);

Canvas.LineTo(130,130);

Canvas.MoveTo(130,130);

Canvas.LineTo(110,140);

Canvas.MoveTo(110,140);

Canvas.LineTo(90,130);

Canvas.MoveTo(90,130);

Canvas.LineTo(80,110);

Canvas.MoveTo(80,110);

Canvas.LineTo(90,90);

Canvas.Brush.Color:=clYellow;

Canvas.Ellipse(100,100,120,120);

end;

end.

Пример 2. Домик в ночи (рис. 5).

Рисунок 5. Домик в ночи.

Листинг.

implementation

{$R *.dfm}

procedure TForm1.FormPaint(Sender: TObject);

var p:array[1..4] of TPoint;

begin

//стены

Canvas.Pen.Width:=2;

Canvas.Brush.Color:=clOlive;

Canvas.Rectangle(100,200,340,400);

Canvas.Brush.Color:=clNavy;

Canvas.Rectangle(200,140,240,200);

Canvas.Brush.Color:=clBlue;

Canvas.Rectangle(120,240,220,340);

Canvas.Brush.Color:=clWhite;

Canvas.Rectangle(130,250,160,280);

Canvas.Rectangle(180,250,210,280);

Canvas.Rectangle(130,290,210,330);

Canvas.Brush.Color:=clLime;

Canvas.Rectangle(240,280,320,400);

Canvas.Brush.Color:=clBlack;

Canvas.Rectangle(300,340,310,360);

//крыша

Canvas.Brush.Color:=clMaroon;

p[1].X:=100; p[1].Y:=200;

p[2].X:=220; p[2].Y:=60;

p[3].X:=340; p[3].Y:=200;

p[4].X:=100; p[4].Y:=200;

Canvas.Polygon(p);

Canvas.Brush.Color:=clNavy;

Canvas.Rectangle(200,140,240,200);

//Забор

Canvas.Brush.Color:=clGreen;

Canvas.Rectangle(60,300,100,400);

Canvas.Rectangle(20,300,60,400);

Canvas.Rectangle(340,300,380,400);

Canvas.Rectangle(380,300,420,400);

Canvas.Rectangle(420,300,460,400);

Canvas.Rectangle(460,300,500,400);

p[1].X:=20; p[1].Y:=300;

p[2].X:=40; p[2].Y:=260;

p[3].X:=60; p[3].Y:=300;

p[4].X:=20; p[4].Y:=300;

Canvas.Polygon(p);

p[1].X:=60; p[1].Y:=300;

p[2].X:=80; p[2].Y:=260;

p[3].X:=100; p[3].Y:=300;

p[4].X:=60; p[4].Y:=300;

Canvas.Polygon(p);

p[1].X:=340; p[1].Y:=300;

p[2].X:=360; p[2].Y:=260;

p[3].X:=380; p[3].Y:=300;

p[4].X:=340; p[4].Y:=300;

Canvas.Polygon(p);

p[1].X:=380; p[1].Y:=300;

p[2].X:=400; p[2].Y:=260;

p[3].X:=420; p[3].Y:=300;

p[4].X:=380; p[4].Y:=300;

Canvas.Polygon(p);

p[1].X:=420; p[1].Y:=300;

p[2].X:=440; p[2].Y:=260;

p[3].X:=460; p[3].Y:=300;

p[4].X:=420; p[4].Y:=300;

Canvas.Polygon(p);

p[1].X:=460; p[1].Y:=300;

p[2].X:=480; p[2].Y:=260;

p[3].X:=500; p[3].Y:=300;

p[4].X:=460; p[4].Y:=300;

Canvas.Polygon(p);

//луна

Canvas.Brush.Color:=clYellow;

Canvas.Ellipse(400,20,480,100);

end;

Список используемых источников.

1. Архангельский А.Я. «Приемы программирования в Delphi».: Издательство «Бином-Пресс» 2006г. -944 стр. –ISBN 5-9518-0145-1

2. С.И. Бобровский «Delphi 7 Учебный курс».: Издательство «Питер» 2004. - 736 с. – ISBN 5-8046-0086-9

3.Г.В. Галисеев «Компоненты в Delphi 7».: Издательство «Вильямс» 2004г. - 624стр. –ISBN 5-8459-0555-9

4. А. Шкрыль «Delphi.Народные советы».: Издательство BHV-СПБ 2007г. – 400стр. – ISBN 5-9775-0047-5

5. Культин Н.Б. «Основы программирования в Delphi 7».: Издательство BHV –

СПБ. 2008г. - 480 с. –ISBN 978-5-9775-0235-1

6. Культин Н.Б. Программирование на Object Pascal в Delphi 5.Самоучитель.:Издательство BHV-СПБ. - 464стр. –ISBN 5-8206-0079-7

7. Лабзина Т.А. Алгоритмические языки и программирование Юнита 5. Издательство НОУ СГУ, 1999.

8. Е.Марков «Программирование в Delphi 7».Издательство BHV-СПБ. 2003г. -784стр. –ISBN 5-94157-116-X

9. В.Кадлец «Delphi.Книга рецептов.Практические примеры, трюки и секреты».: Издательство «Наука и техника». 2006г. – 384стр. – ISBN 80-251-0017-0

10. Фаронов В.В. «Delphi 2005. Разработка приложений для баз данных и Интернета».: Издательство «Питер». 2006г. – 608стр. – ISBN 5-469-01191-7

СОДЕРЖАНИЕ

Введение	3
1. Общая характеристика компонента Edit.	4
2. Основные свойства компонента Edit.	4
3. Основные события компонента Edit.	6
4. Основные методы компонента Edit.	6
5. Функции вывода InputBox, ShowMessage, MessageDlg.	6
6. Маскированная строка MaskEdit.	9
7. Примеры работы с компонентом Edit.	10
Список используемых источников.	14

Введение

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

Первый объектно-ориентированный язык программирования Simula 67 был разработан в конце 60-х годов в Норвегии. Авторы этого языка очень точно угадали перспективы развития программирования: их язык намного опередил свое время. Однако современники (программисты 60-х годов) оказались не готовы воспринять ценности языка Simula 67, и он не выдержал конкуренции с другими языками программирования (прежде всего, с языком Fortran).

Но достоинства языка Simula 67 были замечены некоторыми программистами, и в 70-е годы было разработано большое число экспериментальных объектно-ориентированных языков программирования: например, языки CLU, Alphard, Concurrent Pascal и др. Эти языки так и остались экспериментальными, но в результате их исследования были разработаны современные объектно-ориентированные языки программирования: C++, Smalltalk, Delphi и др.

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

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

Каждая последующая версия Delphi дополняла предыдущую.

Большинство версий Delphi выпускается в нескольких вариантах: Standart – стандартном, Professional – профессиональном, Client/Server – клиент/сервер, Enterprise – разработка баз данных предметных областей. Различаются варианты в основном разным уровнем доступа к системам управления базами данных. Последние варианты - Client/Server и Enterprise, в этом отношении наиболее мощные.

Цель контрольной работы: изучение свойств, событий и методов компонента Edit, а также разработка ряда примеров работы с этим компонентом.

1. Общая характеристика компонента Edit.

Компонент Edit представляет собой однострочное текстовое поле, служащее для ввода данных пользователем. На палитре компонентов он расположен 5-м слева, в виде кнопки с буквами «ab» (рис.1).

Рисунок 1. Компонент Edit

На форме компонент выглядит как область для ввода текста (рис.2).

Рисунок 2. Компонент Edit на форме

2. Основные свойства компонента Edit.

1) Name - Имя компонента. Используется в программе для доступа к компоненту и его свойствам.

2) Text - Отображаемый текст.

3) Left - Расстояние от левой границы компонента до левой границы формы.

4) Top - Расстояние от верхней границы компонента до верхней границы формы.

5) Height - Высота компонента. Например, при значении свойства Height=55, компонент будет выглядеть как показано на рисунке 3.

Рисунок 3. Значение свойства Height=55

6) Width - Ширина поля вывода. Например, при значении свойства Width=340, компонент будет выглядеть как показано на рисунке 4.

Рисунок 4. Значение свойства Width=340

7) AutoSize - Признак того, что размер поля ввода определяется его содержимым.

8) Font - Шрифт, используемый для отображения текста. Уточняющие свойства определяют способ начертания символов (Font. Naitie), размер (Font. Size) и цвет символов(Font.Color). На рисунке 5 показано применение свойств Font.Size=22 и Font.Color= clMaroon.

Рисунок 5. Применение свойства Font.

9) ParentFont - Признак наследования компонентом характеристик шрифта формы, на которой находится компонент. Если значение свойства равно True, то текст выводится шрифтом, установленным для формы.

10) Color - Цвет фона области вывода текста. Например, при значении свойства Color= clYellow, компонент будет выглядеть как показано на рисунке 6.

Рисунок 6. Применение свойства Color.

11) Visible - Позволяет скрыть текст (False) или сделать его видимым (True).

3. Основные события компонента Edit.

1) OnClick – Щелчок по компоненту.

2) OnDbClick – Двойной щелчок по компоненту.

3) OnMouseDown - Возникает при нажатии на кнопку мыши.

4) OnMouseUp - Возникает при отпускании кнопки мыши.

5) OnMouseMove - Возникает при перемещении курсора мыши над компонентом.

4. Основные методы компонента Edit.

1) Hide – скрытие.

2) Refresh - обновление

5. Функции вывода InputBox, ShowMessage, MessageDlg.

Функция InputBox(). Функция InputBox() позволяет вводить данные с помощью диалоговой панели ввода. Аргументами этой функции являются три строки, а значением функции является строка по умолчанию или строка, введенная пользователем. Синтаксис функции следующий:

Переменная := InputBox('Заголовок', 'Подсказка', ['ЗначениеПоУмолчанию'])

В процессе выполнения этой функции появляется диалоговое окно с текстовым полем (рис.7):

Ø в строке заголовка панели будет печататься значение первого аргумента 'Заголовок';

Ø на самой панели печатается значение второго аргумента 'Подсказка';

Ø в текстовом поле печатается значение аргумента 'ЗначениеПоУмолчанию' (если это значение отсутствует, содержимое текстового окна также отсутствует).

Рисунок 7. Диалоговое окно функции InputBox

Если пользователь щелкнет по кнопке ОК, то значением функции станет строка, введенная пользователем в текстовом поле. Если пользователь щелкнет по кнопке Cancel, то значением функции станет строка 'ЗначениеПоУмолчанию'.

Функция MessageDlg(). Функция MessageDlg() позволяет выводить сообщения не на форме, а на специальной панели сообщений, на которой можно разместить определенный набор кнопок и информационный значок о типе сообщения. Кроме того, функция MessageDlg() получает определенное значение, которое может быть присвоено целочисленной переменной. Синтаксис функции следующий:

Переменная := MessageDlg('Сообщение',Тип,[Кнопки],Справка)

Аргумент 'Сообщение' выводится на окно сообщений.

Аргумент Тип задается именованной константой и определяет вид информационного значка, который помещается на окно сообщений (таб.1).

Таблица 1. Константы, задающие тип панели сообщений

Аргумент Кнопки задается набором именованных констант, разделенных запятыми и заключенными в квадратные кнопки, и определяет набор кнопок, размещаемых на панели (таб.2).

Таблица 2. Константы, определяющие набор кнопок на панели сообщений

Аргумент Справка - параметр, определяющий раздел справочной системы, который вызывается нажатием клавиши {F1}. Если вывод справки не предусмотрен, то значение аргумента Справка должно быть равно 0. Например, если функции задать аргументы MessageDlg('Сообщение',MtWarning,mbYesNoCancel,0), то будет выведена следующая окно сообщений (рис.8):

Рисунок 8. Диалоговое окно сообщений функции MessageDlg()

Нажатие на кнопку приводит к вычислению значения функции, которое зависит от нажатой кнопки. Значение, возвращаемое функцией MessageDlg(), позволяет определить, какая из кнопок была нажата (таб.3).

Таблица 3. Значения функции MessageDlg()

Функция ShowMessage().У неё только один параметр - текст сообщения.

ShowMessage('Сообщение');

Эта функция используется для вывода простых сообщений, которые не требуют ответа от пользователя (типа Yes, No и т. д.).

6. Маскированная строка MaskEdit.

Компонент MaskEdit отличается от Edit тем, что в нем можно задать строку маски в свойстве EditMask. Маска состоит из трех разделов, между которыми ставится точка с запятой (;). В первом разделе — шаблоне записываются специальным образом символы (таб.4), которые можно вводить в каждой позиции, и символы, добавляемые самой маской; во втором разделе записывается 1 или 0 в зависимости от того, надо или нет, чтобы символы, добавляемые маской, включались в свойство Text компонента; в третьем разделе указывается символ, используемый для обозначения позиций, в которых еще не осуществлен ввод. Прочитать результат ввода можно или в свойстве Text, которое в зависимости от вида второго раздела маски включает или не включает в себя символы маски, или в свойстве EditText, содержащем введенный текст вместе с символами маски.

Таблица 4. Символы шаблона маски.

!	Наличие символа «!» означает, что в EditText недостающие символы предваряются пробелами, а отсутствие символа «!» означает, что пробелы размещаются в конце.
>	Символ «>» означает, что все последующие за ним символы должны вводиться в верхнем регистре, пока не кончится маска или пока не встретится символ «<».
<	Символ «<» означает, что все последующие за ним символы должны вводиться в нижнем регистре, пока не кончится маска или пока не встретится символ «>».
<>	Символы «<>» означают, что анализ регистра не производится.
\	Символ «\» означает, что следующий за ним символ является буквенным, а не специальным, характерным для маски. Например, символ «>» после символа «\» воспримется как знак >, а не как символ, указывающий на верхний регистр.
L	Символ «L» означает, что в данной позиции должна бытъ буква.
l	Символ «l» означает, что в данной позиции может быть только буква или ничего.
A	Символ «А» означает, что в данной позиции должна быть буква или цифра.
a	Символ «а» означает, что в данной позиции может быть буква, или цифра, или ничего.
C	Символ «С» означает, что в данной позиции должен быть любой символ.
c	Символ «с» означает, что в данной позиции может быть любой символ или ничего.
0	Символ «0» означает, что в данной позиции должна быть цифра.
9	Символ «9» означает, что в данной позиции может быть цифра или ничего.
#	Символ «#» означает, что в данной позиции может быть цифра, знак «+», знак «-» или ничего.
:	Символ «:» используется для разделения часов, минут и секунд.
/	Символ «/» используется для разделения месяцев, дней и годов в датах.

7. Примеры работы с компонентом Edit.

Пример 1. На форме размещен компонент Edit и кнопка Button (рис. 9). Написать программу, которая позволяет отображать содержимое компонента Edit в заголовке формы и выводит об этом сообщение на экран (рис. 10).

Рисунок 9. Внешний вид формы

Рисунок 8. Пример работы приложения

Листинг.

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

Form1.Caption:=Edit1.Text;

Edit1.Text:='';

Edit1.SetFocus;

ShowMessage('Это сообщение отобразилось в заголовке формы');

end;

end.

Пример 2. Написать программу, которая определяет размер предоставляемой скидки. Ответ выводится в компонент Edit. Программа должна быть спроектирована таким образом, что при запуске кнопка Показать размер скидки недоступна. Она становится доступной после ввода стоимости покупки и нажатия клавиши Enter. Скидка 1% предоставляется, если сумма покупки больше 300 тенге, 2% - если сумма больше 500 тенге, 3% - если сумма больше 1000. Если стоимость покупки меньше 300 тенге, то в поле Edit выводится сообщение о том, что скидка не предоставляется. Рекомендуемый вид формы приведён на рисунке (рис.9, 10).

Рисунок 9. Внешний вид формы

Рисунок 10. Пример работы приложения.

Листинг.

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

stoim:real;

begin

stoim:=StrToFloat(Edit1.Text);

if (stoim>300) and (stoim<500) then

Edit2.Text:='Скидка 1%';

if (stoim>500) and (stoim<1000) then

Edit2.Text:='Скидка 2%';

if stoim>1000 then

Edit2.Text:='Скидка 3%';

if stoim<300 then

Edit2.Text:='Скидка не предоставляется';

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

Edit1.Text:=' ';

Edit2.Text:=' ';

Button1.Enabled:=false;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Form1.Close

end;

end.

Список используемых источников.

1. Архангельский А.Я. «Приемы программирования в Delphi».: Издательство «Бином-Пресс» 2006г. -944 стр. –ISBN 5-9518-0145-1

2. С.И. Бобровский «Delphi 7 Учебный курс».: Издательство «Питер» 2004. - 736 с. – ISBN 5-8046-0086-9

3.Г.В. Галисеев «Компоненты в Delphi 7».: Издательство «Вильямс» 2004г. - 624стр. –ISBN 5-8459-0555-9

4. А. Шкрыль «Delphi.Народные советы».: Издательство BHV-СПБ 2007г. – 400стр. – ISBN 5-9775-0047-5

5. Культин Н.Б. «Основы программирования в Delphi 7».: Издательство BHV –

СПБ. 2008г. - 480 с. –ISBN 978-5-9775-0235-1

6. Культин Н.Б. Программирование на Object Pascal в Delphi 5.Самоучитель.:Издательство BHV-СПБ. - 464стр. –ISBN 5-8206-0079-7

7. Лабзина Т.А. Алгоритмические языки и программирование Юнита 5. Издательство НОУ СГУ, 1999.

8. Е.Марков «Программирование в Delphi 7».Издательство BHV-СПБ. 2003г. -784стр. –ISBN 5-94157-116-X

9. В.Кадлец «Delphi.Книга рецептов.Практические примеры, трюки и секреты».: Издательство «Наука и техника». 2006г. – 384стр. – ISBN 80-251-0017-0

10. Фаронов В.В. «Delphi 2005. Разработка приложений для баз данных и Интернета».: Издательство «Питер». 2006г. – 608стр. – ISBN 5-469-01191-7

СОДЕРЖАНИЕ

Введение	3
1. Общая характеристика формы.	4
2. Основные свойства формы.	4
3. Основные методы и события формы.	10
4. Создание, сохранение и открытия проекта.	11
5. Примеры работы с компонентом Label.	16
Список используемых источников.	18

Введение

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

У формы достаточно много свойств. Первоначально Delphi устанавливает свойства формы в значения по умолчанию. Изменить свойства формы можно в процессе проектирования (в Инспекторе объектов) или во время выполнения приложения. Динамическое изменение свойств осуществляется программно, путём внесения в исходный текст программы соответствующих операторов.

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

Цель контрольной работы: изучение свойств, событий и методов формы, а также разработка ряда примеров работы с формой.

1. Общая характеристика формы.

Основная форма – это окно будущей программы (рис.1). Здесь можно располагать визуальные компоненты в любом виде и порядке.

Рисунок 1. Основная форма

2. Основные свойства формы.

ActiveControl - Указывает на компонент, который должен быть активным по умолчанию.

Align - Выравнивание компонента. Любой компонент может быть выровнен по одной из сторон родительского компонента. Этому свойству можно присвоить следующие значения:

alNone – нет выравнивания.

alBottom – выравнивание по нижнему краю.

alLeft - выравнивание по левому краю.

AlRight - выравнивание по правому краю.

AlTop - выравнивание по верхнему краю.

Компоненты выравниваются относительно формы, а форма выравнивается относительно окна.

AlphaBlend - Тип свойства – логический. Свойство формы.

Означает, имеет ли форма прозрачность. Если это свойство равно true, то окно будет прозрачным. Степень прозрачности задаётся через свойство AlphaBlendValue. ВНИМАНИЕ!!! Прозрачность работает не на всех системах.

AlphaBlendValue - Тип свойства – целое число. Степень прозрачности формы. Здесь можно задавать числовое значение степени прозрачности от 0 до 255. Если поставишь 0, то форма будет абсолютно прозрачной. 255 означает полную непрозрачность. Чтобы сделать форму полупрозрачной, нужно выставить какое-нибудь промежуточное значение (можно 127).

Anchors - Это свойство есть и у формы и у компонентов. Оно показывает, как происходит закрепление к родительскому объекту. Это свойство раскрывающееся. Если ты щелкнешь по квадрату слева от имени свойства, то раскроется список из четырёх дополнительных свойств:

akLeft – прикреплять левый край (по умолчанию true).

akTop – прикреплять верхний край (по умолчанию true).

akRight – прикреплять правый край (по умолчанию flase).

akBottom – прикреплять нижний край (по умолчанию false).

По умолчанию прикрепление происходит по левому и верхнему краю.

AutoScroll - Тип свойства – логический. Будет ли форма автоматически производить скроллинг, или нет.

AutoSize - Тип свойства – логический. Должны ли компоненты на форме автоматически корректировать размеры.

BorderIcons - Свойство определяющее, какие кнопки должны присутствовать у окна (рис.2).

Это свойство раскрывающееся. Если ты щелкнешь по квадрату слева от имени свойства, то раскроется список из четырёх свойств:

·          biSystemMenu – показать меню (иконка слева в строке заголовка окна) и другие кнопки заголовка окна.

·          biMinimize – кнопка минимизации окна.

·          biMaximize – кнопка максимизации окна.

Рисунок 2. Определение свойства BorderIcons

·          biHelp – кнопка помощи.

BorderStyle – Свойство формы. Отвечает за вид оборки окна. Это свойство может принимать следующие значения.

·          bsSizeable – установлено по умолчанию. Стандартное окно, с нормальной оборкой, которое может изменять свои размеры.

·          bsDialog – окно выглядит в виде диалога.

·          bsNone – окно вообще без оборки.

·          bsSingle – На первый взгляд это простое окно, а если попробовать изменить его размеры, то можно получить облом. Это окно с фиксированным размером и изменять его мышкой нельзя. Изменить размер можно только кнопкой Maximize.

·          bsSizeToolWin – окно с тонкой оборкой. Особенно это заметно в заголовке окна.

·          bsToolWindow – я не буду приводить скрин этого окна, потому что он ничем не отличается от предыдущего. Единственная разница – у этого окна нельзя изменять размеры окна.

BorderWidth – ширина оборки окна. Пока что все окна, которые мы рассматривали, имели ширину оборки равную нулю.

Caption – это строковое свойство, которое отвечает за заголовок окна. Мы уже использовали его, когда писали программу «Hello World».

ClientHeight – это свойство в виде целого числа показывает высоту клиентской области окна. Это высота без учёта ширины оборки и системного меню, только рабочая область.

ClientWidth - это свойство в виде целого числа показывает ширину клиентской области окна. Это ширина без учёта ширины оборки и системного меню, только рабочая область.

Color – цвет клиентской области окна.

В списке выбора есть все системные цвета, которые мы можем выбрать. Но если ты хочешь использовать какой-то специфичный цвет, то можешь дважды щёлкнуть по этому параметру, и перед тобой откроется стандартное окно выбора цвета:

Constraints – в этом свойстве содержатся максимальные значения размеров окна.

MaxHeight – максимальная высота окна.

MaxWidth – максимальная ширина окна.

MinHeight – минимальная высота окна.

MinWidth – минимальная ширина окна.

Если установить эти значения, то окно нельзя будет растянуть больше максимального размера и уменьшить меньше минимального.

Ctl3D – Тип свойства – логический. Оно указывает - показывать окно/компонент в псевдо 3D плоскости или нет. Этот параметр остался ещё от Windows 3.1, когда он действительно имел смысл. Сейчас даже если отключить 3D, окно сильно не изменится. Поэтому про это свойство можно забыть.

Cursor – это свойство отвечает за курсор, который будет отображаться при наведении мышкой на форму/компонент.

DockSite - Тип свойства – логический. Указывает, можно ли на форму/компонент бросать другие компоненты с помощью Drag&Drop. Это свойство создаёт эффект, который мы могли наблюдать в MS Office, когда панели инструментов можно отрывать от формы и прикреплять обратно. Вот это свойство как раз и разрешает прикреплять компоненты.

DragKind – вид перетаскивания объекта при Drag&Drop. Здесь доступны два варианта:

·          dkDrag – стандартный Drag&Drop при котором объект остаётся на месте.

·          dkDock – перетаскивать сам объект. Этот параметр следует выбрать, если нужно чтобы компонент мог прикрепляться к другим компонентам или форме.

DragMode – режим Drag&Drop. Здесь доступны два варианта:

·          dmManual – ручной режим. При таком режиме мы сами должны запускать перетаскивание объекта.

·          dmAutomatic – режим Draq&Drop будет включатся автоматически, если пользователь начал тащить мышкой компонент. При этом не нужно писать дополнительный код, как при ручном режиме.

Enabled – Тип свойства – логический. Доступность компонента. Если это свойство равно true, то пользователь может работать с этим компонентом. Иначе компонент недоступен и окрашен серым цветом (рис.3).

Рисунок 3. Установка свойства Enabled

Font – шрифт используемый при выводе текста на форме. Если дважды щёлкнешь по этой строке, то появится стандартное окно Windows выбора шрифта (рис.4):

Рисунок 4. Окно шрифт

FormStyle - Стиль формы. Здесь доступны для выбора следующие варианты

·          fsNormal – нормальное окно.

·          fsMDIForm – Окно является родительским для MDI окон. Если вспомнить старый Office, то там внутри основного окна можно было перемещать другие окна. Это окна относятся к классу MDI – мультидокументные окна. Хотя Microsoft не рекомендует использовать MDI окна и вроде как сама отказалась от их использования, а в Windows 2000 консоль MMC выполнена именно так (рис.5):

Рисунок 5. Окно консоли

·          fsMDIChild – окно является дочерним MDI окном. fsMDIForm – создаёт главное окно, а fsMDIChild создаёт дочернее, то есть то окно, которое будет внутри главного.

ВНИМАНИЕ!!! – главное окно не может быть такого типа.

fsStayOnTop – Окно с этим параметром будет находиться всегда поверх остальных.

Height – Тип свойства – целое число, высота окна.

Hint – текст подсказки, который будет появляться в строке состояния при наведении мышкой на форму/компонент.

HorzScrollBar – параметры горизонтальной полосы прокрутки.

Icon – иконка отображающаяся в заголовке окна. Если дважды щёлкнуть по этому свойству, то появится окно загрузки иконки (рис.6).

Рисунок 6. Окно загрузки иконки

В этом окне есть следующие кнопки:

·          Load – загрузить иконку из файла.

·          Save – сохранить иконку в файл.

·          Copy – копировать иконку в буфер обмена.

·          Paste – вставить иконку из буфер обмена.

·          Clear – очистить текущую иконку.

Left – Тип свойства – целое число, левая позиция окна.

Menu – меню, которое используется в главном окне.

Name – имя формы/компонента. Какое имя мы здесь введём, так и будет называться объект, отвечающий за эту форму/компонент (только в начале добавится буква T).

Старайтесь давать формам/компонентам понятные имена. Так легче будет понять, для чего они предназначены. Удобней будет работать с компонентом, если у него имя будет ExitButton или NewFileButton, а не просто Button1 и Button2.

ParentFont – Тип свойства – логический. Если это свойство равно true, то для вывода текста будет использоваться тот же шрифт, что и у родительского объекта. Иначе используется тот, что укажем мы.

Position – Позиция окна при старте приложения. Здесь доступны следующие варианты:

• poDefault – Windows сам будет решать, где расположить окно и какие будут его размеры.
• poDefaultPosOnly - Windows сам будет решать только где расположить окно, а размеры его будут такими, какими установим в свойствах.
• poDefaultSizeOnly - Windows будет решать только какими будут размеры окна, а позиция будет такая, какую укажем в свойствах.
• poDesigned – И размер, и позиция будут такими, какими мы укажем в свойствах.
• poDesktopCenter – окно будет располагаться по центру рабочего стола.
• poMainFormCenter – окно будет располагаться по центру основной формы.
• poOwnerFormCenter – окно будет располагаться по окна владельца. То есть того окна, которое вызвало это.
• poScreenCenter - окно будет располагаться по центру экрана.

ShowHint – Тип свойства – логический. Оно показывает - нужно ли показывать подсказки.

Tag – это свойство имеет тип – целое число. Оно ни на что не влияет и мы можем его использовать в своих целях.

Top – Тип свойства – целое число, верхняя позиция окна.

TransparentColor – Тип свойства – логический. Является ли форма или компонент прозрачным. В отличии от AlphaBlend, эта прозрачность работает всегда. Зато нельзя сделать полупрозрачные формы и компоненты.

TransparentColorValue - прозрачный цвет.

VertScrollBar – Вертикальная полоса прокрутки. Она имеет те же параметры, что и горизонтальная и мы рассмотрим её отдельно.

Visible - Тип свойства – логический. Если оно равно true, то форма/компонент видимые. Иначе форма/компонент невидим.

Width - Тип свойства – целое число. Ширина окна.

WindowState – состояние окна после запуска. Тебе доступны следующие параметры:

·          wsNormal – окно показывается в нормальном состоянии.

·          wsMaximized - окно показывается максимизированным.

·          wsMinimized - окно показывается минимизированным.

3. Основные методы и события формы.

Событие OnCreate происходит при создании формы. В обработчике этого события обычно устанавливают начальные значения для свойств формы и помещённых на неё компонентов, запрашивают у Windows необходимые ресурсы и выполняют другие действия, которые следует совершить до вывода формы на экран.

Событие OnShow происходит после того, как форма была создана, но перед тем, как она становится видимой.

Событие OnActivate происходит, когда пользователь переключается на форму, например при щелчке по форме мышью. Событие OnDeactivate наступает, когда форма теряет активность.

Событие OnHide происходит перед тем, как форма становится невидимой.

Событие OnCloseQuery наступает при попытке закрыть форму. Действие задаётся пользователем (кнопка Close) или программно (вызван метод Close). В   обработчик    события    передаётся     булевский   параметр   CanClose, разрешающий или запрещающий действительное закрытие формы.

Событие OnClose происходит после OnCloseQuery, непосредственно перед закрытием формы.

Событие OnDestroy происходит при разрушении формы. Обработчик этого события освобождает ресурсы и выполняет заданные действия до того, как форма будет разрушена.

4. Создание, сохранение и открытия проекта.

При старте Delphi автоматически создается новый проект. Это сделано для удобства. Если необходимо создать новый проект, не перегружая Delphi, просто нужно выполнить команду меню File|New Application. В результате старый проект будет закрыт, а вместо него создан новый. В новый проект Delphi всегда помещает чистую форму.

В процессе разработки приложения вы добавляете на форму компоненты, пишете обработчики событий, добавляете в проект дочерние формы, в общем, проектируете приложение. Когда что-то уже сделано, имеет смысл сохранить проект. Для этого необходимо выполнить команду главного меню File|Save All. Среда запросит сначала имя для программного модуля с формой, а затем имя для проекта (кстати, вы уже сохраняли файл в первой главе). Если файл с введенным именем уже есть на диске, Delphi скажет вам об этом и попросит подтвердить перезапись файла или ввести другое имя.

Если вдруг понадобится заменить имя проекта на другое, воспользуйтесь командой меню File|Save Project As.... Если же нужно заменить имя модуля, воспользуйтесь командой File|Save As.... Операции эти ентарны и не требуют дальнейших пояснений.

Для открытия в Delphi ранее сохраненного на диске проекта достаточно выполнить команду главного меню File|0pen.... На экране появится окно диалога, где вы должны указать или выбрать из представленного списка каталог и имя загружаемого проекта (с расширением DPR).

C загруженным проектом можно делать что угодно — исправить, сохранить, компилировать, выполнить.

ОКНО PROJECT MANAGER

При создании более или менее сложного приложения программист всегда должен знать, на какой стадии разработки он находится, иметь представление о составе проекта, уметь быстро активизировать нужный файл, добавить какой-либо новый файл или удалить ненужный, установить параметры проекта и т. д. Для этого в Delphi имеется окно Project Manager (так называемый Менеджер Проекта). Фактически это визуальный инструмент для редактирования главного файла проекта. Он вызывается из меню визуальной среды командой View|Project Manager. После выбора этой команды на экране появится окно со списком форм и программных модулей, составляющих проект (рис.7).

Рисунок 7. Окно менеджера проектов

Окно Менеджера Проекта имеет панель инструментов с шестью кнопками. Их назначение показано на рис.

Отображает диалоговое окно Project Options для установки параметров проекта (см. ниже).

Синхронизирует содержимое окна Менеджера Проекта с исходным текстом DPR-файла.

НАСТРОЙКА ПАРАМЕТРОВ ПРОЕКТА В ОКНЕ PROJECT OPTIONS

Установить параметры проекта можно тремя способами:

• вызвать диалоговое окно Project Options и выставить значения в списке опций;

• присвоить значения директивам в файле опций проекта (DOF-файл);

• задать нужные директивы компилятора непосредственно в исходном тексте программы.

Какой способ выбрать ~ зависит от конкретной задачи. Как вам удобно, так и делайте. По нашему мнению, установить значения параметров проще всего с помощью диалогового окна Project Options. Для его вызова выберите в меню команду Project|0ptions или щелкните на соответствующей кнопке в окне Менеджера Проекта. На экране появится диалоговое окно, вам останется лишь установить в нем нужное значение параметров. Диалоговое окно состоит из нескольких страниц, на них очень много параметров, поэтому мы рассмотрим только те, которые используются наиболее часто.

На странице Forms можно задать главную форму приложения (Main form) и в списке Auto-create forms указать формы, которые будут создаваться одновременно с главной формой (рис. 8).

Рисунок 8. Окно Project Options

На странице Application задаются название (Title) и значок (Icon) приложения, которые будут отображаться в среде Windows на Панели Задач. Здесь же задается имя файла справочника (Help file), который будет вызываться автоматически при нажатии клавиши F1.

На странице Compiler задаются параметры компилятора. Наиболее интересными из них являются параметры Show hints и Show warnings. Включив их, вы будете получать от компилятора интеллектуальные сообщения и предупреждения (рис.  9).

Рисунок 9. Окно Project Options

На странице Linker задаются параметры компоновщика. Здесь следует обратить внимание на параметр Include TDW debug info, управляющий размещением в результирующем ЕХЕ-файле информации для внешнего отладчика Turbo Debugger (он не поставляется в комплекте с Delphi) (рис. 10).

Рисунок 10. Окно Project Options

На странице Directories/Conditionals можно задать каталог выхода (Output directory), в котором будет размещен результирующий ЕХЕ-файл, маршруты (Search path), где следует искать исходные файлы модулей, условные объявления (Conditional defines) для директивы компилятора $IFDEF (рис. 11).

Когда все параметры проекта установлены, можно приступать к его компиляции.

Рисунок 10. Окно Project Options

КОМПИЛЯЦИЯ И СБОРКА ПРОЕКТА

Компиляция может выполняться на любой стадии разработки проекта.

Для выполнения компиляции достаточно выполнить команду меню Project | Compile или нажать комбинацию клавиш Ctrl+ F9. При этом компилируются все исходные модули, содержимое которых изменялось после последней компиляции. В результате для каждого программного модуля создается файл с расширением DCU (сокр. от Delphi Compiled Unit). Затем Delphi компилирует главный файл проекта и компонует (т.е. собирает) из DCU-модулей выполняемый ЕХЕ-файл. Имя ЕХЕ-файла совпадает с именем файла проекта. К сведению профессионалов заметим, что интеллектуальный компоновщик Delphi выбрасывает из ЕХЕ-файла весь неиспользуемый программный код, поэтому не стоит волноваться по поводу лишних объектов, процедур и функций, которые могут содержаться в подключенных модулях.

Кроме обычной компиляции вы еще можете выполнить тотальную компиляцию. Последняя обеспечивает компиляцию абсолютно всех программных модулей проекта, для которых доступны исходные тексты. При этом не важно, вносились в них изменения после предыдущей компиляции или нет. Тотальная компиляция проекта выполняется с помощью команды главного меню Project | Build All. В результате тоже формируется ЕХЕ-файл, но времени на его получение тратится немного больше.

ЗАПУСК ГОТОВОГО ПРИЛОЖЕНИЯ

Когда после множества компиляций вы исправите все ошибки, можно будет посмотреть на результат вашего самоотверженного труда. Для этого надо выполнить созданное приложение с помощью команды меню Run | Run или клавиши F9. Перед выполнением будет автоматически повторен процесс компиляции (если в проект вносились изменения) и после его успешного завершения приложение запустится на выполнение. В результате вы увидите на экране его главную форму.

5. Примеры работы с компонентом Label.

Пример 1. Необходимо создать программу, в которой при нажатии на кнопку «Уменьшить размер» размер формы уменьшался, а при нажатии на кнопку «Восстановить размеры» размеры формы восстанавливались (рис. 11).

Рисунок 11. Внешний вид формы

Листинг.

implementation

{$R *.dfm}

//Щелчок по кнопке "Уменьшить размер"

procedure TForm1.Button1Click(Sender: TObject);

begin

Form1.Width:=round(Form1.Width*0.9);

Form1.Height:=round(Form1.Height*0.9);

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

iWidth:=Form1.Width;

iHeight:=Form1.Height;

end;

//Кнопка "Восстановить размеры"

procedure TForm1.Button2Click(Sender: TObject);

begin

Form1.Width:=iwidth;

Form1.Height:=iheight;

end;

end.

Пример 2. Написать программу, которая в строке имени формы выводит координаты курсора мыши на форме (рис. 12).

Рисунок 11. Фрагмент работы приложения.

Листинг.

implementation

{$R *.dfm}

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

begin

Form1.Caption:=IntToStr(X)+':'+IntToStr(Y)

end;

end.

Список используемых источников.

1. Архангельский А.Я. «Приемы программирования в Delphi».: Издательство «Бином-Пресс» 2006г. -944 стр. –ISBN 5-9518-0145-1

2. С.И. Бобровский «Delphi 7 Учебный курс».: Издательство «Питер» 2004. - 736 с. – ISBN 5-8046-0086-9

3.Г.В. Галисеев «Компоненты в Delphi 7».: Издательство «Вильямс» 2004г. - 624стр. –ISBN 5-8459-0555-9

4. А. Шкрыль «Delphi.Народные советы».: Издательство BHV-СПБ 2007г. – 400стр. – ISBN 5-9775-0047-5

5. Культин Н.Б. «Основы программирования в Delphi 7».: Издательство BHV –

СПБ. 2008г. - 480 с. –ISBN 978-5-9775-0235-1

6. Культин Н.Б. Программирование на Object Pascal в Delphi 5.Самоучитель.:Издательство BHV-СПБ. - 464стр. –ISBN 5-8206-0079-7

7. Лабзина Т.А. Алгоритмические языки и программирование Юнита 5. Издательство НОУ СГУ, 1999.

8. Е.Марков «Программирование в Delphi 7».Издательство BHV-СПБ. 2003г. -784стр. –ISBN 5-94157-116-X

9. В.Кадлец «Delphi.Книга рецептов.Практические примеры, трюки и секреты».: Издательство «Наука и техника». 2006г. – 384стр. – ISBN 80-251-0017-0

10. Фаронов В.В. «Delphi 2005. Разработка приложений для баз данных и Интернета».: Издательство «Питер». 2006г. – 608стр. – ISBN 5-469-01191-7

СОДЕРЖАНИЕ

Введение	3
1. Общая характеристика компонента Label.	4
2. Основные свойства компонента Label.	4
3. Основные события компонента Label.	6
4. Основные методы компонента Label.	7
5. Примеры работы с компонентом Label.	7
Список используемых источников.	11

Введение

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

Программирование одна из самых сложных наук, и объем информации, усваиваемой программистом очень сложно запомнить. Для помощи программистам создаются и разрабатываться приложения, ориентированные на задачи программистов. Они помогают облегчить жизнь начинающему программисту и сэкономить время более опытному программисту; исключают поиск нужной справочной информации в интернете и библиотеках, обеспечивая нужными данными прямо на рабочем месте. Время - главный фактор в работе программиста, от которого зависит заработная плата. Иногда сроки на написание программы очень сжаты, и это не позволяет тратить много времени на поиск информации в книгах и справочниках. Можно использовать поиск в интернете, но еще более упрощает работу программиста справочное приложение. Так же, как и при помощи интернета, программист может найти информацию, не отходя от рабочего места. Преимущество приложения перед интернетом в том, что оно исключает «копание» по сайтам, попадание спама и вирусов в ПК. А попадания вирусов в компьютер может привести к самым нежелательным последствиям.

Цель контрольной работы: изучение свойств, событий и методов компонента Label, а также разработка ряда примеров работы с этим компонентом.

1. Общая характеристика компонента Label.

Надписи, или текстовые метки (Label), часто используются в программах для вывода пояснительной информации. На палитре компонентов он расположен 4-м слева, в виде кнопки с буквой «А» (рис.1).

Рисунок 1. Компонент Label

Текст, помещенный на форму при помощи меток, пользователю нельзя редактировать. Кроме того, такой элемент не может даже получить фокус ввода. Это объясняется тем, что класс TLabel происходит не от оконных элементов интерфейса (TWinControl), а от более легких графических (TGraphicControl).

2. Основные свойства компонента Label.

1) Name - Имя компонента. Используется в программе для доступа к компоненту и его свойствам.

2) Caption - Отображаемый текст.

3) Left - Расстояние от левой границы поля вывода до левой границы формы.

4) Top - Расстояние от верхней границы поля вывода до верхней границы формы.

5) Height - Высота поля вывода. Например, при значении свойства Height=40, компонент будет выглядеть как показано на рисунке 2.

Рисунок 2. Значение свойства Height=40

6) Width - Ширина поля вывода. Например, при значении свойства Width=120, компонент будет выглядеть как показано на рисунке 3.

Рисунок 3. Значение свойства Width=120

7) AutoSize - Признак того, что размер поля определяется его содержимым.

8) Wordwrap - Признак того, что слова, которые не помещаются в текущей строке, автоматически переносятся на следующую строку (значение свойства AutoSize должно быть False) (рис.4).

Рисунок 4. Применение свойства Wordwrap=true

9) Alignment - Задает способ выравнивания текста внутри поля. Текст может быть выравнен по левому краю (taLeftJustify), по центру (taCenter) или по правому краю (taRightJustify).

10) Font - Шрифт, используемый для отображения текста. Уточняющие свойства определяют способ начертания символов (Font. Naitie), размер (Font. Size) и цвет символов(Font.Color). На рисунке 5 показано применение свойств Font.Size=15 и Font.Color= clNavy.

Рисунок 5. Применение свойства Font.

11) ParentFont - Признак наследования компонентом характеристик шрифта формы, на которой находится компонент. Если значение свойства равно True, то текст выво¬дится шрифтом, установленным для формы.

12) Color - Цвет фона области вывода текста. Например, при значении свойства Color= clTeal, компонент будет выглядеть как показано на рисунке 6.

Рисунок 6. Применение свойства Color.

13) Transparent - Управляет отображением фона области вывода текста. Значение True делает область вывода текста прозрачной (область вывода не закрашивается цветом, заданным свойством Color).

14) Visible - Позволяет скрыть текст (False) или сделать его видимым (True).

3. Основные события компонента Label.

1) OnClick – Щелчок по компоненту.

2) OnDbClick – Двойной щелчок по компоненту.

3) OnMouseDown - Возникает при нажатии на кнопку мыши.

4) OnMouseUp - Возникает при отпускании кнопки мыши.

5) OnMouseMove - Возникает при перемещении курсора мыши над компонентом.

4. Основные методы компонента Label.

1) Hide – скрытие.

2) Refresh - обновление

5. Примеры работы с компонентом Label.

Пример 1. На форме размещен главный компонент Label: «Указатель цвета» и 5 компонентов Label, закрашенных разными цветами (рис. 7).

Рисунок 7. Внешний вид формы

При щелчке на любом цветном компоненте Label название цвета появится в главном компоненте: «Указатель цвета» (рис. 8).

Рисунок 8. Нажатие на зеленый компонент Label

Листинг.

implementation

{$R *.dfm}

procedure TForm1.Label2Click(Sender: TObject);

begin

Label6.Caption:='Это синий цвет';

end;

procedure TForm1.Label1Click(Sender: TObject);

begin

Label6.Caption:='Это красный цвет';

end;

procedure TForm1.Label3Click(Sender: TObject);

begin

Label6.Caption:='Это зеленый цвет';

end;

procedure TForm1.Label4Click(Sender: TObject);

begin

Label6.Caption:='Это желтый цвет';

end;

procedure TForm1.Label5Click(Sender: TObject);

begin

Label6.Caption:='Это черный цвет'

end;

end.

Пример 2. На форме размещен главный компонент Label: «Указатель числа» и 5 компонентов Label с числами от 1 до 5 (рис. 9).

Рисунок 9. Внешний вид формы

При наведении мыши на любом компоненте Label с числами название соответствующего числа появится в главном компоненте: «Указатель числа» (рис. 10).

Рисунок 10. Наведение указателя мыши на компонент Label с числом 5

Листинг.

implementation

{$R *.dfm}

procedure TForm1.Label2MouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

begin

Label6.Caption:='Это число один';

end;

procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

begin

Label6.Caption:='Это число два';

end;

procedure TForm1.Label3MouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

begin

Label6.Caption:='Это число три';

end;

procedure TForm1.Label4MouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

begin

Label6.Caption:='Это число четыре';

end;

procedure TForm1.Label5MouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

begin

Label6.Caption:='Это число пять';

end;

end.

Пример 3. Написать программу, которая в строке имени формы выводит координаты курсора мыши на компоненте Label (рис. 11).

Рисунок 11. Фрагмент работы приложения.

Листинг.

implementation

{$R *.dfm}

procedure TForm1.Label2MouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

begin

Form1.Caption:=IntToStr(X)+':'+IntToStr(Y)

end;

end.

Список используемых источников.

1. Архангельский А.Я. «Приемы программирования в Delphi».: Издательство «Бином-Пресс» 2006г. -944 стр. –ISBN 5-9518-0145-1

2. С.И. Бобровский «Delphi 7 Учебный курс».: Издательство «Питер» 2004. - 736 с. – ISBN 5-8046-0086-9

3.Г.В. Галисеев «Компоненты в Delphi 7».: Издательство «Вильямс» 2004г. - 624стр. –ISBN 5-8459-0555-9

4. А. Шкрыль «Delphi.Народные советы».: Издательство BHV-СПБ 2007г. – 400стр. – ISBN 5-9775-0047-5

5. Культин Н.Б. «Основы программирования в Delphi 7».: Издательство BHV –

СПБ. 2008г. - 480 с. –ISBN 978-5-9775-0235-1

6. Культин Н.Б. Программирование на Object Pascal в Delphi 5.Самоучитель.:Издательство BHV-СПБ. - 464стр. –ISBN 5-8206-0079-7

7. Лабзина Т.А. Алгоритмические языки и программирование Юнита 5. Издательство НОУ СГУ, 1999.

8. Е.Марков «Программирование в Delphi 7».Издательство BHV-СПБ. 2003г. -784стр. –ISBN 5-94157-116-X

9. В.Кадлец «Delphi.Книга рецептов.Практические примеры, трюки и секреты».: Издательство «Наука и техника». 2006г. – 384стр. – ISBN 80-251-0017-0

10. Фаронов В.В. «Delphi 2005. Разработка приложений для баз данных и Интернета».: Издательство «Питер». 2006г. – 608стр. – ISBN 5-469-01191-7

СОДЕРЖАНИЕ

Введение	3
1. Общая характеристика компонента ScrollBar.	4
2. Основные свойства и события компонента ScrollBar.	4
3. Примеры работы с компонентом ScrollBar.	6
4. Общая характеристика компонента Panel.	9
5. Основные свойства и события компонента Panel.	10
6. Примеры работы с компонентом Panel.	12
Список используемых источников.	13

Введение

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

Программирование одна из самых сложных наук, и объем информации, усваиваемой программистом очень сложно запомнить. Для помощи программистам создаются и разрабатываться приложения, ориентированные на задачи программистов. Они помогают облегчить жизнь начинающему программисту и сэкономить время более опытному программисту; исключают поиск нужной справочной информации в интернете и библиотеках, обеспечивая нужными данными прямо на рабочем месте. Время - главный фактор в работе программиста, от которого зависит заработная плата. Иногда сроки на написание программы очень сжаты, и это не позволяет тратить много времени на поиск информации в книгах и справочниках. Можно использовать поиск в интернете, но еще более упрощает работу программиста справочное приложение. Так же, как и при помощи интернета, программист может найти информацию, не отходя от рабочего места. Преимущество приложения перед интернетом в том, что оно исключает «копание» по сайтам, попадание спама и вирусов в ПК. А попадания вирусов в компьютер может привести к самым нежелательным последствиям.

Цель контрольной работы: изучение свойств, событий и методов компонентов ScrollBar и Panel, а также разработка ряда примеров работы с этими компонентам.

1. Общая характеристика компонента ScrollBar.

Этот компонент представляет собой стандартную линейку прокрутки Windows. Однако, он может использоваться и для целей прокрутки (впрочем, многие оконные компоненты Delphi имеют собственные полосы прокрутки). На палитре компонентов он расположен 12-м слева, в виде прямоугольной линейки (рис.1,2).

Рисунок 1. Компонент ScrollBar

Рисунок 2. Компонент ScrollBar на форме

2. Основные свойства и события компонента ScrollBar.

Свойства:

1) Name - Имя компонента. Используется в программе для доступа к компоненту и его свойствам.

2) Position - целое, значение которого может изменяться в пределах, задаваемых свойствами Min и Мах. По умолчанию Min = 0, Мах = 10, так что Position может принимать только 11 значений — от 0 до 10. Если задать большее значение Мах, соответственно увеличится количество возможных значений Position в диапазоне Min — Мах.

3) Orientation - определяет ориентацию ползунка: trHorizontal — горизонтальная, trVertical — вертикальная.

4) LineSize и PageSize определяют, насколько смещается ползунок, если пользователь управляет им с помощью соответственно клавиш со стрелками или клавишами PageUp и PageDown.

5) Height - Высота компонента. Например, при значении свойства Height=40, компонент будет выглядеть как показано на рисунке 3.

Рисунок 3. Значение свойства Height=40

6) Width - Ширина компонента. Например, при значении свойства Width=300, компонент будет выглядеть как показано на рисунке 4.

Рисунок 4. Значение свойства Width=120

События:

Событие, соответствующее перемещению пользователем бегунка полосы прокрутки — OnScroll. В процедуру обработчика этого события передается по ссылке параметр ScrollPos — позиция бегунка, которую можно читать, но можно и изменять, и передается параметр ScrollCode, характеризующий вид перемещения бегунка. Этот параметр может иметь значения:

Ø scLineUp, scLineDown «Малый» сдвиг: перемещение соответственно вверх или налево и вниз или вправо после нажатия кнопки полосы прокрутки или клавиши со стрелкой

Ø scPageUp, scPageDown «Большой» сдвиг: перемещение на страницу щелчком рядом с бегунком или нажатием клавиш PageUp или PageDown

Ø scPosition Пользователь переместил и освободил бегунок

Ø scTrack Пользователь перемещает бегунок

Ø scTop, scBottom Бегунок перемещен соответственно в крайнюю верхнюю или левую позицию и в крайнюю нижнюю или правую позицию

Ø scEndScroll Окончание перемещения

В обработке события ScrollPos можно поместить операторы, перемещающие требуемую область формы или компонент, а можно поместить операторы, которые управляют некоторым компонентом, используя значение позиции бегунка ScrollPos.

3. Примеры работы с компонентом ScrollBar.

Пример 1. Разместите на форме два компонента ScrollBar и напротив них два компонента Edit, в которых отображается значение текущей позиции ползунка полос прокрутки. Рекомендуемый вид формы приведён на рисунке 5.

Рисунок 5. Внешний вид формы

На рисунке 6 показан промежуточный результат работы приложения.

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

Листинг.

implementation

{$R *.dfm}

procedure TForm1.ScrollBar1Change(Sender: TObject);

begin

Edit1.Text:=IntToStr(ScrollBar1.Position);

end;

procedure TForm1.ScrollBar2Change(Sender: TObject);

begin

Edit2.Text:=IntToStr(ScrollBar2.Position);

end;

procedure TForm1.Button1Click(Sender: TObject);

var a,b,rez:real;

begin

a:=StrToFloat(Edit1.Text);

b:=StrToFloat(Edit2.Text);

rez:=a+b;

Edit3.Text:=FloatToStr(rez);

end;

procedure TForm1.Button2Click(Sender: TObject);

var a,b,rez:real;

begin

a:=StrToFloat(Edit1.Text);

b:=StrToFloat(Edit2.Text);

rez:=a*b;

Edit3.Text:=FloatToStr(rez);

end;

procedure TForm1.Button3Click(Sender: TObject);

var a,b,rez:real;

begin

a:=StrToFloat(Edit1.Text);

b:=StrToFloat(Edit2.Text);

rez:=a/b;

Edit3.Text:=FloatToStr(rez);

end;

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

Edit1.Text:='';

Edit2.Text:='';

Edit3.Text:='';

ScrollBar1.Position:=0;

ScrollBar2.Position:=0;

end;

end.

Пример 2. Разместите на форме компонент Memo и два компонента ScrollBar. При изменении позиции ползунка «размер шрифта» соответственно изменяется размер шрифта в компоненте Memo (минимальное значение ползунка – 8, а максимальное - 40). При изменении позиции ползунка «прозрачность фона формы» соответственно изменяется прозрачность формы (минимальное значение ползунка – 100, а максимальное - 255). Чтобы ползунок начинал изменение от максимального свойству Position соответствующего компонента ScrollBar значение 255. Прозрачность формы позволяет изменять свойство AlphaBlendValue для формы. Рекомендуемый вид формы приведён на рисунке 7.

Рисунок 9. Внешний вид формы

Листинг.

implementation

{$R *.dfm}

procedure TForm1.ScrollBar1Change(Sender: TObject);

begin

Memo1.Font.Size:=ScrollBar1.Position;

end;

procedure TForm1.ScrollBar2Change(Sender: TObject);

begin

Form1.AlphaBlendValue:=ScrollBar2.Position;

end;

end.

4. Общая характеристика компонента Panel.

Основное назначение панели Panel: компоновка компонентов в окне формы. Однако, панель можно использовать и для вывода текстов. На палитре компонентов он расположен 15-м слева, в виде квадрата (рис.10,11).

Рисунок 10. Компонент Panel

Рисунок 11. Компонент Panel на форме

5. Основные свойства и события компонента Panel.

Свойства:

1) Name - Имя компонента. Используется в программе для доступа к компоненту и его свойствам.

2) Caption - Отображаемый текст.

3) Left - Расстояние от левой границы компонента до левой границы формы.

4) Top - Расстояние от верхней границы компонента до верхней границы формы.

5) Height - Высота поля вывода. Например, при значении свойства Height=180, компонент будет выглядеть как показано на рисунке 12.

Рисунок 12. Значение свойства Height=180

6) Width - Ширина поля вывода. Например, при значении свойства Width=310, компонент будет выглядеть как показано на рисунке 13.

Рисунок 13. Значение свойства Width=310

7) AutoSize - Признак того, что размер компонента определяется его содержимым.

8) Alignment - Задает способ выравнивания текста внутри компонента. Текст может быть выравнен по левому краю (taLeftJustify), по центру (taCenter) или по правому краю (taRightJustify).

9) Font - Шрифт, используемый для отображения текста. Уточняющие свойства определяют способ начертания символов (Font. Naitie), размер (Font. Size) и цвет символов(Font.Color).

10) ParentFont - Признак наследования компонентом характеристик шрифта формы, на которой находится компонент. Если значение свойства равно True, то текст выво¬дится шрифтом, установленным для формы.

12) Color - Цвет фона компонента. Например, при значении свойства Color= clMaroon, компонент будет выглядеть как показано на рисунке 14.

Рисунок 14. Применение свойства Color.

13) BevelInner, BevelOuter, BevelWidth, BorderWidth, которые предоставляют богатые возможности оформления надписи, как можно видеть на рисунке 15.

Рисунок 15. Различные стили оформления компонента Panel.

События:

1) OnClick – Щелчок по компоненту.

2) OnDbClick – Двойной щелчок по компоненту.

3) OnMouseDown - Возникает при нажатии на кнопку мыши.

4) OnMouseUp - Возникает при отпускании кнопки мыши.

5) OnMouseMove - Возникает при перемещении курсора мыши над компонентом.

6. Примеры работы с компонентом Panel.

Пример 1. Создайте программу, в которой при нажатии на кнопку «+» компонент Panel увеличивается в размере, а при нажатии на кнопку «-» уменьшается. Рекомендуемый вид формы приведён на рисунке 16.

Рисунок 16. Внешний вид формы

Кнопка «Уменьшить размер» уменьшает размер картинок.

Кнопка «Восстановить размеры» восстанавливает размеры картинок

Листинг.

implementation

{$R *.dfm}

//Щелчок по кнопке "Уменьшить размер"

procedure TForm1.Button1Click(Sender: TObject);

begin

Panel1.Width:=round(Panel1.Width*0.9);

Panel1.Height:=round(Panel1.Height*0.9);

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

iWidth:=Panel1.Width;

iHeight:=Panel1.Height;

end;

//Кнопка "Восстановить размеры"

procedure TForm1.Button2Click(Sender: TObject);

begin

Panel1.Width:=iWidth;

Panel1.Height:=iHeight;

end;

end.

Список используемых источников.

1. Архангельский А.Я. «Приемы программирования в Delphi».: Издательство «Бином-Пресс» 2006г. -944 стр. –ISBN 5-9518-0145-1

2. С.И. Бобровский «Delphi 7 Учебный курс».: Издательство «Питер» 2004. - 736 с. – ISBN 5-8046-0086-9

3.Г.В. Галисеев «Компоненты в Delphi 7».: Издательство «Вильямс» 2004г. - 624стр. –ISBN 5-8459-0555-9

4. А. Шкрыль «Delphi.Народные советы».: Издательство BHV-СПБ 2007г. – 400стр. – ISBN 5-9775-0047-5

5. Культин Н.Б. «Основы программирования в Delphi 7».: Издательство BHV –

СПБ. 2008г. - 480 с. –ISBN 978-5-9775-0235-1

6. Культин Н.Б. Программирование на Object Pascal в Delphi 5.Самоучитель.:Издательство BHV-СПБ. - 464стр. –ISBN 5-8206-0079-7

7. Лабзина Т.А. Алгоритмические языки и программирование Юнита 5. Издательство НОУ СГУ, 1999.

8. Е.Марков «Программирование в Delphi 7».Издательство BHV-СПБ. 2003г. -784стр. –ISBN 5-94157-116-X

9. В.Кадлец «Delphi.Книга рецептов.Практические примеры, трюки и секреты».: Издательство «Наука и техника». 2006г. – 384стр. – ISBN 80-251-0017-0

10. Фаронов В.В. «Delphi 2005. Разработка приложений для баз данных и Интернета».: Издательство «Питер». 2006г. – 608стр. – ISBN 5-469-01191-7