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

Вниз

Затемнение экрана   Найти похожие ветки 

← →
Максим   (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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.036 c