1. Accueil
  2. Delphi / Pascal
  3. Sources Delphi / Pascal
  4. Sources Graphique
  5. Degrade d'une couleur a une autre

Degrade d'une couleur a une autre

Soyez le premier à donner votre avis sur cette source.

Vue 6 095 fois - Téléchargée 587 fois

Télécharger le projet
Commenter

Description

voici une fonction permettant de tracer un dégrader linéaire verticale ou horizontal sur un objet :

explications :
Objet : ici un controle image, mais vous pouvez remplacer par n'import kel objet contenant un canvas
DebCol : couleur de départ
FinCol : couleur d'arrivé
Vertical : mettre True pour un dégradé vertical

voila

(il y a un exemple dans le zip)

Source / Exemple : 


procedure Degrade(Objet:timage;DebCol:real;FinCol:real;Vertical:boolean);
var
a:Integer;       //Déclaration des variables
r:real;
v:real;     
b:real;
r2:real;
v2:real;
b2:real;
decR:real;
decV:real;
decB:real;
Vcalc:integer;

        begin
b:=trunc(DebCol / 65536);  //Décomposition des couleur en rouge
v:=trunc((DebCol - b * 65536) / 256);  //Vert et bleu
r:=DebCol - b * 65536 - V * 256;
b2:=trunc(FinCol / 65536);
v2:=trunc((FinCol - b2 * 65536) / 256);
r2:=FinCol - b2 * 65536 - v2 * 256;

If Vertical=False Then Vcalc:=Objet.Width Else Vcalc:=Objet.Height;

decR:=(r2 - r)/Vcalc;   //Calcul du décalage des couleurs
decV:=(v2 - V)/Vcalc;
decB:=(b2 - b)/Vcalc;

//Tracage du dégradé
If Vertical = False Then        //Horizontal
        begin
        For a:=0 To Objet.Width do
                begin
                        objet.Canvas.pen.Color:=rgb(trunc(r),trunc(v),trunc(b));
                        Objet.canvas.Rectangle(a,0,a + 1, Objet.Height);
                        r:=abs(r + decR);  //Incrémentation des couleurs
                        v:=abs(v + decV);
                        b:=abs(b + decB);
                end;
        end
Else                            //Vertical
        begin
       For a:=0 To Objet.height do
                begin
                        objet.Canvas.pen.Color:=rgb(trunc(r),trunc(v),trunc(b));
                        Objet.Canvas.Rectangle(0,a,Objet.width,a+1);
                        r:=abs(r + decR);  //Incrémentation des couleurs
                        v:=abs(v + decV);
                        b:=abs(b + decB);
                end;
        end;

end;

Conclusion :


cette fonction existe aussi en visual basic : a l'adresse suivante :
http://www.vbfrance.com/article.asp?Val=1081

hop
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Signaler
Messages postés
1
Date d'inscription
mercredi 25 avril 2007
Statut
Membre
Dernière intervention
25 avril 2007
c'est super mais le link pr en visual basic marche pas, tu pouvait me lenvoyer svp ( speed_devil_6@hotmail.com )
Signaler

cool!
je commence a vraiment programmer en delphi et je sens que je vais bien m'amuser avec ce code, pour apprendre les fonction graphics!

@++
Signaler

ouais, c la meme image, c pke g pas voulu m'ennuyer a refaire une capture d'écran ;)
par contre, je voi po de différence par rapport a vb,.. ?

@+
fabs 8D
Signaler

Pire que ça! J'ai même l'impress° que cé carrément la même image que pr le code sous VB!!! Hallucinat° d'ma part ou syndrome typique d'excès visualbasiclyte aigüe?? ;-p

Allez bone prog'!!!!!

Gogogogogogoooooo
Signaler

Zoli prog'!!!! Mais j'trouve qu'il est moins beau le dégrad' par rapport à VB, non? Enfin, sans doute 1 impress°? à force d'être trop habitué au VB, j'finis par croire que cé lui qu'a les meilleurs dégrad'!!! ;-P

Allez bone prog'!!!!!!

Gogogogogoooooooo
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 (fabiin)