Функция SetTextAlign

Declare Function SetTextAlign Lib "gdi32" (ByVal hdc As Long, ByVal wFlags As Long) As Long
SetTextAlign задает режим выравнивания текста на контексте устройства и устанавливает текущую точку для вывода текста

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

В успешном случае функция возвращает значения флагов выравнивания текста (Смотри функцию GetTextAlign). В случае ошибки возвращается GDI_ERROR (Windows NT/2000: используйте GetLastError для получения кода ошибки)

Параметры

hdc
Контекст устройства
wFlags
Флаги, устанавливающие режимы выравнивания. (Смотри функцию GetTextAlign)

Пример

' Выводим текст "Русский_Проект" на Form1 в точке (100,50).
' Центрируем текст по горизонтали относительно этой точки
Dim retval As Long ' возвращаемое значение

retval = SetTextAlign(Form1.hDC, TA_CENTER Or TA_TOP Or TA_NOUPDATECP)
' выводим текст
retval = TextOut(Form1.hDC, 100, 50, "Русский_Проект", 13)

Смотри также

GetTextAlign, TextOut

Категория

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