WMFCanvasWorkAround.pas
上传用户:daoqigc
上传日期:2021-04-20
资源大小:2795k
文件大小:0k
源码类别:

RichEdit

开发平台:

Delphi

  1. unit WMFCanvasWorkAround;
  2. // Workaround for C++Builder 5 problem
  3. interface
  4. uses Graphics;
  5. function CreateMetafileCanvas(wmf: TMetafile): TCanvas;
  6. implementation
  7. function CreateMetafileCanvas(wmf: TMetafile): TCanvas;
  8. begin
  9.   Result := TMetafileCanvas.Create(wmf,0);
  10. end;
  11. end.