VPF::Проблема отрисовки метафайла в метафайл

MetalFan

Дата 3.2.2009, 15:32 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 5
Всего: 128

Столкнулся со следующей странностью, гугление определенного ответа не дало:
Если отрисовывать метафайл в метафайл, но со смещением, при котором часть или весь отрисовываемый метафайл выходит за текущие размеры экрана 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...
но как ее корректно решить - пока не нашел.

Присоединённый файл ( Кол-во скачиваний: 7 )

EMFTest.rar 19,10 Kb

--------------------

There are always someone smarter than you...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »