1

我正在寻找一个简单的示例来使用 TDirect2DCanvas 来绘制列表框的每个项目。谷歌搜索 DirectWrite 将结果提供给示例示例以在表单上呈现文本。作为一名学生，我的 Delphi 技能无法正确掌握教程。一个简单的例子或在画布上绘制文本的参考对我来说是一个很好的开始。

这是代码（旧的经典方法），我正在尝试使用 DirectWrite 来实现：

procedure TForm2.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
var
  LB: TListBox;
begin
  LB := TListBox(Control);

  if odSelected in State then begin
    LB.Canvas.Brush.Color := clPurple;

  end;

  LB.Canvas.FillRect(Rect);
  LB.Canvas.TextOut(Rect.Left + 10, Rect.Top + 5, LB.Items[Index]);
end;
4

1 回答 1

0

您发布的代码将转换为如下内容：

var
  Direct2DCanvas: TDirect2DCanvas;
  LB: TListBox;
begin
  LB := TListBox(Control);

  Direct2DCanvas := TDirect2DCanvas.Create(LB.Canvas, LB.ClientRect);
  Direct2DCanvas.BeginDraw;
   try
    if odSelected in State then begin
      Direct2DCanvas.Brush.Color := clPurple;
    end;

    Direct2DCanvas.FillRect(Rect);
    Direct2DCanvas.TextOut(Rect.Left + 10, Rect.Top + 5, LB.Items[Index]);
  finally
    Direct2DCanvas.EndDraw;
    Direct2DCanvas.Free;
  end;
end;

但是，请记住，TDirect2DCanvas 实例的构造和销毁会大大减慢速度。正如大卫指出的那样，最终它可能会比 GDI 慢。

这表示如果在较低级别完成并且如果进行大量绘图或者如果您依赖抗锯齿绘图（GDI 无法提供），它可以更快。

要在较低级别实现绘图，您必须派生自定义 TListBox 组件并实现处理调整大小和绘图的附加 TDirect2DInstance（如果可用）。David在（已经提供的）链接中对此进行了解释。

于 2017-06-15T10:37:30.830 回答