Форум: "Начинающим";
Текущий архив: 2008.11.23;
Скачать: [xml.tar.bz2];
ВнизКак скопировать один TBitmap в другой? Найти похожие ветки
← →
TBitmap (2008-10-13 12:47) [0]Вот код:
var bmp1,bmp2:TBitmap;
procedure TForm1.FormCreate(Sender: TObject);
var r:TRect;
begin
bmp1:=TBitmap.Create;
bmp2:=TBitmap.Create;
bmp1.LoadFromFile("e:\IMG\untitled.bmp");
R.Left:=0; R.Top:=0; R.Right:=bmp1.Width; R.Bottom:=bmp1.Height;
bmp2.Canvas.CopyRect(R,bmp1.Canvas,R);
Image1.Picture.Assign(bmp2);
bmp2.free;
bmp1.Free;
end;
Что-то не копируется.
← →
brother © (2008-10-13 12:52) [1]а вот так: bmp2.picture:=bmp1.picture ?
← →
{RASkov} © (2008-10-13 12:55) [2]assign
← →
{RASkov} © (2008-10-13 12:57) [3]а в [0] второму битмапу bmp2 размер кто будет задавать?
← →
ПРавильный$Вася (2008-10-13 12:58) [4]
> Image1.Picture.Assign(bmp2);
и где у тебя назначение картинке твоего битмапа?
← →
TBitmap (2008-10-13 13:27) [5]Понял,
bmp2.Assign(bmp1);
Всем спасибо!
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2008.11.23;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.005 c