Вставка специального символа

unit Unit_ten;

interface

uses

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

Dialogs, Grids, ExtCtrls, StdCtrls, Buttons;

type

TForm_ten = class(TForm)

Bevel1: TBevel;

DrawGrid1: TDrawGrid;

ComboBox1: TComboBox;

Panel1: TPanel;

Button1: TButton;

SpeedButton1: TSpeedButton;

SpeedButton2: TSpeedButton;

SpeedButton3: TSpeedButton;

SpeedButton4: TSpeedButton;

procedure DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;

Rect: TRect; State: TGridDrawState);

procedure ComboBox1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure FormResize(Sender: TObject);

procedure DrawGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;

var CanSelect: Boolean);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form_ten: TForm_ten;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm_ten.DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;

Rect: TRect; State: TGridDrawState);

begin

with DrawGrid1.Canvas do

begin

Font.Size:=DrawGrid1.DefaultRowHeight div 2;

textRect(Rect,Rect.Left,Rect.Top,Char((aRow+1)*DrawGrid1.ColCount+aCol));

end;

end;

procedure TForm_ten.ComboBox1Click(Sender: TObject);

begin

DrawGrid1.Font.Name:=ComboBox1.Text;

Caption:='Font Display-'+DrawGrid1.Font.Name;

end;

procedure TForm_ten.FormCreate(Sender: TObject);

begin

with ComboBox1 do

begin

Items:=Screen.Fonts;

ItemIndex:=Items.IndexOf(Font.Name);

end;

caption:='Font Display-'+Font.Name;

end;

procedure TForm_ten.FormResize(Sender: TObject);

begin

DrawGrid1.DefaultRowHeight:=ClientHeight div (DrawGrid1.RowCount+2)-1;

DrawGrid1.DefaultColWidth:=ClientWidth div (DrawGrid1.ColCount+1);

Refresh;

end;

procedure TForm_ten.DrawGrid1SelectCell(Sender: TObject; ACol,

ARow: Integer; var CanSelect: Boolean);

begin

Panel1.Visible:=true;

Panel1.Font.Name:=ComboBox1.Text;

Panel1.Caption:=Char((aRow+1)*DrawGrid1.ColCount+aCol);

Panel1.Left:=DrawGrid1.DefaultColWidth*ACol;

Panel1.Top:=DrawGrid1.DefaultRowHeight*ARow+Bevel1.Height;

end;

procedure TForm_ten.Button1Click(Sender: TObject);

begin

Form1.Memo1.SelText:=Panel1.Caption;

end;

end.

Инструкция для пользователей текстового редактора

Запускаем программу «Текстовый редактор», кликнув на значок .

Видим окно заставки в течение 5 секунд.

Далее мы видим главную форму программы – текстовый редактор.

Функции текстового редактора расположены в главном меню, контекстном и панели инструментов.

1. Создать документ

Создание документа может быть осуществлено несколькими способами:

• с помощью пункта главного меню (щелкните Файл->Cоздать),

• горячими клавишами CTRL+N

• при помощи клика на кнопке на панели инструментов.

По умолчанию, при запуске программы, уже создан новый документ, если в процессе работы Вы создаете новый, при создании приложение предложит Вам сохранить документ, в котором Вы работали ранее.

2. Открыть

Открытие нового документа также может осуществляться посредством:

• главного меню (Файл-> Открыть)

• горячими клавишами CTRL+O

• кнопки на панели инструментов.

Аналогично функции создания документа, приложение предложит сохранить изменения в открытом в данный момент документе.

Если необходимости сохранять документ нет, Вым будет предложено выбрать файл для открытия.

3. Сохранить

Данная функция применяется, если:

• файл был открыт

• файл был изменён.

Функцией можно воспользоваться:

• из главного меню (Файл->Сохранить)

• горячими клавишами CTRL+S

• кнопка на панели инструментов.

Если файл не был ранее сохранен, то тогда Вы увидите окошко сохранения документа, где можете указать имя файла, его расширение, а также выбрать место, куда хотите его сохранить.

4. Сохранить как..

Используется в том случае, если файл не был ранее сохранен.

Пользователь видит окно сохранения файла, где вводит имя файла, может выбрать расширение и место для сохранения.

Можно найти:

• на главном меню (Файл->Сохранить как)

• кнопка на панели инструментов.

5. Подсказки

Пользователь по собственному желанию может настроить подсказки для кнопок панели инструментов:

