VPF::Как сделать увеличение - Форум программистов

denmoroz

Дата 11.2.2006, 17:46 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 49
Регистрация: 10.12.2005

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

Как сделать увеличение битмапа (Как в компоненте ImageControls)? smile

s-mike

Дата 11.2.2006, 23:05 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 425
Регистрация: 16.1.2005
Где: Киев

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

Посмотри код и FAQ.

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

Преферанс для Android на базе исходников Марьяжа

Snowy

Дата 12.2.2006, 01:19 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 18
Всего: 484

TBitmap.StretchDraw

denmoroz

Дата 14.2.2006, 18:14 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 49
Регистрация: 10.12.2005

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

Заюзал код из FAQ:

Код


function ScalePercentBmp(bitmp: TBitmap;
 iPercent: LongInt): Boolean;
var 
 TmpBmp: TBitmap; 
 ARect: TRect; 
 h, w: Real; 
 hi, wi: Integer; 
begin 
 Result := False; 
 try 
   TmpBmp := TBitmap.Create; 
   try 
     h := bitmp.Height * (iPercent / 100); 
     w := bitmp.Width * (iPercent / 100); 
     hi := StrToInt(FormatFloat('#', h)) + bitmp.Height; 
     wi := StrToInt(FormatFloat('#', w)) + bitmp.Width; 
     TmpBmp.Width := wi; 
     TmpBmp.Height := hi; 
     ARect := Rect(0, 0, wi, hi); 
     TmpBmp.Canvas.StretchDraw(ARect, Bitmp); 
     bitmp.Assign(TmpBmp); 
   finally 
     TmpBmp.Free; 
   end; 
   Result := True; 
 except 
   Result := False; 
 end; 
end;

Но при уменьшении до начальныз размеров, картинка становится непонятной.

Как исправить?

Snowy

Дата 14.2.2006, 18:22 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 18
Всего: 484

Дык чего ты ее дергаешь туда-сюда?
Храни исходный битмап и масштабируй из него.
Иначе обязательно столкнешься с потерями качества.

denmoroz

Дата 14.2.2006, 18:25 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 49
Регистрация: 10.12.2005

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

Snowy, А если в увеличенном битмапе юзер внесёт какие-небудь изменения? (Я пишу граф. редактор) smile

Snowy

Дата 14.2.2006, 18:56 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 18
Всего: 484

Ты вноси изменения в оригинал и тут же перерисовывай в увеличенный вариант.
Нельзя постоянно масштабировать. Иначе в итоге каша получится.
Юзер нарисовал линию из точки А в точку Б - отрисуй такую же, по пропорциям в оригинал и снова отрисуй увеличенный оригинал.

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