Timage + Canvas = увеличение (как?)

[kirsan007]

В общем нужно растянуть картинку без искажения, то есть разрезать посередине, отрезанную часть сдвинуть на указанное число пикселей и заполнить разрез шаблоном, взятым из вертикальной полоски в 1 пиксель слева (допустим) от места разреза. Потом то же самое сделать по горизонтали.

Удалось пока удлинить лишь по горизонтали благодаря одной из тем данного форума.

 z:=100;
 w:=98;
 r1:=Bounds(0,0,w,image1.Height);
 r2:=Bounds(w,0,w,image1.Height);
 //***********************************************************
 image1.Width:=image1.Width+z;
 b2:=TBitMap.Create;
 b2.Width:=image1.Width;
 b2.Height:=image1.Height;
 b2.Canvas.CopyRect(r1,image1.Picture.Bitmap.Canvas,r1);
 r1:=Bounds(w+z,0,w,b2.Height);
 b2.Canvas.CopyRect(r1,image1.Picture.Bitmap.Canvas,r2);
 for i:= w to w+z do
  begin
   r1:=Bounds(i-1,0,1,b2.Height);
   r2:=Bounds(i,0,1,b2.Height);
   b2.Canvas.CopyRect(r2,b2.Canvas,r1);
  end;
 image1.Picture.Assign(b2);
 memo1.Lines.Add(IntToStr(image1.Width));
 b2.Free;

[kirsan007]

ап... =(((

[kirsan007]

Начал писать увеличение по высоте...

 r1:=Bounds(0,0,image1.Width,21);
 r2:=Bounds(0,21,image1.Width,image1.Height);
 //***********************************************************
 image1.Height:=image1.Height+1;
 b2:=TBitMap.Create;
 b2.Width:=image1.Width;
 b2.Height:=image1.Height;
 b2.Canvas.CopyRect(r1,image1.Picture.Bitmap.Canvas,r1);
 r1:=Bounds(0,21+1,b2.Width,b2.Height);
 b2.Canvas.CopyRect(r1,image1.Picture.Bitmap.Canvas,r2);
 for i:= 1 to 1 do
  begin
   r1:=Bounds(0,22,b2.Width,23);
   r2:=Bounds(0,21,b2.Width,22);
   b2.Canvas.CopyRect(r2,b2.Canvas,r1);
  end;
 image1.Picture.Assign(b2);
 memo1.Lines.Add(IntToStr(image1.Height));
 b2.Free;

Работает только при увеличении на 1 пиксель. Подправьте если не сложно.. Впервые с канвасом работаю.

[phomm]

посмотри canvas.stretchdraw, правда не понимаю , что тебе нужно, но эта команда рисует растянутое изображние, сама программно сжимая-разжимая.

советую ещё просто проверить математику графопостроений на листочке, мб где-то не видишь очевидного ?

твой код кристалльно непрозрачен (( хоть бы проект прикрепил... пс. хотя может это просто лень из-за осознания сколько надо времени на въезжание в код

[kirsan007]

В общем написал я нужный код.

Выкладывать не буду ибо стыдно, да и сделан под меня.


Тему можно закрыть, всем спасибо.