on неіменованого пункту в меню Формат.
Відображення підказок і стану
Додайте на форму компонент TStatusBar. Якщо властивості SimplePanelпрісвоіть значення True, то компонент TStatusBar зможе відображати тільки одну порцію інформації, задану властивістю SimpleText. Однак якщо властивості SimplePanel привласнити значення False, ми зможемо використовувати властивість Panels для створення багатопанельних рядка стану і відображення більшої кількості інформації для користувача. Виберіть компонент рядка стану і клацніть на кнопці (...) поруч з властивістю Panels, щоб вивести на екран редактор колекцій Collection Editor.
Клацніть на кнопці Add New (Додати нову), щоб створити три панелі рядка стану. Привласніть властивості Width перших двох панелей значення 75. щоб зарезервувати більший простір для виведення тексту. Перша панель буде служити для відображення кількості рядків у документі і номера обраної в даний момент отроки. Друга панель буде використовуватися для відображенні ідентифікатора Modified (Змінено), якщо вміст редактора буде змінюватися, а остання панель буде застосовуватися для виведення підказок.
Найкращим місцем для цього коду є подія OnIdle додатки, тому додайте у вікно Designer Surface компонент TApplicationEvents і в обробник події OnIdle помістіть наступний код:
Малюнок 31. Код програми
Щоб відобразити підказку в останній панелі, підготуйте обробник для події OnHint:
Малюнок 32. Код програми
Панель інструментів
Тепер нам залишилося зробити всього дві речі: додати гліфи для найбільш часто використовуваних дій, а потім помістити ці дії в панель інструментів. Для початку додайте в вікно Designer Surface компонентTImageList, надайте йому ім'я Normal, а потім додайте гліфи для действійNew, Open, Save, Undo, Cut, Copy, Paste, Delete і Find. Після того як ви додасте ці зображення в компонент TImageList, назначьтекомпонентTImageList компонентам TActionList, TToolbar і TMainMenu, після чого відкрийте редактор Action List і призначте гліфи відповідним діям.
Після того як ви призначите гліфи діям, виберіть панель інструментів і клацніть на ній правою кнопкою миші, щоб вивести контекстне меню панелі інструментів. Контекстне меню містить команду New Button (Нова кнопка) для створення нової кнопки панелі інструментів, а також команду New Separator (Новий роздільник) для створення роздільника, який дозволить візуально розподілити кнопки по групах. Все, що вам необхідно зробити зараз - це додати кілька кнопок в панель інструментів і призначити дію властивості Action кожної кнопки.
При бажанні можете також змінити наступні дві властивості, щоб надати панелі інструментів більш привабливий вигляд: Привласніть властивості AutoSize значення True, щоб видалити порожній простір в панелі інструментів. Привласніть властивості ShowCaptions значення True, щоб відобразити заголовки кнопок (якщо ви зробите це, то повинні будете видалити символи ам-персанда і точки із заголовків кнопок).
Малюнок 33.Готовая програма
ВИСНОВОК
У висновку матеріалу про асинхронному введенні-виведенні слід зазначити складність реалізації такого способу введення-виведення. Для багатьох додатків, що працюють з декількома пристроями та/або мережевими з'єднаннями синхронна модель незручна. Робота в режимі опитування теж не завжди прийнятна.
Вирішення цих проблем відомо давно і називається асинхронний ввід/вивід. У цьому режимі системні виклики вводу/виводу повертають управління відразу після формування запиту до драйверу пристрою, як правило, навіть до того, як дані будуть скопійовані в системний буфер.
СПИСОК ВИКОРИСТАНИХ ДЖЕРЕЛ
1.Практікум з дисципліни Інформатика та програмування raquo ;. Князєва М.Д. 2010
.Программірованіе на Delphi 7 Князєва М. Д. 2010
. Основи програмування в Delphi XE (+ CD) Микита Культин 2011
.Основи алгоритмізації та програмування Семакін І.Г., Шестаков А.П. 2012
. Внутрішній світ Borland Delphi Іван Хладни 2006
ДОДАТОК А
note ;, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs ,, StdCtrls, Printers, clipbrd, OleCtrls, vcspell3, ExtCtrls;=class (TForm): TMemo ;: TMainMenu ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem;:TMenuItem ;: TMenuItem ;: TOpenDialog ;: TSaveDialog ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TFontDialog ;: T...
