Canvas上的字符串怎么换行？

[linzi]

我要往一个Canvas上写一串字符，但是字符串的长度超过了Canvas的宽度，怎么实现让字符串自动换行？有简单的方法吗？

[EP外星人]

写两句话。

[数字蛋糕]

使用DrawText这一API，看看帮助后你会有很多收获的。

[hansonboy]

procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
str1:string;
begin
str1:=edit1.Text;
j:=0;
for i:=0 to length(str1)-1 do
begin
if j=11 then
begin
insert(#13,str1,I);
j:=1
end
else
inc(j);
end;
showmessage(str1);
end;

[programlover]

cao!
ExtTextOut

[zgamer]

String1#13#10String2

[linzi]

还有人知道吗？

[xzgyb]

int DrawText(

HDC hDC, // handle to device context
LPCTSTR lpString, // pointer to string to draw
int nCount, // string length, in characters
LPRECT lpRect, // pointer to structure with formatting dimensions
UINT uFormat // text-drawing flags
);
uFormat选DT_WORDBREAK为自动换行
好像是

[linzi]

DT_WORDBREAK好象不行

[xzgyb]

是吗,我过会试试

[hansonboy]

我的方法不行吗? 你只要把它改成一条涵数,画布输出前调用一下这条涵数就可以了

[saimaya]

用Chr(13)啊

[linzi]

to hansonboy(良):
我怎么知道该在哪个字符处换行？

[hansonboy]

你真系厅怪啦,你想在那里换行就可以在那里换行啦, 如果你想每行50个字符,把上面的10改成50就可以了

[eastxiang]

up

[xzgyb]

DrawText好用

[weixiaohua]

#10

[telstar]

用textRect，指定你想输出的方框他就可以自动换行

[王集鹄]

var
I: Integer;
H: Integer;
begin
H := Canvas.TextHeight('|');
for I := 0 to Memo1.Lines.Count - 1 do
Canvas.TextOut(I * H, 0, Memo1.Lines[I]);
end;

[comanche]

来迟， DrawText 可以， Canvas 中有 TextRect可用

[数字蛋糕]

DrawText确实有用，可惜好像只能在空格处自动换行。