WinAPI: PathToRegion - 将路径转换为区域

weixin_34161029

于 2008-05-28 09:49:00 发布

阅读量206

点赞数

本文介绍使用 Delphi 实现一种特殊的文本渲染效果，通过创建路径并将其转换为区域，最终绘制出带有背景图案和边框的文本效果。示例代码展示了如何设置字体样式、颜色及位置，并使用 Canvas 对象进行绘制。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

本例效果图:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormPaint(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormPaint(Sender: TObject);
const
  str = 'Delphi';
var
  Rgn: HRGN;
  x,y: Integer;
begin
  Canvas.Font.Size := 68;
  Canvas.Font.Style := [fsBold];
  SetBkMode(Canvas.Handle, TRANSPARENT);

  x := (ClientWidth - Canvas.TextWidth(str)) div 2;
  y := (ClientHeight - Canvas.TextHeight(str)) div 3;

  {建立路径}
  BeginPath(Canvas.Handle);
  Canvas.TextOut(x, y, str);
  EndPath(Canvas.Handle);

  {将路径转换为区域}
  Rgn := PathToRegion(Canvas.Handle);

  {绘制}
  Canvas.Brush.Color := clSilver;
  Canvas.Brush.Style := bsDiagCross;
  FillRgn(Canvas.Handle, Rgn, Canvas.Brush.Handle);
  Canvas.Brush.Color := clRed;
  Canvas.Brush.Style := bsSolid;
  FrameRgn(Canvas.Handle, Rgn, Canvas.Brush.Handle, 1, 1);

  DeleteObject(Rgn);
end;

end.