Как очистить canvas

Previous  Top  Next

    
 

 

 

Code:

procedure TForm1.Button1Click(Sender: TObject);

begin

PatBlt(Form1.Canvas.Handle,0,0,Form1.ClientWidth,Form1.ClientHeight,WHITENESS);

end;

 

©Drkb::03717

Взято из http://forum.sources.ru

 

 


Code:

Canvas.Brush.Color := ClWhite;

Canvas.FillRect(Canvas.ClipRect);

©Drkb::03718

 

 


Code:

InValidateRect(Canvas.handle,NIL,True);

 

 

(или взамен передать дескриптор компонента)

 

©Drkb::03719

       

Взято с http://delphiworld.narod.ru

 


Есть два хороших способа очистить Canvas. Их скорости очень близки. В первом способе используются возможности Delphi, во втором WinAPI. Первый способ удобнее тем, что позволяет закрашивать Canvas любым цветом.

Code:

procedure TForm1.Button1Click(Sender: TObject);

begin

Form1.Canvas.Brush.Color := clRed;

Form1.Canvas.FillRect(Form1.ClientRect);

PatBlt(Form1.Canvas.Handle, 0, 0,

   Form1.ClientWidth, Form1.ClientHeight, WHITENESS);

end;

©Drkb::03720

 

Автор советов: Даниил Карапетян

e-mail: delphi4all@narod.ru

 

Автор справки: Алексей Денисов

e-mail: aleksey@sch103.krasnoyarsk.su

 

 


Code:

InValidateRect(Canvas.handle,NIL,True);

 

 

Если вы используете холст формы, то попробуйте следующее:

Code:

 

InValidateRect(form1.handle,NIL,True);

 

(или взамен передать дескриптор компонента)

 

Это очистит хост:

 

Code:

canvas.fillrect(canvas.cliprect);

©Drkb::03721

http://delphiworld.narod.ru/

DelphiWorld 6.0