Проект 7. «мій особистий текстовий редактор »
Мета роботи - створити програму, яка виконувала би функції текстового редактора:
Після запуску програми відривається поле текстового редактора.
Ви можете створювати, зберігати, відкривати файли .txt.
Ви можете самостійно вибирати у форматі вибирати шрифт, зображення, розмір та колір букв.
В меню довідка можете створити форму, куди вставляється малюнок або фото та надпис. При натисканні на кнопку "Молодці!!!" форма зникає.
Опис плану розробки програми
Запускаємо Delphi і розміщуємо на формі наступні компоненти:
Main menu. Створимо за допомогою дизайнера систему меню, що розкривається.
2. Memo для відображення тексту. Встановимо властивість Align в Alclient (при цьому Memo займатиме всю клієнтську область форми, що нам і треба)
3. Opendialog. Встановимо фільтр для текстових файлів і розширення за умовчанням txt
4. Savedialog. Також встановимо фільтр для текстових файлів і розширення за умовчанням txt
5. Statusbar. Сформуємо в смузі стану 3 панелі за допомогою редактора панелей
Зараз опишемо події вибору розділів меню (відкрити, створити, зберегти як ...)
СТВОРИТИ. Для цього клацнемо по розділу створити і запишемо код:
procedure TForm1.N9Click(Sender: TObject);
Memo1.Lines.Clear;
Form1.Caption:=('Текстовий редактор');
ВІДКРИТИ. Для цього клацнемо по розділу створити і запишемо код:
Запускаємо діалог відкриття файлу і, якщо в нім файл вибраний (<> ‘ ‘),
то ...
If OpenDialog1.Execute Then
If OpenDialog1.Filename<>'' Then
Завантажуємо в наш Memo текст з вибраного файлу
Memo1.Lines.LoadFromFile(OpenDialog1.Filename);
У заголовку форми записуємо ім'я вибраного в діалозі файлу + «Текстовий редактор»
Form1.Caption:=(OpenDialog1.Filename+' — Текстовий редактор');
ЗБЕРЕГТИ ЯК ....
Запускаємо діалог збереження файлу і якщо файл вибраний (дано ім'я), то ...
if SaveDialog1.Execute then
if SaveDialog1.Filename<>'' then
Зберігаємо у вибраному файлі вміст Memo
Memo1.Lines.SaveToFile(SaveDialog1.Filename);
У заголовку форми записуємо ім'я вибраного (заданого нами) в діалозі файлу + «Текстовий редактор»
Form1.Caption:=(SaveDialog1.Filename+' — Текстовий редактор');
ФОРМАТ -> ШРИФТ ....
Запускаємо діалог вибору формату шрифту
form1.FontDialog1.Execute ;
Привласнюємо шрифту Memo той шрифт, який вибраний нами в Fontdialog
form1.Memo1.Font:= form1.FontDialog1.Font
ДОВІДКА - > ПРО ПРОГРАМУ ....
Відкриваємо в модальному режимі форму з інформацією про програму
form2.ShowModal
Не забудьте створити нову форму (Form2) і розмістити на ній інформацію про програму.
Познайомте форми один з одним.
І останнє: зберігаємо все, компілюємо і запускаємо EXE, що з'явився .
З повним текстом програми при бажанні можна ознайомитися в лістингу:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls, ComCtrls, ExtCtrls;
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
StatusBar1: TStatusBar;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
FontDialog1: TFontDialog;
Memo1: TMemo;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
Timer1: TTimer;
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2;
{$R *.dfm}
procedure TForm1.N2Click(Sender: TObject);
begin
Memo1.Lines.Clear;
Form1.Caption:=('Текстовий редактор');
end;
procedure TForm1.N3Click(Sender: TObject);
begin
If OpenDialog1.Execute Then
If OpenDialog1.Filename<>'' Then
Begin
Memo1.Lines.LoadFromFile(OpenDialog1.Filename);
Form1.Caption:=(OpenDialog1.Filename+' — Текстовий редактор');
End;
end;
procedure TForm1.N4Click(Sender: TObject);
begin
if SaveDialog1.Execute then
if SaveDialog1.Filename<>'' then
Begin
Memo1.Lines.SaveToFile(SaveDialog1.Filename);
Form1.Caption:=(SaveDialog1.Filename+' — Текстовий редактор ‘);
End;
end;
procedure TForm1.N6Click(Sender: TObject);
begin
close
end;
procedure TForm1.N8Click(Sender: TObject);
begin
form1.FontDialog1.Execute ;
form1.Memo1.Font:= form1.FontDialog1.Font
end;
procedure TForm1.N10Click(Sender: TObject);
begin
procedure TForm1.Timer1Timer(Sender: TObject);
begin
statusbar1.Panels[1].Text:=' '+ timetostr(time);
end;
end.