Урок 7. Создание приложений

Цель урока: изучить создание приложения Блокнот в среде разработки PascalABC.NET.

---

---

Задания по теме урока

Создание Блокнота.

1. Создать и сохранить проект «Блокнот»
2. Переименовать свойство «текст» имя Блокнот
3. Разместить на форму рабочую  область  для  текста  — TextBox1;
4. Разместить на форму диалоги  работы  с  файлами  —OpenFileDialog1, SaveFileDialog1;
5. Разместить на форму диалоги  для  настройки  внешнего  вида  приложения  —  FontDialog1, ColorDialog1;
6. Разместить на форму главное меню — MenuStrip1
7. Установит значение «истина» для свойства MultiLine

8. У свойства Dock значение Fill

 9. Установить значение вертикальная полоса для свойства ScrollBars – Vertical

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

11.  Написать обработчики пунктов меню:

Файл — Новый
implementation
var s:string;
var F_N:String;
procedure Form1.toolStripMenuItem4_Click(sender: Object; e: EventArgs);
begin
  TextBox1.Clear;
end;

Файл — Открыть
procedure Form1.toolStripMenuItem5_Click(sender: Object; e: EventArgs);
begin
  openFileDialog1.ShowDialog();
  s:=openFileDialog1.FileName;
  Text:='Блокнот '+s;
  TextBox1.Lines:=ReadAllLines(s);
end;

Файл — Сохранить
procedure Form1.toolStripMenuItem6_Click(sender: Object; e: EventArgs);
begin
  saveFileDialog1.ShowDialog();
  F_N:=saveFileDialog1.FileName;
  WriteAllLines(F_N,TextBox1.Lines);
    Text:='Блокнот '+F_N;
end;

Файл — Выход
procedure Form1.toolStripMenuItem7_Click(sender: Object; e: EventArgs);
begin
  close;
end;

Формат — Шрифт
procedure Form1.toolStripMenuItem8_Click(sender: Object; e: EventArgs);
begin
  fontDialog1.ShowDialog();
  TextBox1.Font:=fontDialog1.
  Font;
end;

Формат — Цвет текста      
procedure Form1.toolStripMenuItem9_Click(sender: Object; e: EventArgs);
begin
  colorDialog1.ShowDialog();
  TextBox1.ForeColor:=colorDialog1.Color;
end;

Формат — Цвет фона
procedure Form1.toolStripMenuItem10_Click(sender: Object; e: EventArgs);
begin
  colorDialog1.ShowDialog();
  TextBox1.BackColor:=colorDialog1.Color;
end;

12. Сохранить изменения и протестировать приложение.

---

Домашнее задание

§ 5 учебного пособия, ответить на вопросы после параграфа.