在BCB中如何实现显示或打印字型的变化？

[CCLIS]

在BCB的TFONT中，只有字体的Height或Size属性可以修改，显示的都是方块汉字，如果我想显示长形或扁形的汉字，应该如何编程？

[CCLIS]

哦，都要调用WINDOWS 的API 函数，我想用BCB里面的TFONT来更改，怎么没想到API，呵呵，笨蛋一个。

[耙子]

请你参考
CreateFont
The CreateFont function creates a logical font with the specified characteristics. The logical font can subsequently be selected as the font for any device.

HFONT CreateFont(
int nHeight, // height of font
int nWidth, // average character width
int nEscapement, // angle of escapement
int nOrientation, // base-line orientation angle
int fnWeight, // font weight
DWORD fdwItalic, // italic attribute option
DWORD fdwUnderline, // underline attribute option
DWORD fdwStrikeOut, // strikeout attribute option
DWORD fdwCharSet, // character set identifier
DWORD fdwOutputPrecision, // output precision
DWORD fdwClipPrecision, // clipping precision
DWORD fdwQuality, // output quality
DWORD fdwPitchAndFamily, // pitch and family
LPCTSTR lpszFace // typeface name
);
他就是你要找的东西。别告诉我看不懂，否则你的……

[AP]

//绘制自定文本
Procedure TNetMap.TextOutAngle(x,y,aAngle,aHeight:LongInt; FontName,txt:String);
Var NewFont,OldFont:LongInt;
DC:hDC;
Begin
If Length(txt)=0 Then Exit;

dc:=DrawCanvas.Handle;
NewFont:=CreateFont(aheight,0,aAngle*10,0,fw_normal,0,0,0,1,4,$10,DEFAULT_QUALITY,4,PChar(Fontname));
OldFont:=SelectObject(dc,NewFont);

TextOut(dc,x,y,PChar(txt),Length(txt));

SelectObject(dc,OldFont);
DeleteObject(NewFont);
End;

需要改变宽高比的话自己修改一下