wmfcanvasworkaround.pas

来自「TRichView/RichView 是一套地道的Delphi/C++Build」· PAS 代码 · 共 19 行

unit WMFCanvasWorkAround;

// Workaround for C++Builder 5 problem


interface

uses Graphics;

function CreateMetafileCanvas(wmf: TMetafile): TCanvas;

implementation

function CreateMetafileCanvas(wmf: TMetafile): TCanvas;
begin
  Result := TMetafileCanvas.Create(wmf,0);
end;

end.