Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Л.р. №3 (Delphi).doc
Скачиваний:
2
Добавлен:
06.11.2018
Размер:
493.06 Кб
Скачать

If FontDialog1.Execute then

RichEdit1.SelAttributes.Assign(FontDialog1.Font);

RichEdit1.SetFocus;

Запустивши програму, можна побачити, що, виділивши потрібний фрагмент та натиснувши на кнопку, відкриється діалогове вікно „Шрифт” (Рис. 10.19.), де можна вибрати атрибути тексту (змінювати шрифт, розмір, колір, стиль).

Компонента TRichEdit також має властивість DefAttributes (доступна лише під час виконання), що містить атрибути по замовчуванню, які діють до того моменту, коли змінюються атрибути у властивості SelAttributes. Але значення атрибутів в DefAttributes зберігаються і в будь-який момент ці значення можуть бути методом Assign присвоєні атрибутам властивості SelAttributes для того, щоб повернутися до попереднього стилю.

За вирівнювання, відступи та інше у межах поточного абзацу відповідає властивість Paragraph (доступна лише в процесі виконання додатку) типу ТРаrаAttributes. Даний тип має в свою чергу ряд наступних властивостей: Alignment – визначає вирівнювання тесту, Firstlndent – визначає число пікселів відступу червоної стрічки, Numbering – управляє вставкою маркерів, Leftlndent – визначає відступ від лівого поля, Rightlndent – визначає відступ від правого поля, TabCount – визначає кількість позицій табуляції (має зміст при значенні властивості компоненти WantTabs = true), Tab – значення позиції табуляції в пікселях(має зміст при значенні властивості компоненти WantTabs = true).

Рис. 10.19. Діалогове вікно “Шрифт

В результаті отримаємо текст з новими атрибутами (рис.10.20).

Рис.10.20. Текст з новими атрибутами

Наступні властивості притаманні як компоненті TMemo, так і TRichEdit.

Властивість Alignment визначає вирівнювання тексту, Wordwrap – допустимість перенесення довгих стрічок. Надання властивості ReadOnly значення true визначає текст тільки для читання. Властивість MaxLength визначає максимальну довжину тексту, що водиться (якщо MaxLength =0, то довжина тексту необмежена. Властивості WantReturns та WantTab визначають допустимість вводу користувачем в текст символів переводу стрічки та табуляції. Властивість ScrollBars визначає наявність полос прокрутки тексту у вікні. Основна властивість вікон TMemo та TRichEditLines, що містить текст вікна у вигляді списку стрічок та має тип TStrings. Під час виконання можна заносити текст у вікно редагування за допомогою методів властивості Lines типу TStrings. Властивість Clear забезпечує видалення тексту із вікна.

Основними властивостями та методами Lines є:

  • Text – весь текст, що представляється однією стрічкою типу String, включаючи роздільники;

  • Strings[Index: Integer] – забезпечує доступ до окремої стрічки тексту тексту (наприклад, Memo1.Lines.Strings[0] це текст першої стрічки); при цьому слід зважати на значення властивості WordWrap);

  • Count – вказує число стрічок в тексті;

  • методи Add або Append дозволяють заносити нові стрічки в кінець файлу вікна редагування;

  • LoadFromFile використовується для завантаження тексту із файлу;

  • SaveToFileвикористовується для збереження у файлу.

Властивість SelStart компонент TMemo та TRichEdit вказує позицію курсору в тексті або початок виділеного користувачем тексту.

Приклади розробки Delphi-додатків.

Приклад 10.5

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

Етап пректування інтерфейсу проекту:

Під час проектування (рис.10.21) використаємо компоненти класу TLabeledEdit, TLabel, TButton, TMemo:

Label1.Caption:= ‘Введіть проміжок [a, b]: ’ ;

Label2.Caption:= ‘Введіть крок h: ’ ;

Label3.Caption:= ‘Результат’ ;

LabeledEdit1. LabeledEdit.Caption:=’a’;

LabeledEdit2. LabeledEdit.Caption:=’b’;

LabeledEdit2. LabeledEdit.Caption:=’h’;

Button1.Caption:=’Табулювання’.

Рис 10.21. Вікно форми проекту

прикладу 10.5

Для табулювання функції вводимо спочатку:

  • проміжок, на якому потрібно провести табулювання;

  • крок.

Табулювання проводиться при натисканні на кнопку „Табулювання” , результат заноситься до поля TMemo.

Етап програмування проекту:

Процедура обробки події OnClick матиме наступний вигляд:

procedure TForm1.Button1Click(Sender: TObject);