Direct2D (10) : 文本输出初步

83 阅读 0 评论 55 点赞

我是靠谱客的博主眯眯眼背包，最近开发中收集的这篇文章主要介绍Direct2D (10) : 文本输出初步，觉得挺不错的，现在分享给大家，希望可以做个参考。

概述

uses Direct2D, TypInfo;

procedure TForm1.FormCreate(Sender: TObject);
var
  f: TTextFormats;
begin
  for f := Low(TTextFormats) to High(TTextFormats) do
    CheckListBox1.Items.Add(GetEnumName(TypeInfo(TTextFormats), Ord(f)));

  CheckListBox1.Align := alRight;
  Edit1.Align := alBottom;
  Edit1.OnChange := CheckListBox1.OnClick;
end;

procedure TForm1.CheckListBox1Click(Sender: TObject);
begin
  Repaint;
end;

procedure TForm1.FormPaint(Sender: TObject);
var
  cvs: TDirect2DCanvas;
  fmt: TTextFormat;
  i: Integer;
  R: TRect;
  txt: string;
begin
  for i := 0 to CheckListBox1.Count - 1 do
    if CheckListBox1.Checked[i] then Include(fmt, TTextFormats(i));

  txt := Edit1.Text;

  cvs := TDirect2DCanvas.Create(Canvas, ClientRect);
  cvs.BeginDraw;

  cvs.TextOut(20, 20, txt); //普通文本

  cvs.Pen.Color := clGray;
  cvs.Brush.Color := clYellow;
  cvs.Font.Size := 24;
  cvs.Font.Color := clRed;
  cvs.Font.Style := [fsBold, fsItalic];
  R := Rect(20, 40, 256, 200);
  cvs.Rectangle(R);
  cvs.TextRect(R, txt, fmt); //矩形范围中的文本

  cvs.EndDraw;
  cvs.Free;
end;

效果图：