Как закрасить фон

[Sergeyst88]

Вообщем у меня такая ситуация... Я рисую изображение из графических примитивов, могу ли при нажатии кнопки открыть новую форму и одновременно очистить фон первой формы, т.е. стереть мое изображение

[SERG1980]

можно

procedure TForm1.Button2Click(Sender: TObject);
begin
form1.Canvas.Brush.Color:=form1.Color;
form1.canvas.fillrect(form1.canvas.cliprect);
form2.Show;
end;

[Sergeyst88]

Сообщение от SERG1980

можно

procedure TForm1.Button2Click(Sender: TObject);
begin
form1.Canvas.Brush.Color:=form1.Color;
form1.canvas.fillrect(form1.canvas.cliprect);
form2.Show;
end;

фон под новой формой закрашивается, а изображение из графических примитивов остается

[SERG1980]

тогда что вы подразумеваете под графическими примитивами? Я так понял отрисовка кругов квадратов и т.д. ф-ями канвы (Ellips, Rectangle). Если нетрудно покажите код отрисовки ваших примитивов

[Sergeyst88]

да, линии, круги и т.д.
begin
Image1.Canvas.Pen.width:=2;
Image1.Canvas.Rectangle(160,120,240 ,220);
Image1.Canvas.ellipse(180,80,220,12 0);
Image1.Canvas.MoveTo (160,140);
Image1.Canvas.LineTo (120,180);
end;

[SERG1980]

Вместо формы имидж поставте

procedure TForm1.Button2Click(Sender: TObject);
begin
Image1.Canvas.Brush.Color:=form1.Color;
Image1.canvas.fillrect(form1.canvas.cliprect);
form2.Show;
end;

[Sergeyst88]

Спасибо )))))