Функция GetTextAlign

Declare Function GetTextAlign Lib "gdi32" (ByVal hdc As Long) As Long

Функция GetTextAlign получает текущие установки выравнивания текста для данного контекста устройства

Возвращаемое значение

В успешном случае функция возвращает значения флагов выравнивания текста:

TA_BASELINE = 24

Указанная точка задает базовую линию шрифта

TA_BOTTOM = 8

Указанная точка задает нижнию границу ограничивающего прямоугольника

TA_CENTER = 6

Выравнивание текста по центру ограничивающего прямоугольника

TA_LEFT = 0

Выравнивание текста по левому краю ограничивающего прямоугольника

TA_NOUPDATECP = 0

Текущие установки не используются при выводе нового текста

TA_RIGHT = 2

Выравнивание текста по правому краю ограничивающего прямоугольника

TA_RTLREADING = 256

Текст выводится справа-налево (для ивритских и арабских версий Windows)

TA_TOP = 0

Указанная точка задает верхнюю границу ограничивающего прямоугольника

TA_UPDATECP = 1

Используется текущая позиция контекста

Параметры

hdc

Контекст устройства

Пример

' Получим установки вывода текста
' для формы
Dim retval As Long
' Получаем установки выравнивания
retval = GetTextAlign(Form1.hDC)
If (retval And TA_RIGHT) = TA_RIGHT Then
  Debug.Print "Текст выравнен по правому краю"
ElseIf (retval And TA_CENTER) = TA_CENTER Then
  Debug.Print "Текст в центре формы"
Else
  Debug.Print "Текст выравнен по левому краю"
End If

Смотри также

SetTextAlign, TextOut

Категория

Шрифты и тексты