Dégradé de couleurs rapide et simple

Commenter

Contenu du snippet

Voici un petit code rapide pour faire des dégradés de couleur, selon la taille de votre fiche. J'inclus également des exemples. Il y a pas mal de possibilités, vu qu'il y a 7 paramètres.

Source / Exemple : 


// DownR, DownG, et DownB paramètrent le dégradé.
procedure TForm1.MakeDegrade(Dir, DownR, DownG, DownB: Boolean; R, G, B: Byte);
Var                              // Dir, c'est le sens du dégradé (horizontal, vertical).
   I: Integer;   // Variable de contrôle 1              // R, G, B sont les couleurs de base.
   I2: Integer;  // Variable de contrôle 2
begin
     for I := 0 to Width do     // Boucle horizontale
     begin
          begin if (R <> 0) and (DownR = False) then R := R - 1; if (G <> 0) and (DownG = True) then G := G - 1; if (B <> 0) and (DownB = True) then B := B - 1; end;   // Chaque ligne, on diminue l'intensité de 1
          for I2 := 0 to Height do     // Boucle verticale
          begin
               if Dir = True then Canvas.Pixels[I, I2] := rgb(R, G, B) else Canvas.pixels[I2, I] := rgb(R, G, B);               // On accomplit chaque ligne verticale du dégradé ...
          end;                    
     end;
end;

Conclusion :


Faites des tests de couleurs, :p
Voici quelques exemples déja paramètrés, essayez-les :

MakeDegrade(True, False, True, False, 201, 241, 221);
MakeDegrade(False, False, True, False, 200, 102, 193);
MakeDegrade(True, False, True, True, 200, 102, 101);

Voila !

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 (Bacterius)