Текущий архив: 2006.04.09;
Скачать: 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 вся ветка
Текущий архив: 2006.04.09;
Скачать: CL | DM;
Память: 0.45 MB
Время: 0.013 c
