以任意角度显示文字

var
源代码网推荐 LogFont: TLogFont;
源代码网推荐 theFont: TFont;
源代码网推荐 begin
源代码网推荐 with Form1.Canvas do
源代码网推荐 begin
源代码网推荐 Font.Name := "宋体";
源代码网推荐 Font.Size := 18;
源代码网推荐 Font.Color := clYellow;
源代码网推荐 theFont := TFont.Create;
源代码网推荐 theFont.Assign( Font );
源代码网推荐 GetObject( theFont.Handle, Sizeof(LogFont), @LogFont );
源代码网推荐 LogFont.lfEscapement := 450; // 45度
源代码网推荐 LogFont.lfOrientation := 450; // 45度
源代码网推荐 theFont.Handle := CreateFontIndirect( LogFont );
源代码网推荐 Font.Assign( theFont );
源代码网推荐 theFont.Free;
源代码网推荐 TextOut( X, Y, "Hello!" );
源代码网推荐 end;
源代码网推荐 end;