IV.Клас Tfont

Except

Try

..........

reise EkError.Create(‘Повідомлення’);

..........

on e:EkError do ShowMessage(E.Message);

..........

end;

Графічний інструментарій

В Delphi створенні спеціалізовані класи-надбудови, які спрощують використання інструментів Windows: для контексту – Tcanvas, для шрифту – Tfont, для пера – Tpen і для пензля – Tbrush. Зв’язані з цими класами об’єкти автоматично доступні програмі через властивості Canvas, Font, Pen, Brush.

За допомогою класу Tfont створюється об’єкт шрифт для будь-якого графічного пристрою (екран, прінтер, плоттер і т.д.)

Властивості класу:

Property Charset: TfontCharSet; Набір символів. Для російськомовних програм ця властивість звичайно має значення Default_Charset або Russian_Charset. Для відображення тексту Ms-Dos використовується значення Oem_Charset (альтернативне кодування).

Property Color: TColor; Колір шрифту.

Property Height:Integer; Висота шрифту в пікселях.

Property Name:TfontName; Ім’я шрифту в пікселях.

Property Pitch: TfontPitch; Визначає спосіб розташування літер в тексті: значення fpFixed задає одноширинний текст, при якому кожна літера має одинакову ширину; значення fpVariabel визначає пропорціональний текст, при якому ширина літери залежить від її накреслення; fpDefault визначає ширину, прийняту для поточного шрифту.

Property PixelPerInch:Integer; Визначає кількість пікселів екрану на один дюйм реальної довжени. Ця властивість рідко використовується програмістом, так як її використовує система для відповідності екранного шрифту до шрифту прінтера.

Property Size:Ineger; Висота шрифту в пунктах (1/72 дюйма). Зміна цієї властивості автоматично міняє властивість Height і навпаки.

Property Style: TfontStyles; Стиль шрифту. Може приймати значення як комбінацію наступних признаків: fsBold(жирний), fsItalic(курсив), fsUnderline (підкресляний), fsStrikeOut(перекреслений).

Для деяких випадків може стати в пригоді метод:

Procedure Assign (Source:Tpersistent);

За допомогою якого значення властивостей шрифту об’єкта Sourse присвоюються властивостям поточнного шрифта. Метод не змінює властивість PixelPerInch, тому його можливо використовувати для створення шрифту прінтера по екранному шрифту і навпаки.

Дата добавления: 2014-01-03