如何将几段文字（含英、中文）显示到Canvas上： (100分)

Z

zouming

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-19

• #1

要求：1、在一行里能够按相等间隔显示，如果是英文（含数字），能进行紧缩显示。
2、能进行分段、分行显示。
3、效果和word接近。

 

N

NATASHA

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-19

• #2

自己慢慢画,用DrawText

 

R

realLearning

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-19

• #3

用DrawText慢慢画

 

Z

zouming

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-19

• #4

但如何识别中英文

 

R

realLearning

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-19

• #5

Ord(Char)>128

 

Z

zouming

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-20

• #6

如果是一个个字符进行显示，是用textout()还是用drawtext()好？

 

Z

zouming

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-20

• #7

哪里有源码？

 

P

pihome

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-20

• #8

参考我这段代码，效率可能不是很高 []
procedure DrawCanvasText(Canvas: TCanvas;
Rect: TRect;
Str: String;
BkColor: TColor;
TabWidth: Integer = 8);
var
i, j: Integer;
tmpStr, tmpStr1: String;
sX,sY: Integer;
Len: Integer;
WriteEnable: Boolean;
begin
if Str='' then
Exit;
Str:=StringReplace(Str,#13#10,#13,[rfReplaceAll]);
if RightStr(Str,1)<>#13 then
Str:=Str+#13;
with Rect,Canvasdo
begin
Brush.Style:=bsSolid;
Brush.Color:=BkColor;
FillRect(Rect);
Brush.Style:=bsClear;
sY:=Top;
Len:=Length(Str);
WriteEnable:=False;
i:=0;
while(i<=Len)do
begin
Inc(i);
if Str=#13 then
WriteEnable:=True
else
begin
if Str=#9 then
tmpStr:=tmpStr+StringOfChar(' ',TabWidth)
else
begin
tmpStr:=tmpStr+Str;
if Byte(Str)>=$A0 then
begin
tmpStr:=tmpStr+Str[i+1];
Inc(i);
end;
end;

if (TextWidth(tmpStr)>Right-Left) and (not (Str in [#9,' '])) then
begin
WriteEnable:=True;
if tmpStr[Length(tmpStr)]>=Char($A0) then
begin
tmpStr1:=Copy(tmpStr,Length(tmpStr)-1,2);
tmpStr:=Copy(tmpStr,1,Length(tmpStr)-2);
end
else
begin
for j:=Length(tmpStr)-1do
wnto 1do
begin
if (tmpStr[j]=' ') or (tmpStr[j]>=Char($A0)) then
begin
tmpStr1:=Copy(tmpStr,j+1,Length(tmpStr)-j);
tmpStr:=Copy(tmpStr,1,j);
break;
end;
end;
if j=0 then
begin
tmpStr1:=Str;
tmpStr:=Copy(tmpStr,1,Length(tmpStr)-1);
end;
end;
end;
end;

if WriteEnable then
begin
WriteEnable:=False;
if (sY+TextHeight(tmpStr+' ')>Bottom) then
Exit;
sX:=Left;
if tmpStr<>'' then
TextRect(Rect,sX,sY,tmpStr);
sY:=sY+TextHeight(tmpStr+' ');
if tmpStr1<>'' then
begin
tmpStr:=tmpStr1;
tmpStr1:='';
end
else
tmpStr:='';
end
end;
end;
end;

 

Z

zouming

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-24

• #9

有源码者分高，谁还有源码？

 

Z

zouming

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-28

• #10

textout /drawtext 有什么区别（在windows里调用什么核心函数）？

 

5

52free

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-29

• #11

textout只能简单的显示文本
而drawtext可以带格式的显示，比如说居中对齐.....

 

Z

zouming

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-03

• #12

请问extTextOut()如何使用，有实例吗？

 

J

jiangxiancheng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-04

• #13

1。只是等间距，那宋体等字体是等宽字体，没有问题，如果是自定义间距，还不太清楚。
2。DrawText完全可以分行、分段显示
3。与Word差不多。这个比较复杂，主要是字距，行距的问题。不过，用DrawTextEx
可能有些帮助。