- Код: Выделить всё
procedure TMetafile.SaveToFile(const Filename: String);
var
outFile: HENHMETAFILE;
begin
if FImageHandle = 0 then exit;
outFile := CopyEnhMetaFile(FImageHandle, PChar(FileName));
if outFile = 0 then
RaiseLastWin32Error;
DeleteEnhMetaFile(outFile);
end;
Для меня квест на этом благополучно закончился ... но там еще три заглушки осталось ... (На чтение из файла на чтение из потока и на запись в поток ) в поисках решения обнаружил что в Кол все "с точностью до наоборот " есть чтение но нет записи .... но напрямую перенести едва ли получится ... бо намудрили ....
Так или иначе но библиотеку нужно править иначе она так и останется недоделкой !
Зы
Кстати, протестировал то что записалось в WMF открыв в КорелДрав ... гм открылось ! (IrfanView и Paint показывают 1:1 но там редактировать нельзя) получилось похоже но чуть с искажениями .... быстродействие при том-же объеме графики что и в моем редакторе среднем разумеется выше в КорелДрав ... но какой тормоз при изменении размера для всей группы (причем что странно никакой буферизации рисует прямо на экране )! Это нужно видеть ! И это как-бы ультро профессиональная "Колка Дров" бррр...
Странности : при загрузке "в колотые дрова" все элементы дублируются, а картинки еще и фон прямоугольный имеют ... Вопрос, что бы это значило ? Где "грабля" в формате WMF или моем "рендаре" ?
Вот две "самодельные" WMF-ки :
Мой "мега тест" Les4
Псевдо Веб-страница