Задача перегляду та редагування тексту

Виконали: ст. гр.ФТМ-41

Запотіцький В.В.

Задорожний М.Р.

Перевірила: Бабій Л.В.

Львів 2013

Зміст

1. Задача про геометричні фігури…………………...……………………………………3

2. Задача про анкету……………………………….………………………………………8

3.Задача перегляду і редагування текстів..……..………………………………………12

Контрольні запитання…………………………………………………………..………....16

Використана література………………………………………………………….............20

Задача про геометричні фігури.

Мета роботи:вивчити «Головне меню» програми та основні вікна. Ознайомитись з призначенням та роботою палітри компонентів та інспектора об’єктів, вивчити властивості та події для компонентів Button та Shape. Для цього створити форму з двома геометричними фігурами і кнопками, що виконують зміни цих фігур. Також створити кнопку для виходу з програми. Запрограмувати роботу кнопок і миші.

Об’єкти: форма (Form), Кнопка (Button із сторінки Standard), Фігура (Shape із сторінки Additional), Текстове поле (Label із сторінки Standard).

Основні властивості(вікно ObjectInspector, закладка Properties):

· для фігур: Shape ( задає вид геометричної фігури), Brush (треба натиснути значок + тоді можна задати колір (Color) та структуру (Style) заповнення фігури)

· для кнопок: Caption (задає напис на кнопці, тобто її назву)

· для текстових полів: Caption (задає напис на підписі), Visible (робить текстове поле видимим або невидимим).

Порядок виконання:

1) Створюємо форму та задаємо її назву.

При запуску Delphi, програмою була створена нова форма Form1, щоб змінити її назву необхідно в інспекторі об’єктів знайти рядок Caption, де ввести необхідний текст (назву), в нашому випадку ми залишили стандартну назву: Form1.

2)Розмістимо на формі необхідні компоненти з палітри компонентів, а саме:кнопки Button1, Button2, Button3, геометричної фігури (квадрати)Shape1, Shape2, підпис на фігурі Shape2 – Label1.

3)Задамо властивості всіх компонент в Інспекторі Об’єктів(ObjectInspector.)Для цього необхідний компонент активізуємо вибором його мишею на формі (інший варіант вибору необхідного компонента – вибір з верхньої частини діалогового вікна Інспектора Об’єктів (ObjectInspector)чи з вікна дерева об’єктів (ObjectTreeView). Для геометричної фігури Shape1у вкладці Properties виберемо колір: Brush→ Color→ = clTeal, такі ж дії виконуємо для Shape2 ,також для обох фігур ми задали тип геометричної фігури –stRectangle.

Рис.1.«Вигляд вікна Form1 після встановлення необхідних компонентів і надання їм властивостей»

4) Запрограмуємо кнопку Button1 на виконання зміни кольоругеометричної фігури Shape1.

Щоб створити процедуруButtonNClick(виконання певної дії при натисканні на кнопку), двічі клацаємо клавішею миші на кнопку Button1, тодіпрограма автоматично приготує шаблон для цієї процедури і ми ввести лише необхідний текст програми:

if Shape1 .Brush.Color = clTeal

then Shape1.Brush.Color:= clRed

else Shape1.Brush.Color:= clTeal;

Запускаємо програму за допомогою команди меню RUN, тоді,натиснувши на кнопку фігура1(Button1), змінитьсяколірShape1(Рис.2):

Рис.2.«Вигляд вікна Form1 після натискання на кнопку фігура1(Button1)»

5)Запрограмуємо кнопку Button2 на виконання зміни форми фігури Shape2.

Для цього двічі клацаємо клавішею миші на кнопку Button2 і введемо наступний текст:

ifshp2.shape = stcircle

then shp2.shape:= stsquare

else shp2.shape:= stcircle

Натиснувши на кнопку фігура2 (Button2) форма фігури Shape2 зміниться з прямокутника на коло(Рис.3):

Рис.3.«Вигляд вікна Form1 після натискання на кнопку фігура2(Button2)»

6) Запрограмуємо кнопку вихід (Button3) на вихід з програми: Form1.Close;

7)Запрограмуємо появу підпису на фігурі Shape2 при клацанніLabel1 по ній миші:

Label1.Caption := 'Функції вивчено!';

Рис.4. «Кінцевий вигляд вікна Form1».

8)Збережемо програму за допомогою команди меню File→ «Saveprojectas…». Програма автоматично пропонуєнам зберегти спочатку файл з кодом програми (по замовчуванню Unit1.pas) та файл проекту(по замовчуванню Project1.dpr). Зберігаємо файли в своїй папці.

