creategraphics.pas

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

unit CreateGraphics;

interface
uses Graphics, RVFuncs;

  function GetGraphicCopy(gr: TGraphic): TGraphic;

  function GetGraphicExtension(gr: TGraphic): String;

implementation

function GetGraphicCopy(gr: TGraphic): TGraphic;
begin
  Result := RV_CreateGraphics(TGraphicClass(gr.ClassType));
end;

function GetGraphicExtension(gr: TGraphic): String;
begin
  Result := GraphicExtension(TGraphicClass(gr.ClassType));
end;


end.