разработка приложений в ВС

Brush: TBrush - позволяет устанавливать цвет и шаблон кисти;

Font: TFont - позволяет устанавливать параметры текста;

PenPos: TPoint - вьвдает текущую позицию пера;

Т

Pixels : TColor - двухмерный массив, содержащий цветаУпик-

селей, например:

Н

Procedure TForml .Buttonl Click();

Б

Var

й

i, j : Longlnt;

begin

Buttonl .Visible := false;

р

with Canvas do

о

и

begin

for i:=l to Width do

for j:=l to Height do

и

Pixels[ij] := i*j;

з

тtrue;

Buttonl .Visible :=

end;

о

end;

x2

Chord(xl, yl, x2, y2, хЗ, уЗ, x4, y4) -

рисует сегмент из дуги

эллипса и хорды:

У

xl

хЗ

Т

х2

Н

Б

EIIipse(xl, yl, х2, у2) -

й

рисует эллипс;

и

FillRect(Rect) - закрашивание прямоугольника;

MoveTo (х, у) - перемещает

о в точку с координатами х, у;

LineTo(x, у) -

пер

рисует линию из текущего положения пера в

о

точку с координатами х и у;

т

Pie(xl, yl, х2, у2, хЗ, уЗ, х4, у4) - рисует сектор эллипса;

и

Poligon(Point: array of TPoint) - вычерчивание заданного мно-

гоугольника.

з

Пример:

о

var

п

Р: array[1..3] of TPoint;

е

begin

Р[1].х := 10;

Р[1].у ~

300;

Р[2]

Р[2].у:=300;

.х := 200;

Р[3].х := 100;

Р[3].у :=

20;

Canvas.Poligon(P);

end;

TextRec выводит текст только внутри указанного прямоуголь-

Т

ника. Длину и высоту текста можно узнать с помощью функ-

ций TextWidth и TextHeight;

Н

У

Пример. На форме имеется Image1. С помощью свойства

Picture в нее помещена

. йТребуется переместить эту

картинку в другое положение.

и

Procedure TFormI.FormPaint();

картинка

begin

о

with Canvas do

т

begin

Draw (0, 0, Imagel.Picture.Bitmap);

и

StretchDraw (Rect(250,0,3 50,50), Imagel.Picture.Bitmap);

end;

з

о

end;

п

Как правило, все графические операции осуществляются не

на

, а посредством специальных графических компонен-

форме

Разработать приложение, содержащее три формы - три спо-

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

Т

На 1-й форме продемонстрировать отображение графичеУ-

Н

ских картинок, созданных в других графических редакторах.

Б

На 2-й форме с помощью кнопочного меню рисовать различ-

тивами, типа линия, прямоугольник, эллипс и т.д.

й

ЛАБОРАТОРНАЯ РАБОТА 12

и

Разработкарприложения,

управляемого с помощью панели инструментов

т

Целы научиться подключать инструментальную панель, изу-

чить основные свойстваи и типы кнопок и использование их

для управлениязвычислительным процессом.

о

Краткие сведения

п

Для создания панели инструментов используется компо-

е

Р

тальная кнопка). Этот компонент похож на кнопку TSpeedButton,

но в палитре компонентов его нет.

У

Т

Для того чтобы вставить TToolButton в инструментальную

Н

Б

поненте ТТооЮаг и в открывшемся окне выбрать NewButton

й

или NewSeparator (новый сепаратор). Сепараторы предназна-

кнопок TToolButton.

выделени

я на инструментальной

чены для функционального

панели групп элементов и представляют собой разновидности

значенного для хранения

картинки, однако он умеет исполь-

о

Хотя компонент TToolButton не имеет свойства, предна-

т

зовать контейнер TImageList, чтобы извлечь из него нужную

картинку и поместить ее на инструментальную кнопку.

з

о

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

Разработать приложение, вычислительный процесс которо-

е

го управляется компонентами, расположенными в инструмен-

тальнойппанели.

Р

Задание

Для создания многостраничных документов используются

компоненты TTabControl и TPageControl.

У

Компонент TTabControl

(на странице

Win32) пред-

Т

Н

деляет названия и

количество закладок. Событие OnChange

й

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

содержимым окна компонента.

Б

Компонент TPageControl

(на закладке Win32) пред-

р

ставляет собой контейнер с закладками, на каждой из которых

о

содержатся панели класса TTabSheet.иНа каждой панели клас-

Для того чтобы

добавить новую панель и закладку, нужно

са TTabSheet может содержаться свой набор помещенных на

нее компонентов.

и

з

щелкнуть правой кнопкой по компоненту PageControl и из ло-

кального меню выбрать команду NewPage.

Свойства:

ActivePage: TTabSheet - содержит активную панель. С по-

е

мощью этогосвойства можно установить активной нужную

панель.п

Р

События:

закладках многостраничного документа.

У

ЛАБОРАТОРНАЯ РАБОТА 14

Н

Разработка комплексного приложенияТ

Б

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

в визуальной среде.

й

Краткие

сведени

я

о

При разработке приложения для данной лабораторной ра-

т

боты следует руководствоватьсяртеоретическими сведениями

всех предыдущих работ.

и

о

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

списо

Разработатьзсовременное приложение, содержащее расши-

ренный

к компонентов управления программой и пред-

ставлени

я данных в различных видах.

Задание

РРазработать приложение, поддерживающее различные спосо-

яме, 2001.-832 с.

Т

3. Архангельский, А.Я. Разработка прикладных программ

для Windows в Delphi / А.Я. Архангельский. - М.:УБином,

1999.-256 с.

Н

БХВ-Петербург, 2002. - 452 с.

й

5.

Сван, Том. Delphi 4. Библия разработчика:Б

пер. с англ. /

и

Том Сван. - СПб.: Диалектика, 1998. - 672 с.

6.

р

Бобровский, С. Delphi 5: учебны курс / С. Бобровский. -

СПб.: Питер, 2000. - 640 с.

7.

Фаронов, В.В. Delphi 2005. Язык, среда, разработка при-

ложений / В.В. Фаронов. - СПб.: Питер, 2005. - 560 с.

Марко. - СПб.: Питер, 2001. - 944 с.

8. Сухарев, М.В. ОсновыоDelphi. Профессиональный под-

з

ход / М.В. Сухарев. -тСПб.: Наука и техника, 2004. - 600 с.

9. Марко, Кэнту. Delphi 5 для профессионалов / Кэнту

о

п

е

Р

БЕЛОРУССКИЙ НАЦИОНАЛЬНЫЙ ТЕХНИЧЕСКИЙ

УНИВЕРСИТЕТ

У

Т

Факультет информационных технологий и робототехники (ФИТР)

Н

Кафедра программного обеспечения вычислительной техники

Б

и автоматизированных систем

й

и

О Т Ч Е Т

О ЛАБОРАТОРНОЙ РАБОТЕ 14

р

«Разработка комплексного приложения в Delphi»

о

т

и

п

дисциплине:

«РАЗРАБОТКА ПРИЛОЖЕНИЙ В ВИЗУАЛЬНЫХ СРЕДАХ»

о

п:

з

студенты: Петров И.И.,

Выполнили:

Проверил

Геращенко С.И.

доцент Гурский Н.Н.

Р

гр. 107219