承上篇
话说直接在窗体上绘制有欠美观,那就画在IMAGE控件上吧。拖一个IMAGE控件出来,改下代码:
procedure TForm1.Button2Click(Sender: TObject); begin Canvas.BeginScene(); Image1.Canvas.FillText(RectF(0,0,100,30),'Hello World!',false,1,[],TTextAlign.Leading ,TTextAlign.Center ); Canvas.EndScene; end;
画是画出来了,但是不是从image左上角开始画的,而是从Fom左上角开始的,看来这样不行,那改下吧
procedure TForm1.Button2Click(Sender: TObject); begin Canvas.BeginScene(); Image1.Bitmap.Canvas.FillText(RectF(0,0,100,30),'Hello World!',false,1,[],TTextAlign.Leading ,TTextAlign.Center ); Canvas.EndScene; end;
出错了!Bitmap是空的,还没创建的,不出错才怪了,那好吧,自己创建吧
bmp:=TBitmap.Create; bmp.SetSize(200,200); bmp.Canvas.BeginScene(); bmp.Canvas.FillText(RectF(0,0,100,30),'Hello World!',false,1,[],TTextAlign.Leading ,TTextAlign.Center ); bmp.Canvas.EndScene; Image1.Bitmap.Assign(bmp);
大功告成!
发布者:全栈程序员-站长,转载请注明出处:https://javaforall.net/230463.html原文链接:https://javaforall.net
