Скачать: CL | DM;

Вопрос по работе с EnumEnhMetaFile   Найти похожие ветки 

← →
jen_bond ©   (2003-03-25 20:28) [0]

Подскажите в чем может быть проблема, хочу вытащить из метафайла текст только с определенного участка, а вытаскиваеться только вксь целиком из всего файла. В чем я допустил ошибку.

procedure TMainForm.FormCreate(Sender: TObject);
begin
emf:=TMetaFile.Create;
emf.LoadFromFile("c:\3.emf");
dc := GetDC(MainForm.Handle);
Mainform.Caption:="dc:"+IntToStr(dc)+"";
end;
procedure TMainForm.FormClick(Sender: TObject);
var r:Trect;
res,dp: boolean;
ptRealSize: TPoint;
begin
r:=Rect(0,0,10,10);
res:=EnumEnhMetaFile(DC,emf.Handle, @EnumProc, nil,r);
end;

---

← →
Polevi ©   (2003-03-26 14:47) [1]

MFC:=TMetafileCanvas.Create(emf,GetDC(0));
EnumEnhMetaFile(MFC.Handle,emf.Handle,@EnumProc,nil,r)

---

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

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.013 c