TLogFont LogFont;
GetObject(bmp->Canvas->Font->Handle, sizeof(LogFont), &LogFont);
LogFont.lfQuality = NONANTIALIASED_QUALITY;
bmp->Canvas->Font->Handle = CreateFontIndirect(&LogFont);

예전에 찾아뒀던건데 출처는 가물가물하네요~

utime.김성하 님이 쓰신 글 :
: Canvas 함수중 TextOut이란 함수가 있습니다.
:
: 근데 이 함수를 사용하기 전에 Font  를 True타입의 폰트를 주고 TextOut을 하면 글자가 AntiAliasing이 약간 먹고 그려집니다.
: 그것도 이쁘게 말이죠~
:
: 그런데 이렇게 나오지 않게 하는 방법을 알고 싶습니다.
:
:     graphics->SetTextRenderingHint(Gdiplus::TextRenderingHintSingleBitPerPixelGridFit);
:
: 위 함수는 GDIPlus를 사용했는데 위와 같이 주고
:
: graphics.DrawString 했더니 AntiAliasing이 안먹고 깔끔하게 만들어 지는 겁니다.
:
:
: 사정상 GDIPlus는 사용을 못하는데 TCanvas에서 위와 같은 효과를 주고 글자를 그릴 수 있는 방법을 알고 계시면
: 꼭 도움을 주시기 바랍니다.