| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Помогите разрезать TBitmap
Idx © (2005-11-03 04:43:00)Кому не трудно помогите
Помогите созать ф-цию которая будет разрезать многостроничный Tbitmap
размером 27x135 таким образом: Left,Center,Right:TBitmap; а затем все
это втавить в одельный Bitmap например Bmp таким образом: растянуть середину(Center) на весь BMP а левый и правые вставить по бокам...
Это для того что бы коректно растянуть(Strech) рисунок который
меняется только по Width.
Antonn (2005-11-03 09:34:00) [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);
WondeRu (2005-11-03 09:08:00) [2]еще раз и по-русски!
| |
