아래 함수를 이용하시면 글자를 원하는 각도로 돌려줍니다.
폼에 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;
}
|