Класс TCanvas - Программирование от RIN.RU

Дополнительные возможности API-функций

Замечу, что все богатство изобразительных возможностей Windows далеко не исчерпывается набором свойств и методов класса TCanvas: этот класс инкапсулирует лишь наиболее популярные приемы работы с чертежными инструментами. В этом разделе перечисляются некоторые функции Windows, которые не инкапсулирует класс TCanvas и которые способны значительно разнообразить текстовый вывод (именно он наиболее обеднен узкими рамками TCanvas).

**Некоторые текстовые функции API**
type TLogFont = record IfHeight: Integer; IfWidth: Integer; IfEsapment: Integer; IfOrientation: Integer; IfWeight: Integer; If Italic: Byte; IfUnderline: Byte; IfStrikeOut:Byte; IfCharSet: Byte; IfOutPrecision: Byte; IfClipPrecision: Byte; IfQuality: Byte; IfPitchAndFamily: Byte; 1fFaceName: PChar ; end; function CreateFont(Font: TLogFont): hFont;	Создает новый шрифт на основе данных в параметре Font. Назначение полей структуры TLogFont см. после таблицы
function DrawText(DC:hDC; pText: PChar; varRect:'TRect; Format:UINT): Integer;	В прямоугольнике Rect выводит многострочный текст, на который указывает pText. Параметр Format используется для форматирования (см.ниже)
function ExtTextOut(DC: hDC; X, Y: Integer; Options: Integer; Rect: TRect; pText: PChar; Count: Integer; PX: PInteger): Bool	Выводит текст с нестандартными межсимвольными расстояниями: X, Y - верхняя левая точка текста; Options - параметр, управляющий выводом (см. ниже); Rect - ограничивающий прямоугольник; pText - указатель на строку вывода; Count - количество выводимых символов; px - указатель на массивцелочисленных значений, определяющих межсимвольные расстояния: 1-й параметр - расстояние от 1-го до 2-го символа; 2-й параметр- расстояние от 2-го до 3-го символа и т. д.; если какой-то параметр равен 0, используется умалчиваемое межсимвольное расстояние
function GetBkColor(DC:hDC): TColor;	Возвращает цвет фона
function GetBkMode(DC:hDC) : Integer;	Возвращает режим прорисовки фона: Opaque -фон прорисовывается заново при выводе текста; Transparent - фон не прорисовывается
function GetTextAlign(DC: hDC) : Integer;	Возвращает выравнивание текста
function GetTextCharacterExtra(DC: hDC): Integer;	Возвращает межсимвольное расстояние
function SetBkColor(DC:hDC; Color: TColor): TColor;	Устанавливает новый цвет фона и возвращает старый, если обращение успешно
function SetBkMode(DC:hDC; Mode: Integer): Integer;	Устанавливает новый режим прорисовки фона и возвращает старый, если операция успешна
function SetTextAlign(DC: hDC; Flags: Integer): Integer;	Устанавливает новое выравнивание текста и возвращает старое, если вызов успешен
function SetTextCharacterExtra(DC: hDC; CharExtra: Integer): Integer;	Устанавливает новое межсимвольное расстояние и возвращает старое, если вызов успешен

Отдельные поля структуры TLogFont для функции CreateFontIndirect имеют следующий смысл:

procedure TForm1.FormPaint(Sender:TObject) ; 
var 
  X: Integer; 
  LF: TLogFont; 
  Fnt: HFont; 
const 
  Text = 'Лучшая в мире система программирования'; 
begin 
  // Определяем параметры нового шрифта 
  FillChar(LF, SizeOf(LF), 0) ; 
  with LF do 
   begin 
     If Height := 20; 
     If Weight := fw_Normal; 
     If Underline := 1; 
     If Escapement := 450; 
     StrPCopy(lfFaceName, 'Courier New Cyr'); 
   end; 
 with Forml.Canvas do 
   begin 
     // Создаем шрифт 
     Fnt := CreateFontIndirect(LF) ; 
     // Присваиваем его дескриптор шрифту канвы 
     Font.Handle := Fnt; 
     // Выводим текст под углом +45 градусов 
     Text0ut(0, 300, Text); 
     X := TextWidth(Text) ; 
     DeleteObject(Fnt); // Удаляем ненужный шрифт 
    // Изменяем параметры шрифта 
       with LF do 
          begin 
            If Height := 90; 
            IfEscapement := -900; 
            IfWeight := fw_Heavy; 
            StrPCopy(LF.lfFaceName, 'Arial Cyr'); 
          end; 
       Fnt := CreateFontIndirect(LF); // Создаем новый шрифт 
       Font.Handle := Fnt; 
       Font.Color := clRed; 
       // Выводим с наклоном -90 градусов 
      TextOut(X-10, 10, 'Delphi 5'); 
      DeleteObject(Fnt); // Удаляем ненужный шрифт 
  end; 
end;

Параметр Format функции DrawText может содержать один или несколько следующих флагов.

**Возможные значения параметра Format функции DrawText**
dt Bottom	Текст прижимается к нижней части области Rect
dtCalcRect	Разрешает динамически изменять размеры области Rect
dtCenter	Текст центрируется по горизонтали
dtEditControl	Функция дублирует свойства отображения многострочного тестового редактора. В частности, таким же способом вычисляется средняя ширина символа и не показывается частично видимая последняя строка
dtExpandTabs	Символы табуляции заменяются пробелами
dt ExternalLeading	В высоту строки включается высота межстрочного интервала
dtLeft	Текст прижимается к левой части области Rect
dtNoClip	Текст не отсекается границами Rect
dtNoPrefix	Символы & не заменяются подчеркиванием
dtRight	Текст прижимается к правой части области Rect
dt SingleLine	Весь текст выводится единственной строкой, символы EOLN игнорируются
dt TabsStop	Символы табуляции не заменяются пробелами
dtTop	Текст прижимается к верхней части области R'ect
dtVCenter	Текст центрируется по вертикали
dtWordBreak	Разрешает переход на новую строку при достижении пра вой границы Rect; разрыв строки - на границе слова; символы EOLN также переводят вывод на следующую строку

Если установлен флаг dt_caicRect, функция изменяет высоту и ширину прямоугольника так, чтобы вывести весь текст, но сам текст не выводится. Если в тексте несколько строк, ширина вывода не меняется. Функция возвращает истинную высоту прямоугольника вывода.

Параметр options функции ExtTextOut может быть комбинацией следующих значений:

procedure TForm1.FormPaint(Sender: TObject); 
var 
  Y: Integer; 
  Blue: Byte; 
const 
  Text = 'Фон для программы Setup.exe'; 
begin 
  with Forml.Canvas do 
    begin 
     for Y := 0 to Forml.Height-1 do 
       begin 
         // Уменьшаем интенсивность цвета с ростом ординаты Y 
         Blue := Round($FF*(Forml.Height-Y)/Forml.Height); 
         Pen.Color := RGB(0, 0, Blue); // Формируем цвет 
         MoveTo(0, Y); // Чертим линию 
         LineTo(Forml.Width-1, Y) ; 
       end; // 
     for Y := 0 to Forml.Height-1 do Font.Size := 32; 
     Font.Style := [fsBold, fsltalic, fsUnderline]; 
     Font.Name := 'Times New Roman"; 
     // Это обращение накладывает текст на фон SetBkMode(Handle, Transparent); 
     // Сначала выводим тень надписи 
     Font.Color := clBlack; 
     Text0ut(40, 30, Text); 
     // Теперь саму надпись Font.Color := clWhite; 
     Text0ut(36, 26, Text) 
    end; // with Forml.Canvas do 
end;

Замечу, что любая заливка фона, в том числе его прорисовка, реализуется с помощью кисти. Поэтому отказаться от прорисовки фона текста можно, если установить стиль кисти bsciear: вместо

SetBkMode(Handle, Transparent);

можно использовать

Brush.Style := bsClear;