L Liyue Unregistered / Unconfirmed GUEST, unregistred user! 2001-01-10 #1 怎样在canvas上显示上宽下窄的“梯形”汉字? 什么函数可以清除canvas上已经画上的内容?(初等问题) 谢谢!!!
E eYes. Unregistered / Unconfirmed GUEST, unregistred user! 2001-01-10 #2 1.先将正常文字写到一个中间bitmap上, 然后对这个bitmap进行变形处理, 再将它copy到 Canvas上。 2.FillRect
卷 卷起千堆雪tyn Unregistered / Unconfirmed GUEST, unregistred user! 2001-01-10 #3 清除画布上的内容,我定义过程: procedure ClearCanvas(MyCanvas : TCanvas); begin with MyCanvas do begin Brush.Color := clWhite; Brush.Style := bsSolid; Pen.Color :=clWhite; Pen.Style := psSolid; end; end;
清除画布上的内容,我定义过程: procedure ClearCanvas(MyCanvas : TCanvas); begin with MyCanvas do begin Brush.Color := clWhite; Brush.Style := bsSolid; Pen.Color :=clWhite; Pen.Style := psSolid; end; end;
J JohnsonGuo Unregistered / Unconfirmed GUEST, unregistred user! 2001-01-10 #4 with Canvas do begin Brush.Color := clWhite; Brush.Style := bsSolid; FillRect(ClipRect); end;