Методичка по лабораторным Delphi. Протокол 11 Зав кафедрой А. А. Прихожий содержание лабораторная работа 1

• Название: Протокол 11 Зав кафедрой А. А. Прихожий содержание лабораторная работа 1
• Анкор: Методичка по лабораторным Delphi.doc
• Дата: 04.09.2018
• Размер: 0.58 Mb.
• Имя файла: Методичка по лабораторным Delphi.doc
• Тип: Протокол; #24057
• страница: 8 из 10

Ход работы

1. Загрузите систему визуального программирования Delphi.

2. Создайте в своем каталоге подкаталог Lab7. Создайте новое приложение.

3. Панели инструментов.

1. 
   Поместите на форму контейнер для панелей инструментов TControlBar (страница Additional). Компонент служит удобным контейнером для размещения инструментальных панелей TToolBar. Он активно использует технологию Drag&Dock для управления положением панелей. Установите в его свойство Align значение alTop, в AutoSize – True, в DragKind – dkDock. Оставьте в свойстве DragMode значение dmManual.
   
2. 
   Положите на свободное место формы два компонента ImageList (страница Win32) и наполните каждый из них четырьмя изображениями. Чтобы наполнить компонент ImageList изображениями, подведите курсор, дважды щелкните мышью и выберите в его вспомогательном меню опцию ImageList Editor.
   
3. 
   В появившемся окне редактора нажмите кнопку <Add> и выберите BMP-файлы из каталога Images\Buttons. Файлы в этом каталоге имеют по два изображения, в то время как компонент ImageList способен хранить только одиночные изображения одинакового размера. Поэтому редактор предложит Вам разделить два изображения. Согласитесь с ним. Щелкните, указав правое изображение в окне редактора и нажмите кнопку <Delete>, чтобы уничтожить его.
   
4. 
   Повторите п. 2, 3 для загрузки нескольких изображений и затем закройте редактор.
   
5. 
   Поместите на компонент ControlBar1 компонент TToolBar (страница Win32). Установите в свойство Images компонента ToolBar1 значение ImageList1 и поместите в него четыре кнопки. Для вставки кнопки щелкните по ToolBar1 правой кнопкой и выберите опцию NewButton.
   
6. 
   Поместите на ControlBar1 компонент TToolBar. Измените в его свойстве Align значение alTop на alNone. Свяжите компонент с ImageList2 (свойство Images) и создайте в нем кнопки (см. п. 2,5).
   
7. 
   Для обоих компонентов TtoolBar поместите в свойство DragKind значения dkDock, в DragMode – dmAutomatic и в AutoSize – True.
   
8. 
   Запустите программу и попробуйте поместить панели.
   

4. Многостраничный блокнот.

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

1. 
   Поместите на форму компонент TPageControl.
   
2. 
   Чтобы на этапе конструирования добавить новую панель, щелкните по компоненту правой кнопкой мыши и выберите New Page. Для новой страницы можно установить заголовок в свойстве Caption (создайте 4 страницы).
   

5. Компонент TPaintBox.

Компонент TPaintBox расположен на панели System. Это простое окно для рисования произвольных изображений. Канва содержится в свойстве Canvas компонента, графические инструменты – в свойствах Font, Pen и Brush.

1. 
   Поместите на первую страницу PageControl компонент TPanel и задайте его свойству Align значение alRight.
   
2. 
   На панели поместите две кнопки TBitBtn. Задайте кнопкам заголовки и пиктограммы (свойства Caption (Эллипс и Очистка) и Glyph).
   
3. 
   На свободное место страницы поместите компонент TPaintBox (Align - alClient).
   
4. 
   Создайте обработчик события OnClick для BitBtn1.
   

Procedure TForm1.BitBtn1Click(Sender: TObject);

Var x,y: integer;

Begin

With PaintBox1.Canvas do

Begin

Brush.Color:=clRed;

Ellipse(0,0,Width,height);

Font.Size:=Height div 5;

Font.Color:= clWhite;

X:=(Width-TextWidth('Delphi')) div 2;

Y:=(Height-TextHeight('D')) div 2;

TextOut(x,y, 'Delphi');

End; End;

В обработчике, с помощью методов класса Canvas, рисуется эллипс красного цвета.

5. 
   Этот же обработчик назначьте любой кнопке созданной Вами панели инструментов.
   
6. 
   Для кнопки BitBtn2 создайте обработчик:
   

Procedure TForm1.BitBtn2Click(Sender: TObject);

Begin

PaintBox1.Refresh;

End;

Нажатие на кнопку BitBtn2 приведет к очистке компонента PaintBox1.

7. 
   Проверьте правильность Ваших действий, осуществив прогон программы.
   

6. Компоненты TAnimate, TProgressBar, TUpDown, TShape, TTimer.

Компонент TProgressBar предназначен для отображения хода выполнения длительного по времени процесса. Свойства Max и Min определяют максимальное и минимальное значение диапазона изменения свойства Position. Position содержит текущее значение отображаемой величины.

