FMX探索之IMAGE控件上输出

来源：互联网发布：数据统治世界百度云编辑：程序博客网时间：2024/06/08 19:59

承上篇

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

大功告成！

0 0