Buscar

Cria um efeito desligado no sistema

Código

{Efeito desligado - Data : 08 de Fevereiro de 2003

Você sabe quando o windows vai desligar e faz a tela ficar escura?
Aqui vai um exemplo em Delphi:}

procedure TForm1.FormCreate(Sender: TObject);
begin
brush.style := bsClear;
WindowState := wsMaximized;
BorderStyle := bsNone;
end;

procedure TForm1.FormPaint(Sender: TObject);
var x, y : integer;
begin
for y:=0 to height-1 do
for x:=0 to width-1 do
if (x mod 2)=(y mod 2) then canvas.pixels[x,y]:=clBlack;
end;

 

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Windows
Adicionada dia: 19/12/05
Por: Matheus
Visualizada: 2376 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009