怎样在canvas上显示上宽下窄的“梯形”汉字?(50分)

  • 主题发起人 主题发起人 Liyue
  • 开始时间 开始时间
L

Liyue

Unregistered / Unconfirmed
GUEST, unregistred user!
怎样在canvas上显示上宽下窄的“梯形”汉字?
什么函数可以清除canvas上已经画上的内容?(初等问题)
谢谢!!!
 
1.先将正常文字写到一个中间bitmap上, 然后对这个bitmap进行变形处理, 再将它copy到
Canvas上。
2.FillRect
 
清除画布上的内容,我定义过程:
procedure ClearCanvas(MyCanvas : TCanvas);
begin
with MyCanvas do
begin
Brush.Color := clWhite;
Brush.Style := bsSolid;
Pen.Color :=clWhite;
Pen.Style := psSolid;
end;
end;
 
with Canvas do begin
Brush.Color := clWhite;
Brush.Style := bsSolid;
FillRect(ClipRect);
end;
 
是用Path比较好吧
 
多人接受答案了。
 
后退
顶部