Текущий архив: 2004.06.06;
Скачать: CL | DM;
Вниз
Затемнение экрана Найти похожие ветки
← →
Максим (2004-05-24 10:35) [0]Как сделать затемнение экрана? Т.Е. чтобы он медленно становился чёрным цветом.
← →
Думкин © (2004-05-24 10:39) [1]http://delphimaster.net/view/9-1085278109/
Тебя удалят, а ты правила не нарушай.
← →
ega23 © (2004-05-24 10:44) [2]Медленно-медленно красить в чёрный цвет...
← →
ashnurov © (2004-05-24 10:46) [3]Попробуй так
procedure DarkScreen;
var
Desktop: TCanvas;
begin
Desktop:=TCanvas.Create;
Desktop.Handle:=GetDC(0);
while true do
begin
Yield;
Desktop.Pixels[Random(1024), Random(768)]:=0;
end;
Страницы: 1 вся ветка
Текущий архив: 2004.06.06;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.025 c
