请问各位大侠,TCanvas能输出竖直方向的文本吗?(在线等待...) ( 积分: 20 )

水

水边的汤姆

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-10

• #1

请问各位大侠,我想在TCustomPanel上沿屏幕的Y方向竖直向下输出文本,请问如何实现.

 

水

水边的汤姆

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-10

• #2

请问各位大侠,我想在TCustomPanel上沿屏幕的Y方向竖直向下输出文本,请问如何实现.

 

T

tata1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-10

• #3

procedure TForm1.DrawText(S:WideString);
Var i:Integer;
t:Integer;//字间距
begin
t:=10;
for i := 1 to Length(S) do
begin
Canvas.TextOut(5,i*(abs(Canvas.Font.Height)+t),S);
end;
end;

 

水

水边的汤姆

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-10

• #4

谢谢了兄弟。除了计算是不是没有更好的方法了~