아래 함수를 이용하시면 글자를 원하는 각도로 돌려줍니다.

폼에 Image1를 하나 놓으신 다음, Canvas->Color 등과, Font등을 맞추신 다음, 아래와 같이 호출하시면 됩니다.

  WriteText(Image1, "안녕하세요", 10, 70, 90);



void __fastcall TForm1::WriteText(TImage *CANVAS, String stText, int itX, int itY, int itAngle)
{

TLogFont               tlFont;


GetObject(CANVAS->Canvas->Font->Handle, sizeof(TLogFont), &tlFont);

tlFont.lfEscapement    = itAngle * 10;
tlFont.lfOutPrecision = OUT_TT_ONLY_PRECIS;

CANVAS->Canvas->Font->Handle = CreateFontIndirect(&tlFont);

CANVAS->Canvas->TextOut(itX, itY, stText);

DeleteObject(CANVAS->Canvas->Font->Handle);
CANVAS->Canvas->Font->Handle = 0;

}