BGRABitmap图像操作12：文本操作功能

来源：互联网发布：永久域名编辑：程序博客网时间：2024/05/21 14:57

http://wiki.lazarus.freepascal.org/BGRABitmap_tutorial_12

最基本的文本输出：

unit Unit1;{$mode objfpc}{$H+}interfaceuses  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,  BGRABitmap, BGRABitmapTypes;type  { TForm1 }  TForm1 = class(TForm)    procedure FormPaint(Sender: TObject);  private    { private declarations }  public    { public declarations }  end;var  Form1: TForm1;implementation{$R *.lfm}{ TForm1 }procedure TForm1.FormPaint(Sender: TObject);var  image: TBGRABitmap;  c: TBGRAPixel;begin  image := TBGRABitmap.Create(ClientWidth,ClientHeight, ColorToBGRA(ColorToRGB(clBtnFace)) );  c := ColorToBGRA(ColorToRGB(clBtnText)); //retrieve default text color  image.FontHeight := 30;  image.FontAntialias := true;  image.FontStyle := [fsBold];  image.TextOut(ClientWidth-95,75,'您好，中国！',c, taRightJustify);  image.SetPixel(5,5,c);  image.Draw(Canvas,0,0,True);  image.free;end;end.

0 0