BGRABitmap图像操作12：文本自动换行

最新推荐文章于 2025-02-28 15:18:05 发布

翻译最新推荐文章于 2025-02-28 15:18:05 发布 · 436 阅读

标签

#codetyphon #lazarus #TBGRABitmap #文本

收录于

Lazarus 专栏收录该内容

171 篇文章

订阅专栏

本文介绍了一种使用BGRABitmap库在Delphi中绘制带换行的文本的方法。通过设置字体样式、大小及颜色，实现了文本的居中显示，并在矩形区域内进行自动换行。

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  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.TextRect(rect(5,5,ClientWidth-5,ClientHeight-5),'This is a text that should be word wrapped',taCenter,tlCenter,c);
  image.Rectangle(rect(5,5,ClientWidth-5,ClientHeight-5),c,dmSet);

  image.Draw(Canvas,0,0,True);
  image.free;
end;

end.