FAQ » Grafika

Jak narysować tekst pod kątem

Posłuż się takim kodem:
procedure TForm1.Button1Click(Sender: TObject);
const
  Kat = 90;
var
  LF : TLogFont;
begin
  Canvas.Font.Size := 24;
  GetObject(Canvas.Font.Handle, SizeOf(TLogFont), @lf);
 
  lf.lfEscapement := Kat * 10;
  lf.lfOutPrecision := OUT_TT_ONLY_PRECIS;
 
  Canvas.Font.Handle := CreateFontIndirect(LF);
 
  SetGraphicsMode(Canvas.Handle, GM_ADVANCED);
  Canvas.Brush.Style := bsClear;
 
  Canvas.TextOut(20, 200, 'Hello World!');
end;