斜体字的打印问题 |
尚未結案
|
zenghs
一般會員 發表:13 回覆:9 積分:9 註冊:2002-11-01 發送簡訊給我 |
各位高手,我通过GDI建立的斜体字(LogFont : TLogFont),如何打印到打印机上?以下代码供参考:
with Image1.Canvas do
begin
{ 设置窗体画布的字体 }
Font.Assign(btnFont.Font);
//Font.Name := 'Arial'; { 字体 }
//Font.Size := 18; { 字号 }
//Font.Color:= clBackground; { 颜色 }
{ 创建新字体 }
theFont := TFont.Create;
theFont.Assign(Font); { 新字体继承窗体画布字体的属性 }
{ 为新字体设置旋转属性 }
GetObject(theFont.Handle, sizeof(LogFont), @LogFont);
LogFont.lfEscapement:=450
LogFont.lfOrientation:=450;
LogFont.lfHeight:=20;//字体高度
Logfont.lfWidth:=40; //字体宽度
theFont.Handle := CreateFontIndirect(LogFont);
Font.Assign(theFont);
theFont.Free ;
TextOut(10,image1.Height div 2, '测试文字') ;
end; 發表人 - zenghs 於 2004/03/26 09:29:18
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |