Скачать: CL | DM;

Помогите разрезать 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]

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

---

← →
Antonn ©   (2005-11-03 09:34) [2]

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);

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.024 c