【文件属性】：
文件名称：Delphi 实现倾斜文字.rar
文件大小：5KB
文件格式：RAR
更新时间：2022-07-30 03:33:09
Delphi源码-字符处理
Delphi 实现文字倾斜效果，在窗体上显示出倾斜的文字， //设置字高
LogicFont.lfWidth := 40;
//设置字宽
LogicFont.lfWeight := 10;
//设置字体笔划粗细程度
LogicFont.lfUnderline := 0;
//设置下划线为没有
LogicFont.lfStrikeOut := 0;
//设置没有删除线
LogicFont.lfItalic := 0;
//设置不为斜体
LogicFont.lfCharSet := GB2312_CHARSET;
//设置字符集
LogicFont.lfEscapement := -StrToInt(Edit2.Text)*10;
LogicFont.lfOrientation := -StrToInt(Edit2.Text)*10;
//设置顺时针方向与X轴的夹角
LogicFont.lfFaceName := '宋体';
//设置字体名称
TempFont := CreateFontIndirect(LogicFont);
//创建逻辑字体
TempDC := GetDC(Handle);
//取得窗口的设备句柄
PrevFont := SelectObject(TempDC, TempFont);
//取出窗口设备的当前字体，并替换为新字体
SetTextColor(TempDC, clBlue);
//设置设备窗口的文字色彩
【文件预览】：
codesc.net
----显示倾斜文字()
--------Unit1.dfm(2KB)
--------Unit1.pas(2KB)
--------Unit1.dcu(5KB)
--------Project1.dpr(188B)