Залить форму исходным системным цветом

@DCxDemo · Регистрация: 24.08.2011

Author24 — интернет-сервис помощи студентам

во вложении картинка с примером последовательной загрузки двух изображений. нужно убрать следы деятельности первого изображения. собственно вот вывод изображения.

Pascal

1	form1.canvas.draw(1,1, btm);

есть ли функция для автоматического восстановления стандартного системного цвета формы или же как его получить, чтобы просто зарисовать предыдущее изображение?

@volvo · 07.09.2012, 17:42

По умолчанию цвет формы - clBtnFace:

Delphi

  with Self.Canvas do
  begin
    Brush.Color := clBtnFace;
    Brush.Style := bsSolid;
    FillRect(Self.ClientRect);
  end;

@Alex_pac · 09.09.2012, 17:50

Delphi

1	form1.Repaint;

	09.09.2012, 17:50

Залить форму исходным системным цветом

Решение