: 임펠리테리입니다.
:
: FAQ 게시판의 2번 글을 참고하세요.

그대로 코딩했는데 그냥 수평으로 출력되는군요.
lfEscapement의 값을 바꾸어도 변화가 없고... 코드에 대한 설명을
덧붙여 주실수는 없을까요?

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    Form1->Canvas->Font->Name = "Arial";
    Form1->Canvas->Font->Size = 24;
    TFont *tf = new TFont;
    tf->Assign(Form1->Canvas->Font);
    TLogFont lf;
    GetObject(tf->Handle, sizeof(lf), &lf);
    lf.lfEscapement = 450;
    lf.lfOrientation = 450;
    tf->Handle = CreateFontIndirect(&lf);
    Form1->Canvas->Font->Assign(tf);
    delete tf;
    Form1->Canvas->TextOut(20, Height / 2, "Rotated Text!");
}