Приветствую Вас Прохожий | Получать RSS-новости | Главная | Регистрация | Вход |
Меню сайта

Форма входа

Категория каталога
Разное [78]

Новое на сайте
Новые файлы


Случайные программы


Новые статьи

Предотвращение сетевых а...
Вывод текста средствами ...
Что делать, если Windows...
Как сделать загрузочный ...
НЕСКОЛЬКО ПРОСТЕЙШИХ КОМ...

Последние новости

«Спорту» осталось недолг...
Eutelsat W7. 36E Радуга-...
Astra 1H. 19.2E
Профилактика на спутнике...
Радуга-Интернет на Eutel...

Облако тегов


Друзья сайта
Дискуссионный клуб
Шаблоны для uCoz, скрипты для uCoz  Желтые страницы по спутниковому и кабельному ТВ


Для проживающих в городе Иваново:

Ремонт и настройка вашего компьютера
Установка программ
Защита. Удаление вирусов

Оцифровка видео и аудио материалов с возможностью компьютерного монтажа

Создание небольших сайтов, персональных страничек

Монтаж и настройка спутникового Интернета
и телевидения...

и прочие компьютерные услуги...

По всем вопросам обращаться по тел. 89605108897


Счетчики
Были сегодня:



Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0

Главная » Статьи » Разное » Разное

Вывод текста средствами API
Класс TCanvas в Delphi включает далеко не все возможности Windows по выводу текста. Например, нет средств вывода вертикального текста или вывода текста под углом. Рассмотрим средства API, позволяющие решить эту и некоторые другие проблемы. Замечу, что на полноту информации я не претендую и опускаю некоторые функции, которые я не применял в своей практике.

Начнем наше знакомство со средствами API с очень важного типа: 
type TLogFont = record
  LfHeight: Integer;
  LfWidth: Integer; 
  LfEscapment: Integer;
  LfOrientation: Integer; 
  LfWeight: Integer;
  LfItalic: Byte; 
  LfUnderline: Byte; 
  LfStrikeOut:Byte; 
  LfCharSet: Byte;
  LfOutPrecision: Byte;
  LfClipPrecision: Byte;
  LfQuality: Byte; 
  LfPitchAndFamily: Byte;
  LfFaceName: PChar ;
end; 

Отдельные поля записи TLogFont имеют следующий смысл:

LfHeight - высота шрифта в пунктах (1 пункт = 1/72 дюйма); если больше 0, определяет высоту "знакоместа" (с учетом выступающих над заглавным символом элементов в буквах Е, И), если меньше нуля - высоту "чистого" символа, если 0 - высоту выбирает Windows;

LfWidth - средняя ширина символа; если 0, ширину устанавливает Windows;

LfEscapment - угол наклона базовой линии текста в десятых долях градуса относительно горизонтального направления; положительные значения - поворот по часовой стрелке; отрицательное - против; в Windows 95/98 совпадает c LfOrientation;

LfOrientation - угол наклона символов по отношению к базовой линии; в Windows NT для шрифтов True Type может отличаться от LfEscapment; для этого следует установить режим устройства отображения равным gm_Advanced (по умолчанию устанавливается gm_Compatible);

LfWeight - плотность шрифта: 
fm_DontCare=0 - плотность выбирает Windows;
fm_Thin=100 - очень тонкий шрифт;
fm_ExtraLight=200 - очень светлый; 
fm_Light=300 - светлый;
fm_Normal=400 - нормальный;
fm_Medium=500 - утолщенный;
fm_SemiBold=600 - полужирный; 
fm_Bcld=700 - жирный;
fm_ExtraBold=800 - усиленный; 
fm_Heavy=900 - тяжелый; 

LfItalic, LfUnderiine, LfStrikeOut - ненулевое значение означает соответственно наклонный, перечеркнутый и подчеркнутый шрифт;

LfCharSet - набор символов: 
ANSI_CharSet=0, 
Default_CharSet=l,
Symbol_CharSet=2, 
ShiftJis_CharSet=128, 
OEM_CharSet=255; 

LfOutprecision - точность представления шрифта; рекомендуется Out__TT_Prec (выбирает True Type и векторные шрифты, если есть несколько разновидностей одноименных шрифтов) или Out_TT_Only_Prec (только True Type);

LfClipprecision - определяет точность отсечения надписи границами области прорисовки (Clip_Character_Precis, Clip_Embedded, Clip_Mask, Clip_TT_Always, Clip_Default_Precis - рекомендуется, Clip_LH_Angles, Clip_Stroke_Precis);

LfQuality - определяет качество прорисовки (Default_Quality, draft_Quality, Proof_Quality);

LfPitchAndFamily - в четырех младших разрядах указывается тип шрифта, в четырех старших его семейство;

LfFaceName - имя гарнитуры шрифта.

Следующий код показывает пример заполнения структуры LF типа TLogFont параметрами шрифта: 
// Определяем параметры нового шрифта
FillChar(LF, SizeOf(LF), 0) ;
with LF do
  begin
  lfHeight := 20; // высота
  lfWeight := fw_Normal; // жирность
  lfUnderline := 1; // режим подчеркивания включен
  lfEscapement := 450; // выводим под 45 градусов к горизонтали
  StrPCopy(lfFaceName, 'Courier New Cyr'); // за базу берем шрифт Courier
  end; 

Переменная LF должна быть до этого описана как TLogFont. 

Сам шрифт создается примерно так (для формы Form1): 
with Form1.Canvas do
  begin
  // Создаем шрифт
  Fnt := CreateFontIndirect(LF) ;
  // Присваиваем его дескриптор шрифту канвы
  Font.Handle := Fnt; end 

Переменная Fnt должна иметь тип HFont. 

Приведу пример кода вывода текста под углом (метод Paint для формы Form1): 
procedure TForm1.FormPaint(Sender: TObject);
var
  LF: TLogFont;
  Fnt: HFont;
const
  Text = 'Это текст, написанный методами API';
begin
  // Определяем параметры нового шрифта
  FillChar(LF, SizeOf(LF), 0) ;
  with LF do
  begin
  lfHeight := 20;
  lfWeight := fw_Normal;
  lfUnderline := 1;
  lfEscapement := 450;
  StrPCopy(lfFaceName, 'Courier New Cyr');
  end;
  with Form1.Canvas do
  begin
  // Создаем шрифт
  Fnt := CreateFontIndirect(LF) ;
  // Присваиваем его дескриптор шрифту канвы
  Font.Handle := Fnt;
  // Выводим текст 
  TextOut(0, 300, Text);
  DeleteObject(Fnt); // Удаляем шрифт
  end;
end; 

Надеюсь, приведенные примеры достаточно ясно отражают суть использования API для вывода текста. Функции работы с фоном я опустил и некоторые другие - не хочу писать о том, чего сам не использовал. Я написал компонент Дельфи, использующий API для вывода текста, который можно скачать ниже.

delphiplus
Андрей Садовой

Категория: Разное | Добавил: Himik (03.06.2009)
Просмотров: 828 | Рейтинг: 0.0/0 |
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Copyright Himik © 2020 Хостинг от uCoz