| Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > Delphi: Общие вопросы > уменьшить TMetafile в TPicture |
| Автор: klyaksa 9.10.2013, 17:09 |
| В TPicture загружен файл emf. Как уменьшить TMetafile и засунуть его обратно в TPicture? Если рисовать в TBitmap и уменьшать, это уже не тот формат будет, только битмап, а не записи рисования? дошел только до m := TMetafile.Create; m.Width := 500; m.Height := 500; mc := TMetafileCanvas.Create(m, 0); mc2 := TMetafileCanvas.Create(Picture.Metafile, 0); StretchBlt(mc.Handle, 0, 0, 500, 500, mc2.Handle, 0, 0, Picture.Width, Picture.Height, SRCCOPY); Picture.Assign(m); Но так изображение становиться не правильным. |
| Автор: CynicRus 9.10.2013, 18:42 |
| PlayEnhMetaFile(NewMetafile.Handle, OldMetaFile.Handle, RectNeeded); |
| Автор: klyaksa 9.10.2013, 19:28 |
| О, вроде просто Picture.Metafile.SetSize(w, h); работает |