Форум: "Система";
Текущий архив: 2002.09.26;
Скачать: [xml.tar.bz2];

Вниз

TCanvas   Найти похожие ветки 

← →
иван   (2002-07-16 15:49) [0]

Есть код
procedure TForm1.Button1Click(Sender: TObject);
var
Scr: TCanvas;
begin
Scr:= TCanvas.Create;
Scr.handle:= GetDC(0);
while true do
begin
Yield;
Scr.Pixels[Random(1024), Random(768)]:=0;
end;
end;
как сделать, так чтобы экран становился черным сразу, а не постепенно по пикселям.
заранее спасибо.

---

← →
Song   (2002-07-16 18:05) [1]

Scr.Brush.Color:=ClBlack;
Scr.FillRect(Rect(0,0,Scr.Width,Scr.Height));

---

Страницы: 1 вся ветка

Форум: "Система";
Текущий архив: 2002.09.26;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.007 c