META

Top  Previous  Next

unit Meta;

 

interface

 

uses

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,

Forms, Dialogs, ExtCtrls, StdCtrls, ClipBrd;

 

Function Meta_Load(im : TImage;MetaFileNev: String):boolean;

 

implementation

 

{ Meta_Load ( Image,Filenév )

          WMF Standard metafile betöltése

          az Image komponensbe

}

Function Meta_Load(im : TImage; MetaFileNev: String):boolean;

Var CurF : Array[0..79] of Char;

  Smeta: Thandle;

  hdc  : integer;

begin

   StrPCopy(CurF,MetaFileNev);

   { Metafile betöltése memória metafileba }

   Meta_Load:=True;

   Try

     Smeta := GetMetafile(CurF);

     PlayMetafile((Im as TImage).Canvas.Handle,Smeta);

   except

     MessageBeep(1);

     MessageDlg('Kép betöltése sikertelen!',mtError,[mbOK],0);

     Meta_Load:=False;

   end;

end;

 

end.