🚀 go-pugleaf

void __fastcall RotateText( AnsiString Text, TCanvas *Canvas,  int rotation)
{
  TLogFont Log;
  HFONT HFnt;

  //retrieve current font settings:
  GetObject (Canvas->Font->Handle, sizeof(Log), &Log);

  //Apply rotation of n deg.
  Log.lfEscapement = rotation *10;
  Log.lfOutPrecision = OUT_TT_ONLY_PRECIS;
  HFnt = CreateFontIndirect (&Log);

  //create a new font based upon new settings
  SelectObject (Canvas->Handle, HFnt);

  //sample text
  TextOut (Canvas->Handle, 100, 100, &Text[1], Text.Length());

  //free resources
  DeleteObject ( HFnt );
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   Canvas->Font->Color = clBlue;
   Canvas->Font->Size = 24;
   RotateText( "Vertical", Canvas, 45);
}


-- 
Best Regards,
Vladimir Stefanovic
"Renald Yazmir" <renald@partmaker.com> wrote in message 
news:4611462d@newsgroups.borland.com...
> Hello,
>
> I need to rotate the text by 90, 180, 270 degrees.
> Does anyone know how to do it by using standard windows API?
>
>
> Thank you
> Rony.
>