Delphi利用Windows GDI實現文字傾斜

procedure TForm1.FormPaint(Sender: TObject);
var
  FLogFont: tagLogFontW;
  hTempFont, hPrevFont: HFONT; //字體句柄
  hTempDC: HDC; //設備描述表或圖形設備句柄
  TempString: string; //輸出的文字
begin
  FLogFont.lfHeight := 10; //字高
  FLogFont.lfWidth := 10; //字寬
  FLogFont.lfWeight := 1;  //字體筆劃粗細程度
  FLogFont.lfUnderline := 0; //沒有下劃線
  FLogFont.lfStrikeOut := 0; //沒有刪除線
  FLogFont.lfItalic := 0; //斜體效果否
  FLogFont.lfCharSet := GB2312_CHARSET; //字符集
  FLogfont.lfEscapement := 450; //傾斜度
  // FLogFont.lfOrientation := 450;  //方向與傾斜度取值同
  FLogFont.lfFaceName := '宋體';//字體名稱
  //建立邏輯字體
  hTempFont := CreateFontIndirect(FLogFont);
  TempString := '測試';

  hTempDC := GetDC(Handle); //取出窗口設備的當前字體，並替換爲新字體
  hPrevFont := SelectObject(hTempDC, hTempFont);//設置設備窗口的文字色彩
  SetTextColor(hTempDc, clRed);
  TextOut(hTempDc, 200 , 200, PChar(TempString), Length(TempString));
  SelectObject(hTempDc, hPrevFont);
  DeleteObject(hTempFont);
  ReleaseDC(Handle, hTempDC);
end;