wmfcanvasworkaround.pas

来自「与Action相结合,可以解决中文件显示乱码」· 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.