Arsip: Menampilkan TEKS dengan sudut kemiringan tertentu di canvas

  var
LogFont  :  TLogFont;
...
GetObject( Canvas.Font.Handle,  SizeOf(TLogFont),  @LogFont);

//  dalam 1/10 derajat, 450  =  45  derajat
LogFont.lfEscapement  :=  Angle*10;
Canvas.Font.Handle  :=  CreateFontIndirect(LogFont);