Delphi TCanvas 对象在使用 dll 后损坏，如何恢复？

Question

已关闭。此问题需要 debugging details 。目前不接受答案。

---

编辑问题以包含 desired behavior, a specific problem or error, and the shortest code necessary to reproduce the problem 。这将有助于其他人回答问题。

已关闭 7 年前。

Improve this question

遇到一些问题。我有一个带有 Canvas 的表单，我需要通过其句柄从 dll 访问该 Canvas 。我这样做是这样的:

来自dll

canvas := TCanvas.Create;
  try
    canvas.Handle := handle;
    // do some painting on this canvas
  finally
    canvas.free;
  end;

效果很好，我从 dll 中绘制了我需要的内容。但这个技巧有副作用。从 dll 绘制后，窗体丢失字体设置(顺便说一句，从 dll 绘制时我没有使用字体，只使用几个矩形)，并且当我从主窗体在同一 Canvas 上绘制时，即使我直接这样做 canvas.font.size := .. .; canvas.font.name := ...;在canvas.TextOut之前，字体不会改变。线条、填充等绘画都可以。但字体会被损坏(有时不会，但大多数情况下)。

有没有办法重置/重新初始化表单的 TCanvas 对象？

Answer 1

Canvas 没有任何重置功能，但您可以要求 api 保存 Canvas 的设备上下文状态，并在绘制后恢复它。

var
  SavedDC: Integer;

  ...
  SavedDC := SaveDC(handle);
  try
    canvas := TCanvas.Create;
    try
      canvas.Handle := handle;
      // do some painting on this canvas
    finally
      canvas.free;
    end;
  finally
    RestoreDC(handle, SavedDC);
  end;

Remy's answer解释了如何丢失设备上下文的状态。我认为为什么它并不总是发生应该取决于时机。如果表单在其 Canvas 使用其字体时已进入新的绘制周期，则一切都应该很好，因为它在新获取和设置的设备上下文上运行。