• Цвет подсказок

• длительность задержи

• длительность их показа.

Для этого необходимо:

• в главном меню выбрать Файл-> Подсказка. После чего Вы увидите окно с параметрами настройки. Для того, чтобы отключить или включить подсказки щёлкните по пункту «Включить подсказки». Чтобы проверить настройки наведите на кнопку «Применить». Там будет отображена подсказка в том виде, в котором Вы ее настроили.

6. Недавние документы

Файл-> Недавние документы

При наведении на данный пункт меню пользователь видит 10 последних открытых документов.

7. Поиск

Функция поиск работает только после курсора!

Для того, чтобы найти какой-либо фрагмент текста:

• Файл->Поиск

• горячие клавишами CTRL+F.

Всплывёт окно, куда Вы вводите текст, который желаете найти, нажимаете на кнопку найти и найденный текст будет выделен.

8. Замена

Функция работает только после курсора!

Для того, чтобы заменить какой-либо фрагмент текста:

• Файл-> Замена.

Всплывет диалоговое окно, куда вы вводите сначала текст, КОТОРЫЙ желаете заменить, а затем текст КАКИМ желаете заменить. Нажимаете кнопку «найти», затем «заменить»

.

9. Отменить

Функцию можно использовать при помощи:

• панели инструментов, для этого просто нажмите на кнопку

• контекстного меню(можно вызвать щелчком правой кнопкой мыши на форме и выбрать пункт отменить с соответствующим изображением)

• главного меню (Правка->Отменить)

• горячих клавиш CTRL+Z.

Данная функция отменяет последнее совершённое пользователем действие.

10. Копировать

Функция копирования может быть осуществлена если:

• Вы выделили какой-то фрагмент текста (

Вы можете скопировать текст:

• вызвав правой кнопкой мыши контекстное меню и выбрав там пункт «Копировать»

• горячие клавиши CTRL+C

• через главное меню Правка->Копировать.

11. Вырезать

Применяется в том случае, если есть выделенный текст.

Посредством:

• контекстного меню (правая кнопка мыши, выбрать пункт «Вырезать»),

• горячих клавиш CTRL+X

• главного меню (Правка->Вырезать).

12. Вставить

Функция доступна только если в буфере обмена есть какая-то информация, т.е. если текст заранее был скопирован или вырезан.

Функция выполняется посредством:

• главного меню (Правка -> Вставить),

• контекстного меню (правая кнопка мыши, выбрать пункт Вставить)

• горячими клавишами CTRL+V

13. Удалить

Функция удаления имитирует клавишу Backspace, т.е. при ее использовании удаляется последний введённый символ.

Может быть использована через:

• главное меню (Правка->Удалить),

• контекстное меню (правая кнопка мыши и выбрать пункт меню Удалить)

• клавиша Backspace.

14. Выделить всё

Для того, чтобы выделить весь текст, написанный в документе, Вы можете:

• в главном меню выбрать Правка->Выделить всё

• вызвать контекстное меню правой кнопкой мыши и в нём выбрать пункт Выделить всё

• воспользоваться горячими клавишами CTRL+A.

15. Стиль шрифта

Стиль шрифта, размер может быть настроен в отдельном окне, которое Вы можете вызвать при помощи:

• главного меню Вид->Стиль шрифта.

• на панели инструментов

По двойному клику на выбранном шрифте в списке, шрифт применяется, размер шрифта может быть изменен при помощи стрелочек вверх/вниз или введен в поле вручную. Стиль шрифта можно изменять на панели инструментов, выбирая из предложенного списка системных шрифтов. Размер шрифта также можно изменять и на панели инструментов аналогичным способом.

16. Диаграмма

В открытом Вами документе можно отобразить статистику введённых символов, что будет отражено диаграммой. Просмотреть ее можно через:

• главное меню Вид->Диаграмма.

Далее Вы увидите окно с диаграммой:

17. Цвет шрифта

Цвет шрифта может настраиваться:

• на панели инструментов, путем выбора из списка предложенных системных шрифтов. Для этого клик на стрелочку рядом надписью «Шрифт» и клик по выбранному цвету.

• через настроечное окно на:

• на панели инструментов

• главном меню Вид->Цвет шрифта.

Во всплывшем окне вы самостоятельно настраиваете цвет шрифта, оттенки путем передвижения штучек вправо или влево.

18. Регистр