Effet matrix

Soyez le premier à donner votre avis sur cette source.

Snippet vu 7 487 fois - Téléchargée 35 fois

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

Ajouter un commentaire

Commentaires

cs_puce_84
Messages postés
5
Date d'inscription
jeudi 30 novembre 2000
Statut
Membre
Dernière intervention
10 octobre 2011

C'est ou qu'on clicke pour télécharger cette source ????
Pas envie de faire copy/paste, de retrouver les compos, y a pas de téléchargement ?
larr
Messages postés
38
Date d'inscription
mercredi 18 juin 2003
Statut
Membre
Dernière intervention
3 février 2010

je vien de tester avec la police CitrusFruits ( matrix )
elle rend super :p
larr
Messages postés
38
Date d'inscription
mercredi 18 juin 2003
Statut
Membre
Dernière intervention
3 février 2010

bah manque juste la police matrix et ça le fait

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.