2019獨(dú)角獸企業(yè)重金招聘Python工程師標(biāo)準(zhǔn)>>>

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

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

轉(zhuǎn)載于:https://my.oschina.net/u/582827/blog/232720

總結(jié)

以上是生活随笔為你收集整理的Delphi利用Windows GDI实现文字倾斜的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。