Как да стесните растерна графика

Как да стесните растерна графика?

Здравейте на всички майстори, а не само!
Положението: растерни зареден в TImage.
Въпрос: как да се направи това (растерна графика) е намаляла, например,
надясно (наляво, отгоре, отдолу) в необходимия брой пиксели?
| \
| \
| # XA0; |
| # XA0; |
| # XA0; |
| /
| /
Ако има Infa за него, можете да хвърлят върху [email protected]?
И аз не мога да си позволя да седи дълго време в интернет.
. В предварително благодаря ви много.

Какво означава "свива"? StretchDraw?

За единия край (например, от дясно), той става по-малко

TBitmap.Canvas.StretchDraw # XA0; рояк в тази посока.

Да, има някаква формула.

процедура TForm1.Button1Click (Sender: TObject);
Var
# XA0; а, б: TBitmap;
# XA0; X, Y, гг, CY, w: цяло число;
започвам
# XA0; а: = TBitmap.Create;
# XA0; б: = TBitmap.Create;
# XA0; a.LoadFromFile ( "pic.bmp");
# XA0; b.Assign (а);
# XA0; b.Canvas.FillRect (Rect (0, 0, b.Width, b.Height));
# XA0; w: = a.Width;
# XA0; CY: = a.Height DIV 2;
# XA0; за х: = 0 до a.Width - 1 направи
# XA0; # XA0 продължение на Y: = 0 до a.Height - 1 да започне
# XA0; # XA0; # XA0; гг: = CY + (у - CY) * (w - х DIV 2) DIV w;
# XA0; # XA0; # XA0; b.Canvas.Pixels [х, гг]: = a.Canvas.Pixels [X, Y];
# XA0; # XA0; край;
# XA0; Canvas.Draw (0, 0, Ь);
# XA0; b.Free;
# XA0; a.Free;
приключи;

В училище той учи? Кажи ми честно.

училище този боклук не страдат, и аз трябва да!

Бях направил извращение: да се постави текстура в OpenZhL трапец)))!