Текущий архив: 2003.08.28;
Скачать: CL | DM;
Вниз
использование BitBlt Найти похожие ветки
← →
alexus © (2003-06-26 11:25) [0]ээээээ....ну вот, нигде не могу найти подробное описание использования этой ф-ции...
не мог бы кто-нить примерчитком подсобить, как с помощью этой ф-ции вывести на канвас изображение. да и как вообще подготовить к выводу устройство отображения?
Буду признателен за помощь
← →
DieHard © (2003-06-26 11:43) [1]
var Bmp1, Bmp2 : TBitmap;
begin
Bmp1 := TBitmap.Create;
Bmp2 := TBitmap.Create;
Bmp1.LoadFromFile("1.bmp");
Bmp2.Width := Bmp1.Width;
Bmp2.Height := Bmp1.Height;
BitBlt(Bmp2.Canvas.Handle,0,0,Bmp2.Width,Bmp2.Height,Bmp1.Canvas.Handle,0,0,SRCCopy);
Bmp2.SaveToFile("2.bmp");
Bmp1.Free;
Bmp2.Free;
end;
Страницы: 1 вся ветка
Текущий архив: 2003.08.28;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.01 c
