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

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

Форум программистов > Delphi: Звук, графика и видео > Очистка формы с TCanvas

Автор: gabin 18.5.2010, 10:05

Имеется программа, которая выполняет отрисовку фазового портрета на системе координат.
В стандартном FormPaint я отрисовываю систему координат. После этого по заданным параметрам рисую эллипс.
Возникает необходимость очистить форму и я выполняю такую процедуру:

Код



procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Form1.Canvas.FillRect(Rect(0,0,ClientWidth,ClientHeight));
Form1.OnPaint(Sender);
end;

По идее вся форма должна белым закрашиваться белым прямоугольником , а после этого отрисовываться заново, но
этого не происходит. Что неправильно ?

Автор: RomanEEP 18.5.2010, 18:14

1) А что происходит?
2)Brush.Style не устанавливается в bsClear?
3)Хочется взглянуть на Form1Paint
4)Вместо Form1.OnPaint(Sender); лучше Form1OnPaint(Sender);

Автор: Malpolon 15.5.2016, 23:14

InvalidateRect(0, nil, true); - попробуй это