Effet matrix

Commenter

Contenu du snippet

salut, c'est un petit code sans pretention pour réaliser un effet matrix en utilisant un canvas, ça ressemble pas tout à fait au vrai effet mais j'espere que ca pourrai bien aider. Pour utiliser ce code créez une fiche de couleur noire et collez le code dans l'evenement OnPaint. Voilà. Tout commentaire (utile :) ) ou amélioration sont bienvenus. a+

Source / Exemple : 


procedure TForm1.FormPaint(Sender: TObject);
var x,y,r,l:integer;
begin
randomize;
canvas.Font.Name:='Verdana';
canvas.Font.Style:=[fsBold];
for r:=1 to 400 do
        begin
        x:=random(20);
        for y:=1 to random(20) do
                begin
                sleep(1);
                canvas.Font.Color:=RGB(0,MulDiv(y,255,20),0);
                canvas.TextOut(x*15,y*15,chr(random(65)+65));
                l:=y;
                end;
                canvas.Font.Color:=clWhite;
                canvas.TextOut(x*15,l*15,chr(random(65)+65));
        end;
end;

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (Alextr2003fr)