Canvas输出汉字字符串，如何竖排显示？

[kt65]

Canvas输出汉字字符串，如何竖排显示？

[GeoPhoenix]

使用Windows API,下面是一个例子，你可参考一下
{
TFont *pfont;
TLogFont lf;
Canvas->Font->Name = "Arial";
Canvas->Font->Size = 24;
Canvas->Font->Color = clRed;
pfont = new TFont;
pfont->Assign(Canvas->Font);
::GetObject(pfont->Handle,sizeof(lf),&lf);
lf.lfEscapement = 0 ;
lf.lfOrientation = 0;
lf.lfHeight = 25;
SetNkMode(Canvas->Handle,TRANSPARENT);
for(int i= 0;i< 9;i++)
{
pfont->Handle = ::CreateFontIndirect(&lf);
Canvas->Font->Assign(pfont);
Canvs->TextOut(Width/2,Height/2,"旋转征文字体");
lf.lfEscapement +=450;
lf.lfOrientatio +=450;
}

将以上程序放到OnPaint事件里，编译以下，您就了解了

[kt65]

谢谢！

[weibz0525]

修改了一下,这个代码应该没问题了,另外在每行末尾加一个'\n'不行吗？

void __fastcall TForm1::FormPaint(TObject *Sender)
{
TFont *pfont;
TLogFont lf;
Canvas->Font->Name = "Arial";
Canvas->Font->Size = 24;
Canvas->Font->Color = clRed;
pfont = new TFont;
pfont->Assign(Canvas->Font);
::GetObject(pfont->Handle,sizeof(lf),&lf);
lf.lfEscapement = 0 ;
lf.lfOrientation = 0;
lf.lfHeight = 25;
SetBkMode(Canvas->Handle,TRANSPARENT);
for(int i= 0;i< 9;i++)
{
pfont->Handle = ::CreateFontIndirect(&lf);
Canvas->Font->Assign(pfont);
Canvas->TextOut(Width/2,Height/2,"旋转征文字体");
lf.lfEscapement +=450;
lf.lfOrientation +=450;
}
}

[halibut]

学习!

[痞子酷]

hao!!!!!