Рис.5. «Вікно програмного коду».

Висновок: під час виконання даної лабораторної роботи ми ознайомились з програмою Delphi, вивчили її головне меню, працювали з основними вікнами, палітрою компонентів та інспектором об’єктів. Створили програму для ознайомлення з властивостями форми та її компонентів, а саме: запрограмували роботу кнопок для зміни кольору і геометричних фігур, виходу з програми та появи підпису на одній із фігур. 

Задача про анкету.

Мета роботи: Вивчити властивості та дії з компонентами Label та Image. Для цього створити форму «Анкета студента» з особистими даними і фотографіями кожного зі студентів, які перекривають одна одну і повинні з’являтися при натисканні на відповідні кнопки з прізвищами студентів. Також створити кнопку для виходу з програми. Запрограмувати роботу кнопок.

Об’єкти: форма (Form), Кнопка (Button із сторінки Standard), Зображення (Image із сторінки Additional), Підпис чи текстове поле (Label із сторінки Standard).

Основні властивості(діалогове вікно ObjectInspector, закладка Properties):

Color (колір), Caption (назва), Visible (видимість), Width(ширина), Height (висота).

Порядок виконання

1)Створюємо форму. Задаємо її назву «Лабораторна робота №2. Анкета Абрамчук - Петрів».

2)Розміщуємо на формі необхідні компоненти з палітри компонентів: тектові рядки (Edit), кнопки (Button), підписи (Label), зображення (Image)(Рис.6.та Рис.7.). Текстові поля одного призначення але про різних студентів і зображення розміщаємо на формі наклавши одне на одне.

3)Задаємо властивості всіх компонент в ІнспекторіОб’єктів. При цьому необхідний компонент активізується або клацанням по ньому на формі, або з верхньої частини діалогового вікна ІнспектораОб’єктів. Текстові поля і фотографію першого студента робимо видимими, а іншого невидимими. Властивості компоненти Image, які потрібно використати в даній програмі: Center – вирівнювання зображення до центру відносно поля, що його містить, Picture – задання імені графічного файлу, Stretch – приведення розміру зображення до заданих розмірів об’єкта, або AutoSize - приведення розміру об’єкта до реальних розмірів зображення.

4)Запрограмовуємо кнопки з прізвищами студентів на виконання зміни видимості чи невидимості текстових полів і фотографій використовуючи властивість Visible, та кнопку виходу з програми. Студент1–Абрамчук, Студент2 –Петрів. Для цього створюємо процедуру, яка представлена нижче:

unit Unit1;

interface

uses

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

Dialogs, StdCtrls, jpeg, ExtCtrls, Buttons;

type

TForm1 = class(TForm)

Edit1: TEdit;

Label1: TLabel;

Edit2: TEdit;

Label2: TLabel;

Edit3: TEdit;

Label3: TLabel;

Edit4: TEdit;

Label4: TLabel;

Edit5: TEdit;

Label5: TLabel;

Edit6: TEdit;

Label6: TLabel;

Image1: TImage;

Button1: TButton;

Button2: TButton;

Edit7: TEdit;

Edit8: TEdit;

Edit9: TEdit;

Edit10: TEdit;

Edit11: TEdit;

Edit12: TEdit;

Image2: TImage;

 Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

Label11: TLabel;

Label12: TLabel;

Button3: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

Label1.Visible := true;

Label2.Visible := true;

Label3.Visible := true;

Label4.Visible := true;

Label5.Visible := true;

Label6.Visible := true;

Edit1.Visible := true;

Edit2.Visible := true;

Edit3.Visible := true;

Edit4.Visible := true;

Edit5.Visible := true;

Edit6.Visible := true;

Image1.Visible := true;

Label7.Visible := false;

Label8.Visible := false;

Label9.Visible := false;

Label10.Visible := false;

Label11.Visible := false;

Label12.Visible := false;

Edit7.Visible := false;

Edit8.Visible := false;

Edit9.Visible := false;

Edit10.Visible := false;

Edit11.Visible := false;

Edit12.Visible := false;

Image2.Visible := false;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Label1.Visible := false;

Label2.Visible := false;

Label3.Visible := false;

Label4.Visible := false;

Label5.Visible := false;

Label6.Visible := false;

Edit1.Visible := false;

Edit2.Visible := false;

Edit3.Visible := false;

Edit4.Visible := false;

Edit5.Visible := false;

Edit6.Visible := false;

Image1.Visible := false;

Label7.Visible := true;

Label8.Visible := true;

Label9.Visible := true;

Label10.Visible := true;

Label11.Visible := true;

