Текущий архив: 2004.08.22;
Скачать: CL | DM;
Вниз
правильное масштабирование изображений Найти похожие ветки
← →
Kein © (2004-06-04 14:59) [0]собсно топик. буду благодарен за ссылки.
← →
Jeer © (2004-06-04 15:30) [1]А чем отличается от "неправильного" ?
← →
jack128 © (2004-06-06 09:34) [2]Такое подойдет?
// Пропорционально увеличиваем и центруем картинку и рисуем её на другом bitmap"е
procedure DrawEx(SourceBitmap, DestBitmap: TBitmap);
var
Scale: Integer;
_Rect: TRect;
begin
Scale := Min(DestBitmap.Width div SourceBitmap.Width,
DestBitmap.Height div SourceBitmap.Height);
if Scale = 0 then Scale := 1;
_Rect := Rect(0, 0, Scale * SourceBitmap.Width, Scale * SourceBitmap.Height);
// Центруем прямоугольник
OffsetRect(_Rect, (DestBitmap.Width - _Rect.Right) div 2,
(DestBitmap.Height - _Rect.Bottom) div 2);
DestBitmap.Canvas.StretchDraw(_Rect, SourceBitmap);
end;
← →
Думкин © (2004-06-06 12:33) [3]g32.org - там качественнее масштабирует.
← →
Никита © (2004-06-07 16:58) [4]Ничего себе!!!
Страницы: 1 вся ветка
Текущий архив: 2004.08.22;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.05 c
