Текст по вертикали

[Andrey Fedorov]

Сейчас вывожу текст используя DrawText. Сейчас понадобилось добавить опцию позволяющую выводить его вертикально. Как это можно сделать не особо куроча программу?

[Lumen]

CreateFontIndirect?

[Andrey Fedorov]

CreateFontIndirect?

Да похоже - ее и копаю, но что-то не получается.
Хорошо бы примерчик...

[Lumen]

Код: Выделить всё

'In general section
Private Declare Function CreateFontIndirect Lib "gdi32" Alias "CreateFontIndirectA" (lpLogFont As LOGFONT) As Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Private Const LF_FACESIZE = 32
Private Type LOGFONT
    lfHeight As Long
    lfWidth As Long
    lfEscapement As Long
    lfOrientation As Long
    lfWeight As Long
    lfItalic As Byte
    lfUnderline As Byte
    lfStrikeOut As Byte
    lfCharSet As Byte
    lfOutPrecision As Byte
    lfClipPrecision As Byte
    lfQuality As Byte
    lfPitchAndFamily As Byte
    lfFaceName(LF_FACESIZE) As Byte
End Type
'In form
Private Sub Form_Load()
    'KPD-Team 1998
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net

    Dim RotateMe As LOGFONT
    'Set graphic-mode to 'persistent graphic'
    Me.AutoRedraw = True
    'Rotate degrees
    Deg = 270
    'Size (in points)
    Size = 20
    'Set the rotation degree
    RotateMe.lfEscapement = Deg * 10
    'Set the height of the font
    RotateMe.lfHeight = (Size * -20) / Screen.TwipsPerPixelY
    'Create the font
    rFont = CreateFontIndirect(RotateMe)
    'Select the font n the Form's device context
    Curent = SelectObject(Me.hdc, rFont)
    'Print some text ...
    Me.CurrentX = 500
    Me.CurrentY = 200
    Me.Print "hello world"
End Sub


[Lumen]

Может вызывать DrawText последним параметром DT_CENTER?

[Andrey Fedorov]

Может вызывать DrawText последним параметром DT_CENTER?

Атрибуты вывода:

DT_VCENTER + DT_WORD_ELLIPSIS + DT_SINGLELINE

Но вертикальный текст неверно центруется...

DT_CENTER - как-то не спасает. А точнее - с ним текст выводится куда-то вне региона и оттого не виден...

[Andrey Fedorov]

Дык в чем-же дело? Впечатление такое что в RECT координаты надо задавать по другому...

[Andrey Fedorov]

Приложен примитивный проектик с одной функцией. Если кто может - подскажите что поправить для правильного отображения вертикального текста...