Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.01.06;
Скачать: CL | DM;

Вниз

Работа с метафайлами на низком уровне   Найти похожие ветки 

 
Sapersky_   (2002-09-17 20:21) [0]

Имеется в виду использование функции EnumEnhMetaFile. В частности, какой вид должна иметь функция ENHMFENUMPROC (по хелпу WinAPI понять трудно), и вообще, нет ли у кого примера на эту тему.


 
MBo ©   (2002-09-17 21:23) [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;



Страницы: 1 вся ветка

Текущий архив: 2003.01.06;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.018 c
14-15294
denisac
2002-12-04 10:38
2003.01.06
Работа началась!!!


1-15122
Gari
2002-12-23 10:29
2003.01.06
Каким образом создать виртуальную директорию?


14-15224
Дмитрий К.К.
2002-12-11 07:43
2003.01.06
Именинники 11 декабря


3-14896
volph7777
2002-12-12 13:31
2003.01.06
как разделять SQL-запросы в TQuery?


3-14919
maxval
2002-12-10 18:20
2003.01.06
Проблема с датой