Компонент TUpDown предназначен для регулирования числовой величины. Обычно компонент TUpDown связан с другим компонентом класса TEdit, который отображает регулируемую величину и при необходимости, может редактировать ее. Свойство Associate определяет связанный компонент.

Компонент TAnimate представляет собой проигрыватель видеоклипов формата AVI. Свойство FileName связывает компонент с AVI- файлом. Свойство Active разрешает/запрещает демонстрацию клипа.

Компонент TShape рисует одну из простейших геометрических фигур. Свойство Shape определяет вид геометрической фигуры.

Компонент TTimer служит для отсчета интервалов реального времени. Его свойство Interval определяет интервал времени в миллисекундах, который должен пройти от включения таймера до наступления события OnTimer. Таймер включается при установке значения True в его свойство Enabled. Один раз включенный таймер все время будет возбуждать события OnTimer, пока его свойство Enabled не примет значения False.

1. 
   Поместите на третью страницу блокнота компоненты TAnimate, TProgressBar, TupDown (страница Win32), TShape (страница Additional), TTimer (страница System), TEdit.
   
2. 
   Найдите в каталоге Delhi6 любой файл с расширением AVI и скопируйте его в свой каталог Lab7. Установите имя этого файла в свойство FileName компонента Animate1. (C:\Program Files\Borland\Delphi7\CollStuf)
   
3. 
   Установите в свойство Enabled компонента Timer1 значение False.
   
4. 
   Поместите в свойство Visible компонента ProgressBar1 значение False.
   
5. 
   Создайте обработчик события OnTimer компонента Timer1:
   

Procedure TForm1.Timer1Timer(Sender: TObject);

Begin

ProgressBar1.Position:= ProgressBar1.Position + 1;

If ProgressBar1.Position >= ProgressBar1.Max then

begin

Timer1.Enabled:=False;

ProgressBar1.Hide;

Animate1.Stop;

End;End;

6. 
   При щелчке по кнопкам компонента TUpDown возникает событие OnClick. Создадим соответствующий обработчик:
   

Procedure TForm1.UpDown1Click(Sender: TObject; Button: TUDBtnType);

Begin

//Значение свойства Position компонента UpDown1 отражается в Edit1.

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

Case UpDown1.Position mod 5 of

//В зависимости от значения свойства Position компонента UpDown1

// изменяется вид фигуры в компоненте Shape1.

0: Shape1.Shape:= stRectangle;

1: Shape1.Shape:= stSquare;

2: Shape1.Shape:= stRoundRect;

3: Shape1.Shape:= stRoundSquare;

4: Shape1.Shape:= stEllipse;

5: Shape1.Shape:= stCircle;

end; end;

7. 
   Таймер включается при нажатии на кнопку №3 панели инструментов:
   

Procedure TForm1.ToolButton3Click(Sender: TObject);

Begin

PageControl1.ActivePageIndex:=2;

ProgressBar1.Position:=0;

Animate1.Active:=True;

ProgressBar1.Show;

Timer1.Enabled:=True;

End;

8. 
   Запустите программу и проверьте правильность Ваших действий.
   

7. Календари.

Выбор даты – одна из часто используемых операций при вводе данных. Компонент TМonthCalendar (страница Win32) инкапсулирует календарь, панель которого содержит типовую таблицу на один месяц. При увеличении размеров в элементе управления отображается целое число календарей для месяцев, ближайших к текущему месяцу. Результат выбора даты в календаре сохраняется в свойстве Date. Компонент NDateTimerPicker совмещает календарь с однострочным текстовым редактором. На странице Samples расположен еще один календарь ТCalendar.

1. 
   На четвертую панель блокнота поместите компоненты: TPanel (Align = alRight); TEdit (на панель); TMonthCalendar.(Align=alClient).
   
2. 
   Создайте обработчик события OnClick для компонента MonthCalendar1.
   

Procedure TForm1.MonthCalendar1Click(Sender:TObject);

Begin

Edit2.Text:= DateToStr(MonthCalendar1.Date);

End;
Задания:

Варианты	Исходные данные
1	На главную форму поместите свой рисунок, сделанный с помощью компонента TPaintBox. На стандартной форме установите календарь. Выбранная в календаре дата должна отображаться в однострочном редакторе.
2	Снабдите главную форму видеоклипом. В лабораторной работе №2 осуществите возможность ввода с помощью компонента TUpDown.
3	Снабдите форму Password видеоклипом. На стандартной форме установите календарь. Выбранная в календаре дата должна отображаться на панели статуса.
4	На панели Password поместите TShape. Вид геометрической фигуры должен изменяться во времени. В лабораторной работе №2 осуществите возможность ввода с помощью компонента TUpDown.
5	Снабдите лабораторную работу №2 видеоклипом. В лабораторной работе №3 осуществите возможность ввода с помощью компонента TUpDown.