canvas画布的字体如何竖着写?

Question

需要在画布上输入一些汉字,如何才能让汉字竖着写???

Answer 1

呵呵……本人刚好实现此功能，马上给你！！！够兄弟吧！！！主要的思想就是每写一个字跳行，详细代码如下：
var
  a: array[0..100] of char;
  b: array[0..1] of char;
  i,j: integer;
begin
  text_x:=Mouse_X;
  text_y:=Mouse_Y;  //鼠标位置；
  strpcopy(a,Astring);//astring为你要写的字符串；
  j:=0;
  while (a[j]<>#0) do
  begin
    b[j mod 2]:=a[j];
    if (j mod 2=1) then
    begin
      Canvas.TextOut(text_x,text_y,b);
      text_y:=text_y+Canvas.TextHeight(b);
      Canvas.MoveTo(text_x,text_y);
    end;
    Inc(j);
  end;
end;接分咯！！！！！

Answer 2

建議采用WINDOWS的API，可以參考API說明文檔