>>15 DirectDrawでのTCanvasの使い方がなっていない。
WindowsAPIを使うなどとは・・・。
以下のようなクラスを作って
interface
uses
Windows, Graphics, DirectX;
type
TDirectDrawCanvas = class(TCanvas)
protected
FSurface: IDirectDrawSurface;
FDeviceContext: HDC;
FEnabled: Boolean;
procedure CreateHandle; override;
public
constructor Create(ASurface: IDirectDrawSurface);
destructor Destroy; override;
procedure Release;
property Enabled: Boolean read FEnabled;
end;
implementation