Как быстро очистить Canvas?

← →
Charly22 (2005-06-07 21:38) [0]

Всем привет!
Подскажите, плз., наиболее быстрый способ очистки некоторой прямоугольной области Canvas"a от всего, что на нем было нарисовано? Например, область формы.

Если можно, с примером. Заранее благодарен!

← →
Anatoly Podgoretsky © (2005-06-07 21:48) [1]

Что значить очистить, сие не возможно, она всегда грязная.

← →
Charly22 (2005-06-07 22:00) [2]

:-))
Я имею ввиду ситуацию, если на форме юзер нарисовал что-то, а потом, скажем, заотел выделить все нарисованное, нажать Del и все это стереть. Чтобы на месте рисунка оказалась область, залитая таким же цветом, какого цвета форма.

← →
Anatoly Podgoretsky © (2005-06-07 22:06) [3]

Вот и заливай цветом фона, а то очистить

← →
Eraser © (2005-06-08 00:11) [4]

Charly22 (07.06.05 22:00) [2]
Чтобы на месте рисунка оказалась область, залитая таким же цветом, какого цвета форма.

Рисуй рект на весь рисунок.

← →
XProger © (2005-06-08 04:30) [5]

Canvas.Brush.Color := clBtnFace; Canvas.FillRect(Rect(X, Y, Width, Height));

procedure TForm1.Button1Click(Sender: TObject);
begin
PatBlt(Form1.Canvas.Handle,0,0,Form1.ClientWidth,Form1.ClientHeight,WHITENESS);
end;
___________________________________
|
|
Canvas.Brush.Color := ClWhite; |
Canvas.FillRect(Canvas.ClipRect); |
___________________________________|

InValidateRect(Canvas.handle,NIL,True);

Как быстро очистить Canvas? Найти похожие ветки