Label12.Visible := true;

Edit7.Visible := true;

Edit8.Visible := true;

Edit9.Visible := true;

Edit10.Visible := true;

Edit11.Visible := true;

Edit12.Visible := true;

Image2.Visible := true;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

FOrm1.Close;

end;

end.

Після складення процедури ми отримаємо форми: Рис.6. та Рис.7.

Рис.6. «Вигляд форми при натисненні кнопки Студент 1»

Рис.7. «Вигляд форми при натисненні кнопки Студент 2»

5)Зберігаємо програму.

Висновок: В результаті виконання даної лабораторної роботи ми вивчили властивості та дії з компонентами Label, Edit та Image. Для цього ми створили форму «Анкета студента» з особистими даними двох студентів та зображеннями. Також створили кнопку виходу з програми.

Задача перегляду та редагування тексту

Мета роботи: Створити форму «Перегляд і редагування файлів» з вікном для виведення тексту. Задати можливості відкриття, перегляду, редагування та збереження текстів.

Об’єкти: форма (Form), Кнопка (Button із сторінки Standard), Поле для тексту (Memo), Компонента з функціями для відкриття файлів (OpenDialogs), Компонента з функціями для збереження файлів SaveDialogs.

Хід роботи

1)Створюємо форму. Задаємо її назву.

При запуску Delphi, програмою була створена нова форма Form1, щоб змінити її назву необхідно в інспекторі об’єктів знайти рядок Caption,де ввести необхідний текст.

2)Розміщуємо на формі всі необхідні компоненти з палітри компонентів.

Рис.8. «Форма для створення програми з необхідними компонентами».

3)Задаємо властивості всіх компонентів в інспекторі об’єктів:

• Задаємо заголовок на формі;

• Наносимо підписи на всі кнопки. Для кнопок Редагувати та Зберегти файл робимо неактивними під час запуску програми (властивість Enabled присвоюємо False);

• Для компоненти Memo з допомогою властивості Lines стираємо зайвий текст та забираємо можливість редагування тексту (властивості ReadOnlyприсвоюємо True) (Рис.9.);

Рис.9. «Діалогове вікно «ObjectInspector»»

• Для нанесення підписів на діалогові вікна Відкриття та Збереження файлу компонентам OpenDialog та SaveDialog використовуємо властивість Title. За допомогою властивості InitialDir вказуємо шлях, де будуть збережені вхідні та вихідні файли. У властивості Filter описуємо файли, з якими буде працювати наша програма. Приведемо приклад заповнення даних(Рис.10.):

Рис.10. «Діалогове вікно «FilterEditor»»

4)Запрограмуємо кнопку Відкрити файл таким чином, щоб при натисканні на неї підпис на формі змінювався на назву файлу, в полі Mеmо з’являвся текст файлу, а після відкриття файлу кнопка Редагувати стала активною.

Рис.10. «Вигляд форми з відкритим текстовим файлом»

5)Запрограмуємо кнопку «Зберегти файл» таким чином, щоб при натисканні на неї можна було зберегти в новому файлі всі внесені зміни.     

Вигляд програмного коду:

unitUnit ;

interface

uses

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

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Memo1: TMemo;

OpenDialog1: TOpenDialog;

SaveDialog1: TSaveDialog;

procedure Button1Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Privatedeclarations }

public

{ Publicdeclarations }

end;

var

Form1: TForm1;

isopen:Boolean;

s:string;

implementation

{$R *.dfm}

procedure TForm1.Button4Click(Sender: TObject);

begin

Close;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

Memo1.ReadOnly:=True;

isopen:=False;

if OpenDialog1.Execute andFileExists(OpenDialog1.FileName)then

begin S:=OpenDialog1.FileName;

 Form1.Caption:=s;

 Memo1.Lines.LoadFromFile(s);

end;

 Button2.Enabled:=true;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Memo1.ReadOnly:=False;

Button3.Enabled:=True;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

if SaveDialog1.Execute andFileExists(SaveDialog1.FileName)then

begin S:=SaveDialog1.FileName;

Form1.Caption:=S;

Memo1.Lines.SaveToFile(S);

end;

end;

end.

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

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

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

2. Які файли створюються при створенні програми в DELPHI, її збереженні та компіляції?

3. На якій мові програмування складається текст програм при програмуванні в DELPHI?

4. Що таке бібліотека компонентів, її призначення?

5. Опишіть склад та функції інспектора об’єктів?

6. Яким чином і з якою метою створюються стандартні для DELPHI підпрограми?

7. Що таке компіляція програми?

8. Як виконати покрокову перевірку запуску програми?