Вопрос про копирование BitMap?

[juan666777]

Скажите как можно из BitMap копировать в Image чтобы верхнее изображение не перекрывало нижнее .Например на Image был нарисована линия а из Bitmap копировал квадрат что бы было видно квадрат и внутри его линия ?)

[Sazary]

Вот вам пример:

procedure TForm1.Button1Click(Sender: TObject);
var Bitmap : TBitmap;
begin
Image1.Canvas.Brush.Color := clWhite;
Image1.Canvas.FillRect(Canvas.ClipRect);
Image1.Canvas.MoveTo(0,0);
Image1.Canvas.LineTo(Image1.Width,Image1.Height);

Bitmap := TBitmap.Create;
Bitmap.Width := Image1.Width;
Bitmap.Height := Image1.Height;
Bitmap.Transparent := true;
Bitmap.TransparentColor := clWhite;
Bitmap.Canvas.Brush.Color := clWhite;
Bitmap.Canvas.Rectangle(50,50,250,250);

Image1.Canvas.Draw(0,0,Bitmap);

Bitmap.Free;

end;

На Image рисуется диагональная линия.
Потом создается TBitmap и на нем рисуется прямоугольник.
У битмапа свойство Transparent устанавливаем в true.
И задаем прозрачный цвет с помощью TransparentColor (ставим белый).
Потом загружаем битмап на Image. И вот.

[juan666777]

Большое спасибо !