Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > bitblt

Автор: Vitaliy 31.7.2002, 17:09

Помогите, пожалуйста!
Как на белое изображение 200X100 пикс. наложить другое
изображение меньшего размера. Т. е. у BMP'ки пририсовать низ и
свправа белый фон.

Автор: Baa 1.8.2002, 02:33

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  Rect1,
  Rect2: TRect;
begin
  Rect1 := Rect (0, 0, 100, 200);
  Rect2 := Rect (0, 0, 100, 200);
  Image1.Picture.Bitmap.Canvas.CopyRect(Rect1, Image2.Picture.Bitmap.Canvas, Rect2);
end;