Помогите разрезать TBitmap

← →
Idx © (2005-11-03 04:43) [0]

Кому не трудно помогите

Помогите созать ф-цию которая будет разрезать многостроничный Tbitmap
размером 27x135 таким образом: Left,Center,Right:TBitmap; а затем все
это втавить в одельный Bitmap например Bmp таким образом: растянуть середину(Center) на весь BMP а левый и правые вставить по бокам...

Это для того что бы коректно растянуть(Strech) рисунок который
меняется только по Width.

← →
WondeRu © (2005-11-03 09:08) [1]

еще раз и по-русски!

Idx © (03.11.05 4:43)
Source_Bitmap - исходный битмап
DestBitmap - битмап вывода
_left - ширина "Left"
_right - ширина "Right"
procedure RazrezatBtmapNafig(Source_Bitmap,DestBitmap:Tbitmap; _left,_right:integer); begin with DestBitmap.canvas do begin copyrect(rect(_left,0,DestBitmap.Width-_right,DestBitmap.Height),Source_Bitmap.canvas,rect(_left,0,Source_Bitmap.Width-_ right,Source_Bitmap.Height)); copyrect(rect(0,0,_left,DestBitmap.Height),Source_Bitmap.canvas,rect(0,0,_left,Source_Bitmap.Height)); copyrect(rect(DestBitmap.Width-_right,0,DestBitmap.Width,DestBitmap.Height),Source_Bitmap.canvas,rect(Source_Bitmap.Widt h-_right,0,Source_Bitmap.Width,Source_Bitmap.Height)); end; end;

Использование:
RazrezatBtmapNafig(image1.Picture.Bitmap,image2.Picture.Bitmap,30,30);

Помогите разрезать TBitmap Найти похожие ветки