Comment mélanger les 2 TColor avec une force spécifiée (Opacité).
fonction de BlendColors(Color1, Color2: TColor Opacité: Byte): TColor
var
& nbsp & nbsp I : Integer
& nbsp & nbsp Val1,
& nbsp & nbsp Val2 : Octet
& nbsp & nbsp RGB1,
& nbsp & nbsp RGB2 : PByteArray
begin
& nbsp & nbsp //tout d'Abord assurez-vous qu'ils sont en RVB plutôt qu'un windows de couleur
& nbsp & nbsp Color1 := ColorToRGB(Color1)
& nbsp & nbsp Color2 := ColorToRGB(Color2)
& nbsp & nbsp //Point nos tableaux d'Octets pour les 2 couleurs
& nbsp & nbsp RGB1 := @Color1
& nbsp & nbsp RGB2 := @Color2
& nbsp & nbsp //le Mélange B,G,R
& nbsp & nbsp for I:=0 à 2 do
& nbsp & nbsp commencer
& ! & ! & ! & nbsp Val1 := RGB1[I] * (255 - Opacité) div 255
& ! & ! & ! & nbsp Val2 := RGB2[I] * Opacité div 255
& ! & ! & ! & nbsp RGB1[I] := Val1 Val2
& nbsp & nbsp fin
& nbsp & nbsp //Défini la couleur du drapeau de spécifier $01 = réelles de couleur RVB
& nbsp & nbsp RGB1[3] := 1
& nbsp & nbsp Résultat := Color1
fin
Melangeant 2 couleurs
Melangeant 2 couleurs : Plusieurs milliers de conseils pour vous faciliter la vie.
Comment melanger les 2 TColor avec une force specifiee (Opacite).
fonction de BlendColors(Color1, Color2: TColor Opacite: Byte): TColor
var
& nbsp & nbsp I : Integer
& nbsp & nbsp Val1,
& nbsp & nbsp Val2 : Octet
& nbsp & nbsp RGB1,
& nbsp & nbsp RGB2 : PByteArray
begin
& nbsp & nbsp //tout d'Abord assurez-vous qu'ils sont en RVB plutot qu'un windows de couleur
& nbsp & nbsp Color1 := ColorToRGB(Color1)
& nbsp & nbsp Color2 := ColorToRGB(Color2)
& nbsp & nbsp //Point nos tableaux d'Octets pour les 2 couleurs
& nbsp & nbsp RGB1 := @Color1
& nbsp & nbsp RGB2 := @Color2
& nbsp & nbsp //le Melange B,G,R
& nbsp & nbsp for I:=0 a 2 do
& nbsp & nbsp commencer
& ! & ! & ! & nbsp Val1 := RGB1[I] * (255 - Opacite) div 255
& ! & ! & ! & nbsp Val2 := RGB2[I] * Opacite div 255
& ! & ! & ! & nbsp RGB1[I] := Val1 Val2
& nbsp & nbsp fin
& nbsp & nbsp //Defini la couleur du drapeau de specifier $01 = reelles de couleur RVB
& nbsp & nbsp RGB1[3] := 1
& nbsp & nbsp Resultat := Color1
fin
