Работа с метафайлами на низком уровне
Sapersky_ © (2002-09-17 20:21:00)
Имеется в виду использование функции EnumEnhMetaFile. В
частности, какой вид должна иметь функция ENHMFENUMPROC (по хелпу
WinAPI понять трудно), и вообще, нет ли у кого примера на эту
тему.
MBo (2002-09-17 21:23:00) [1]
Именно такой вид и должна иметь, как написано в хелпе.
Function MFCallBack(DC:HDC; pht:PHandletable;
pemr:PEnhMetaRecord; nObj:Integer; lp:LParam):Integer;
stdcall;
var
s:string;
begin
Result:=1;
form1.memo1.lines.Add(IntToStr(pemr.iType));
if pemr.iType=EMR_POLYGON16 then begin
form1.memo1.lines.Add("Polygon drawing has been found!");
Result:=0;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
mf:TMetafile;
r:Trect;
p:pointer;
begin
mf:= TMetafile.Create;
mf.LoadFromFile("e:\image1.emf");
EnumEnhMetaFile(0, mf.handle, @MFCallBack, p, r);
mf.free;
end;
Наверх 
ЧАТ |
Орешник |
|
