Mezcla de 2 colores


Cómo mezclar 2 TColor juntos con una determinada fuerza (Opacidad).
función BlendColors(Color1, Color2: TColor Opacidad: Byte): TColor
var
& nbsp & nbsp I : Integer
& nbsp & nbsp Val1,
& nbsp & nbsp Val2 : Byte
& nbsp & nbsp RGB1,
& nbsp & nbsp RGB2 : PByteArray
begin
& nbsp & nbsp //asegurarse Primero de que se RGB en lugar de una de colores de windows
& nbsp & nbsp Color1 := ColorToRGB(Color1)
& nbsp & nbsp Color2 := ColorToRGB(Color2)
& nbsp & nbsp //Punto de nuestras matrices de Bytes a 2 colores
& nbsp & nbsp RGB1 := @Color1
& nbsp & nbsp RGB2 := @Color2
& nbsp & nbsp //Mezcla de la B,G,R
& nbsp & nbsp for I:=0 to 2 do
& nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp Val1 := RGB1[I] * (255 - Opacidad) div 255
& nbsp & nbsp & nbsp & nbsp Val2 := RGB2[I] * Opacidad div 255
& nbsp & nbsp & nbsp & nbsp RGB1[I] := Val1 Val2
& nbsp & nbsp final
& nbsp & nbsp //Establece el color de la bandera para especificar $01 = real de color RGB
& nbsp & nbsp RGB1[3] := 1
& nbsp & nbsp Resultado := Color1
fin









Mezcla de 2 colores


Mezcla de 2 colores : Multi-millones de consejos para hacer su vida mas facil.


Como mezclar 2 TColor juntos con una determinada fuerza (Opacidad).
funcion BlendColors(Color1, Color2: TColor Opacidad: Byte): TColor
var
& nbsp & nbsp I : Integer
& nbsp & nbsp Val1,
& nbsp & nbsp Val2 : Byte
& nbsp & nbsp RGB1,
& nbsp & nbsp RGB2 : PByteArray
begin
& nbsp & nbsp //asegurarse Primero de que se RGB en lugar de una de colores de windows
& nbsp & nbsp Color1 := ColorToRGB(Color1)
& nbsp & nbsp Color2 := ColorToRGB(Color2)
& nbsp & nbsp //Punto de nuestras matrices de Bytes a 2 colores
& nbsp & nbsp RGB1 := @Color1
& nbsp & nbsp RGB2 := @Color2
& nbsp & nbsp //Mezcla de la B,G,R
& nbsp & nbsp for I:=0 to 2 do
& nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp Val1 := RGB1[I] * (255 - Opacidad) div 255
& nbsp & nbsp & nbsp & nbsp Val2 := RGB2[I] * Opacidad div 255
& nbsp & nbsp & nbsp & nbsp RGB1[I] := Val1 Val2
& nbsp & nbsp final
& nbsp & nbsp //Establece el color de la bandera para especificar $01 = real de color RGB
& nbsp & nbsp RGB1[3] := 1
& nbsp & nbsp Resultado := Color1
fin


Mezcla de 2 colores

Mezcla de 2 colores : Multi-millones de consejos para hacer su vida más fácil.
Recommander aux amis
  • gplus
  • pinterest

Comentario

Dejar un comentario

Clasificación