|
Модераторы: Poseidon, Snowy, bems, MetalFan |
|
klyaksa |
|
|||
Бывалый Профиль Группа: Участник Сообщений: 187 Регистрация: 15.9.2005 Репутация: нет Всего: нет |
В 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); Но так изображение становиться не правильным. Это сообщение отредактировал(а) klyaksa - 9.10.2013, 17:12 |
|||
|
||||
CynicRus |
|
|||
Бывалый Профиль Группа: Участник Сообщений: 248 Регистрация: 31.5.2012 Репутация: нет Всего: 5 |
PlayEnhMetaFile(NewMetafile.Handle, OldMetaFile.Handle, RectNeeded);
|
|||
|
||||
klyaksa |
|
|||
Бывалый Профиль Группа: Участник Сообщений: 187 Регистрация: 15.9.2005 Репутация: нет Всего: нет |
О, вроде просто Picture.Metafile.SetSize(w, h); работает
|
|||
|
||||
Правила форума "Delphi: Общие вопросы" | |
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader. |
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей) | |
0 Пользователей: | |
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема » |
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |