文件名称：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)