Delphi利用Windows GDI实现文字倾斜

2019独角兽企业重金招聘Python工程师标准>>>

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;

转载于:https://my.oschina.net/u/582827/blog/232720

Delphi利用Windows GDI实现文字倾斜相关推荐

Windows GDI和GDI+编程实例剖析(1)
Windows GDI和GDI+编程实例剖析(1) 作者:宋宝华 e-mail:21cnbao@21cn.com 1.基本概念 GDI在Windows中定义为Graphics Device Inte ...
原创]Windows Gdi入门初级应用（VC SDK）
原创]Windows Gdi入门初级应用(VC SDK) 好久没发贴了,今天手痒痒,发一个. GDI的绘图函数基本上都是有状态的,所有的函数都要求一个HDC类型的句柄. 这个HDC的获得有几个途径Be ...
Microsoft Tech Summit 2018 课程简述：利用 Windows 新特性开发出更好的手绘视频应用...
概述 Microsoft Tech Summit 2018 微软技术暨生态大会将于10月24日至27日在上海世博中心举行,这也会是国内举办的最后一届 Tech Summit,2019 年开始会以 Mi ...
GetBitmapBits和GetDIBits的区别(Windows GDI)
Windows GDI中有两个用来得到位图图像数据的API,分别是GetBitmapBits和GetDIBits; 按照MSDN的解释,前者是用来得到设备独立位图的BITS, 后者是得到兼容位图的BI ...
windows GDI+ 绘图的简单封装
由于用mfc经常需要在界面上进行一些绘制输出,所以用windows GDI比较多,但是用windowsGDI 绘图比较麻烦,刚开始学的时候还经常弄不清一堆DC, Object, HANDLE到底是干啥 ...
DELPHI利用WMI获取CPU参数
DELPHI利用WMI获取CPU参数,实现的方法与之前所写文章网卡参数获取一致,这里不再重复,下面将CPU的参数表附上 procedure TFrmMain.RzGroup1Items2Click(S ...
智能手机是个神马玩意：Windows Phone开发“文字+视频”教程（一）
Windows Phone开发"文字+视频"系列教程开篇: 移动开发是未来的一个新的浪潮,对于.Net开发者来说现在开始学习Windows Phone开发技术是一个非常明智的选择. ...
利用Windows自带服务架设免费邮件服务器
在Windows Server 2003中带有完整的SMTP和POP3服务,并且能够支持有域和无域两种环境,非常便于中小型企业实施.今天,小编就以Windows Server 2003企业版为例带领大 ...
利用Windows Server Backup备份数据进行域控裸机还原
在<利用Windows Server Backup功能备份活动目录 >一文中我讲解了如何进利用Windows Server Backup功能来对域控进行备份,在本次的博文中,我们就一起来看 ...

Delphi利用Windows GDI实现文字倾斜

Delphi利用Windows GDI实现文字倾斜相关推荐

最新文章

热门文章