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;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
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;

---

效果图：

---