Как очистить 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
DelphiWorld 6.0