Індивідуальне завдання

Створити програму для переглядання файлів, яка містять малюнки чи зображення; доповнити проект системою етикеток та повідомлень; створити меню головної форми проекту.

Хід роботи

Побудуємо форму під назвою «ImageViewer». Вона складатиметься з трьох логічних компонентів: меню, картинки і другої форми.

Завдання можна реалізувати такою програмою:

procedure TForm1.N3Click(Sender: TObject);

var Filename:string;

begin

OpenPictureDialog1.Execute;

Filename:=OpenPictureDialog1.Filename;

Image1.Picture.LoadFromFile(FileName);

end;

procedure TForm1.N6Click(Sender: TObject);

begin

AboutBox.Show;

end;

end.

Висновок: на даній лабораторній роботі мною була виконана робота по створенню програми для перегляду зображень. Програма створювалась з використанням меню, другої форми і картинки.

Головні компоненти, які використовувались для такого типу задач, - це MainMenu, Image та AboutBox.

Контрольні питання

1. Яку компоненту використовують для відображення малюнків?

2. Для чого призначені компоненти ТРаnel?

3. З фалами яких типів працює компонента Timage?

4. Що ініціює кнопка Переглянути файл?

5. Як змінити розмір перенесеного малюнка?

6. Що потрібно зробити, щоб деяка компонента могла показувати етикетку?

7. Як показати розгорнуте повідомлення?

8. Як визначити властивості об’єкту Application?

9. Для чого призначене меню програми?

10. Як сформувати меню підпрограми?

11. Як вставити горизонтальну лінію, що розділяє під опції меню на групи?

Лабораторна робота № 3

Тема: Розробка багатовіконних програм.

Мета: Навчитись створювати багатовіконні програми, використовуючи засоби візуального програмування.

Теоретичні відомості

Багатодокументний інтерфейс прикладних програм MDI (Multiple Do­cument Interface) означає, що у процесі виконання програми можна одно­часно використовувати декілька вікон. Delphi забезпечує декілька принци­пово різних можливостей побудови багатовіконних програм. Розглянемо лише одну з них - наявність одного головного вікна та декількох дочірніх. Дочірні вікна можна відкривати та працювати з ними лише в межах голов­ного вікна. Крім того, головне меню зробимо спільним для головного та до­чірніх вікон.

Визначальним є спосіб використання компоненти TForm - власне зображення самого вікна, однак треба пам'ятати, що цієї компоненти нема в палітрі VCL. Тому для побудови багатовіконних програм важливо точно виконувати наведені нижче вказівки, щоб домогтися потрібного резуль­тату Ще однією важливою особливістю таких програм є динамічне ство­рення дочірніх вікон під час виконання програми, наприклад, як результат виконання команди меню Файли => Відкрити

Кожна прикладна програма типу MDI складається з трьох головних частин форми головного вікна MDI; однієї або декількох форм дочірніх вікон документів MDI; головного меню MDI. Як звичайно, головне вікно — це вікно, яке ми бачимо, зокрема, у разі початкового запуску програми. (У простих завданнях для належної роботи програми достатньо єдиного вікна типу fsNormal.) Дочірні вікна документів теж є формами, однак вони не виходять за межі клієнтської ділянки головного вікна. У випадку мінімі­зації дочірнього вікна його піктограма відображена всередині головного вікна, а не на панелі задач Windows. На кожному з дочірніх вікон можна розмістити будь-які компоненти. Часто всі дочірні вікна є однотипними, тобто мають однаковий вигляд і призначення, проте це не обов'язково. У і наведеному нижче прикладі спробуємо створювати дочірні вікна різного призначення.

Індивідуальне завдання

Створити програму з багатовіконним інтерфейсом; відобразити в одному із дочірніх вікон показів годинника; створити каскадне меню для керування роботою дочірніх вікон та програмою в цілому.

Хід роботи

П ісля натиснення кнопки Заповнити, появляється друга форма

Зберігаємо інформацію кнопкою Зберегти. Після чого активна форма закривається і додається інформація, яку ми ввели.

Завдання можна реалізувати такою програмою:

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Grids,XPman;

type

TForm1 = class(TForm)

StringGrid1: TStringGrid;

Button1: TButton;

Button2: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

with StringGrid1 do

begin

cells[0, 0]:='Прізвище';

cells[1, 0]:='Ім`я';

cells[2, 0]:='По-батькові';

cells[3, 0]:='Група';

cells[4, 0]:='Дата народження';

end;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

stringgrid1.rowcount:=stringgrid1.rowcount+1;

stringgrid1.row:=stringgrid1.rowcount-1;

end;

procedure TForm1.Button2Click(Sender: TObject);

var Row:integer;

begin

Row:=StringGrid1.Row;

With Form2 do

begin

Form2.Edit1.text:=StringGrid1.Cells[0, StringGrid1.row];

Form2.Edit2.text:=StringGrid1.Cells[1, StringGrid1.row];

Form2.Edit3.text:=StringGrid1.Cells[2, StringGrid1.row];

Form2.Edit4.text:=StringGrid1.Cells[3, StringGrid1.row];

Form2.Edit5.text:=StringGrid1.Cells[4, StringGrid1.row];

Form2.show;

end;

end;

end.

Контрольні питання

1. Як створити форму головного вікна?

2. Як додати до проекту дочірнє вікно?

3. Яка команда служить для перемикання між формами?

1. Для чого призначена компонента Тimer1?

2. Яку структуру має пункт Перегляд?

3. Які підопції має пункт Вікна?

4. За допомогою яких властивостей відбувається доступ до дочірніх вікон?