Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Звук, графика и видео > Проблема отрисовки метафайла в метафайл


Автор: MetalFan 3.2.2009, 15:32
Столкнулся со следующей странностью, гугление определенного ответа не дало:
Если отрисовывать метафайл в метафайл, но со смещением, при котором часть или весь отрисовываемый метафайл выходит за текущие размеры экрана  smile , то метафайл будет отрисован частично или не будет отрисован вовсе... при отрисовке текста или примитивов таких проблем не возникает...
примечание: в img1.picture лежит ранее созданный метафайл. в принципе его можно былоб "на лету" сгенерить, но на результат это не влияет.
Код

var
  lMF: TMetafile;
  lMFC: TMetafileCanvas;
begin
  lMF := TMetafile.Create;
  lMF.SetSize( Screen.Width * 2, Screen.Height * 2 );
  lMFC := TMetafileCanvas.Create( lMF, GetDC(0) );
//  lMFC.FillRect( Rect(0,0, Screen.Width * 2, Screen.Height * 2));
  lMFC.Draw( 10, Screen.Height - (img1.Picture.Height div 2), img1.Picture.Graphic );
  lMFC.Free;
  imgRes.Picture.Assign( lMF );
//  lMF.SaveToFile('d:\001.emf'); //можно сохранить в файл и посмотреть результат.
  lMF.Free;

в итоге имеем такой ужас:
user posted image
то, что не поместилось в экранные координаты "залито" черным цветом...
Полный пример приложения, воспроизводящего проблему, в аттаче

Исследования показали, что проблема возможно где-то в недрах API функции PlayEnhMetaFile...
но как ее корректно решить - пока не нашел.

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)