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

RichEdit

开发平台:

Delphi

  1. unit CreateGraphics;
  2. interface
  3. uses Graphics, RVFuncs;
  4.   function GetGraphicCopy(gr: TGraphic): TGraphic;
  5.   function GetGraphicExtension(gr: TGraphic): String;
  6. implementation
  7. function GetGraphicCopy(gr: TGraphic): TGraphic;
  8. begin
  9.   Result := RV_CreateGraphics(TGraphicClass(gr.ClassType));
  10. end;
  11. function GetGraphicExtension(gr: TGraphic): String;
  12. begin
  13.   Result := GraphicExtension(TGraphicClass(gr.ClassType));
  14. end;
  15. end.