在 Directdraw 窗口上绘图

Question

我一直致力于修复旧游戏的项目，并最终获得了新的想法，添加了一些关于游戏世界的酷炫额外信息，并实时跟踪游戏本身对用户隐藏的一些重要信息（没有实际原因）并遇到了这个问题：

当我尝试在游戏上绘制以显示我想要的信息时，游戏会更新自己的窗口并进行绘制。

我的第一种方法是使用带有 HWND_TOPMOST 的窗口位于游戏窗口的顶部，但它没有按预期工作，窗口只是不会越过游戏窗口并且不会显示信息。

第二种方法是使用 GDI 函数，例如 TextOut，文本在那里，但会闪烁很多，并且强制它在很短的时间内绘制会占用太多内存。

我想要一些关于如何在不实际挂钩 DX 功能或类似的东西的情况下做到这一点的想法（因为我对 DX 知之甚少）。有什么方法可以在这个窗口上实际绘制以显示信息而不闪烁？

Answer 1

您可以使用 unDelphiX 来获取执行 DirectX 的 Delphi 包。
你可以在这里下载包：http://www.micrel.cz/Dx/

它完全是最新的，使 DirectX 几乎像标准 GDI 一样工作。

绘图时不闪烁
消除闪烁的技巧是绘制到屏幕外表面，并在完成后“翻转”屏幕外表面。
翻转可以与 VerticalSync 同步，因此也没有撕裂。

演示
有一个演示，以毫秒为单位显示当前时间，没有任何闪烁。

unit Main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, Menus, DXClass, DXDraws;

type
  TMainForm = class(TDXForm)
    DXDraw: TDXDraw;
    DXTimer: TDXTimer;  //Precision timer. 
    procedure DXDrawFinalize(Sender: TObject);
    procedure DXDrawInitialize(Sender: TObject);
    procedure DXTimerTimer(Sender: TObject; LagCount: Integer);
  end;

var
  MainForm: TMainForm;

implementation

uses MMSystem;

{$R *.DFM}

procedure TMainForm.DXDrawInitialize(Sender: TObject);
begin
  DXTimer.Enabled := True;
end;

procedure TMainForm.DXDrawFinalize(Sender: TObject);
begin
  DXTimer.Enabled := False;
end;

procedure TMainForm.DXTimerTimer(Sender: TObject; LagCount: Integer);
var
  formattedDateTime: string;
begin
  if not DXDraw.CanDraw then exit;

  DXDraw.Surface.Fill(0);

  with DXDraw.Surface.Canvas do  //Draw to offscreen surface.
  begin
    Brush.Style := bsClear;
    Font.Color := clWhite;
    Font.Size := 30;
    DateTimeToString(formattedDateTime, 'hh:nn:ss.zzz', Now);
    Textout(30, 30, formattedDateTime);

    Release; {  Indispensability  }
  end;

  DXDraw.Flip;  //Flip the offscreen surface to screen, no flicker :=)
end;

end.

在 XE2 中安装 unDelphiX
为了在 Delphi XE2 中安装软件包，我必须将 DesignIDE 添加到 dpk 的 requires 子句中。像这样：

这将修复DesignIntf.dcu not found 错误。

全屏显示
如果你想做全屏，你可以在 DXDraw 的设置中启用它，但是注意：

如果您启用doFullScreen 而不启用doSelectDriver，您将收到interface not supported 错误。启用它们，一切都会好起来的。
请参阅：http://www.micrel.cz/Dx/history.rtf‎

不要忘记监听按键并在 ESC 上退出应用程序，否则你会卡在全屏模式。