1. Accueil
  2. Tous les snippets
  3. Snippets Delphi / Pascal
  4. Effet matrix

Effet matrix

0/5 (3 avis)

Snippet vu 7 849 fois - Téléchargée 36 fois

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

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
10 avril 2006 à 19:24
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
17 juin 2004 à 18:49
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
17 juin 2004 à 18:39
bah manque juste la police matrix et ça le fait
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)