Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.09.26;
Скачать: CL | DM;

Вниз

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;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.014 c
1-85547
NVladimir
2002-09-12 14:27
2002.09.26
Объем программы в ОЗУ


14-85666
MsGuns
2002-08-28 19:34
2002.09.26
Крутой English


14-85699
EAlexander
2002-08-29 16:13
2002.09.26
Delphi 7 можно скачать с Borland.com


1-85554
d_oleg
2002-09-12 09:44
2002.09.26
создать BitMap с настройками шрифта как у принтера


1-85539
Dmitriy Polskoy
2002-09-13 12:48
2002.09.26
Помогите разобраться с QuickReport - ом