Delphi 实现倾斜文字.rar

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); 　　 //设置设备窗口的文字色彩