Как очистить canvas
Falk0ner, вс, 06/07/2008 - 15:35.
(или взамен передать дескриптор компонента)
Это очистит хост:
DelphiWorld 6.0
procedure TForm1.Button1Click(Sender: TObject);
begin
PatBlt(Form1.Canvas.Handle,0,0,Form1.ClientWidth,Form1.ClientHeight,WHITENESS);
end;
begin
PatBlt(Form1.Canvas.Handle,0,0,Form1.ClientWidth,Form1.ClientHeight,WHITENESS);
end;
Взято из http://forum.sources.ru
Canvas.Brush.Color := ClWhite;
Canvas.FillRect(Canvas.ClipRect);
Canvas.FillRect(Canvas.ClipRect);
InValidateRect(Canvas.handle,NIL,True);
(или взамен передать дескриптор компонента)
Взято с http://delphiworld.narod.ru
Есть два хороших способа очистить Canvas. Их скорости очень близки. В первом способе используются возможности Delphi, во втором – WinAPI. Первый способ удобнее тем, что позволяет закрашивать Canvas любым цветом.
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;
begin
Form1.Canvas.Brush.Color := clRed;
Form1.Canvas.FillRect(Form1.ClientRect);
PatBlt(Form1.Canvas.Handle, 0, 0,
Form1.ClientWidth, Form1.ClientHeight, WHITENESS);
end;
Автор советов: Даниил Карапетян
e-mail: delphi4all@narod.ru
Автор справки: Алексей Денисов
e-mail: aleksey@sch103.krasnoyarsk.su
InValidateRect(Canvas.handle,NIL,True);
Если вы используете холст формы, то попробуйте следующее:
InValidateRect(form1.handle,NIL,True);
(или взамен передать дескриптор компонента)
Это очистит хост:
canvas.fillrect(canvas.cliprect);
DelphiWorld 6.0
Отправить комментарий