FMX探索之IMAGE控件上输出

最新推荐文章于 2023-03-05 12:54:59 发布

原创最新推荐文章于 2023-03-05 12:54:59 发布 · 1.2k 阅读

2 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#FMX绘图

FMX 专栏收录该内容

2 篇文章

订阅专栏

本文介绍了如何在Delphi中利用Image控件及其Bitmap进行文本绘制的过程，包括创建Bitmap、设置大小及绘制文本等关键步骤。

承上篇

话说直接在窗体上绘制有欠美观，那就画在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);

大功告成！