Delphi [Comando] Canvas - Alguns comandos.

[Kaao]

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.

canvas.pixels [X, Y] := clblack;

Você pode alterar a cor preto por qual quer outra; segue alguns exemplos:
clyellow.
clgreen.
clred.

Cor aleatória
Na vars globais acrecente:

c : integer;

Adicione o comando form > events > oncreat ou onde preferir.

randomize;
c := rand(2);

Agora no form > events > onmousemove acrecente o comando (caso tenha feito o anterior apague-o).

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;

Apagar todos os pontos
Esta é a forma mais básica para apagar pontos, entretando o form fica piscando.
Coloque o comando no timer.

form1.Hide;
form1.Show;

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 ó_ò

[kaju]

Muito bom

[jr_bernardo]

mto bom cara
num desanima
pq um e outros
num comentam...
continue assim.

[snowamigu]

Não elogie por pensamento mais por comentário.