Alguns vírus publicados aqui ussaram canvas; exemplo do Pac Man (Feito pelo Kaju) e Riscos (Feito pelo Kaao).
Aqui vou distribuir alguns comandos de canvas.
Pontos seguindo o mouse SEMPRE:
Adicione o comando form > events > onmousemove.
Você pode alterar a cor preto por qual quer outra; segue alguns exemplos:
clyellow.
clgreen.
clred.
Cor aleatória
Na vars globais acrecente:
Adicione o comando form > events > oncreat ou onde preferir.
Agora no form > events > onmousemove acrecente o comando (caso tenha feito o anterior apague-o).
Apagar todos os pontos
Esta é a forma mais básica para apagar pontos, entretando o form fica piscando.
Coloque o comando no timer.
Altere o interval da forma que preferir.
Lembre-se que:
A imagêns em canvas só ficam até a janela não ser minizada ou fechada; isto é um sistema do windos para enconomizar memória.
Crétidos do comando: Livro Dominando o Delphi 6 da editora Marron Books.
E ao Kaao por reescrever do livro, postar e acrecentar.
Aviso:
Ando fazendo vários tutoriais e comandos de Delphi mas quase nunca vem comentários ó_ò
Aqui vou distribuir alguns comandos de canvas.
Pontos seguindo o mouse SEMPRE:
Adicione o comando form > events > onmousemove.
canvas.pixels [X, Y] := clblack;
clyellow.
clgreen.
clred.
Cor aleatória
Na vars globais acrecente:
c : integer;
randomize;
c := rand(2);
c := rand(2);
if c = 0 then
begin
canvas.pixels [X, Y] := clblack;
end;
if c = 1 then
begin
canvas.pixels [X, Y] := clred;
end;
if c = 2 then
begin
canvas.pixels [X, Y] := clyellow;
end;
begin
canvas.pixels [X, Y] := clblack;
end;
if c = 1 then
begin
canvas.pixels [X, Y] := clred;
end;
if c = 2 then
begin
canvas.pixels [X, Y] := clyellow;
end;
Esta é a forma mais básica para apagar pontos, entretando o form fica piscando.
Coloque o comando no timer.
form1.Hide;
form1.Show;
form1.Show;
Lembre-se que:
A imagêns em canvas só ficam até a janela não ser minizada ou fechada; isto é um sistema do windos para enconomizar memória.
Crétidos do comando: Livro Dominando o Delphi 6 da editora Marron Books.
E ao Kaao por reescrever do livro, postar e acrecentar.
Aviso:
Ando fazendo vários tutoriais e comandos de Delphi mas quase nunca vem comentários ó_ò
Comment