Установка свойств текста

[Alex Cones]

Чтобы вывести текст, используется TextOut.
А чтобы назначить тексту свойства что использовать?

Нужон шрифт Courier New, размер 10.

P.S. CreateFont, SendMessage(..., WM_SETFONT, hFont, 0); - Это оно?

[counter]

смотрите в сторону CreateFont

[Alex Cones]

Спасибо, создал и применил шрифт так:

  Application.FRMMain.IMGMain.Font := CreateFont(-9,        // Высота фонта
                         0,        // Ширина фонта
                         0,        // Угол отношения
                         0,        // Угол наклона
                         0,      // Ширина шрифта
                         0,        // Курсив
                         0,        // Подчеркивание
                         0,        // Перечеркивание
                         RUSSIAN_CHARSET,      // Идентификатор набора символов
                         OUT_DEFAULT_PRECIS,      // Точность вывода
                         CLIP_DEFAULT_PRECIS,    // Точность отсечения
                         DEFAULT_QUALITY,    // Качество вывода
                         FF_DONTCARE or DEFAULT_PITCH,  // Семейство и шаг
                         'Small Fonts');      // Имя шрифта 
SelectObject(Warehouse.Buffer.DC, Application.FRMMain.IMGMain.Font);