3 respuestas en este tema

[Soraya]

Porfavor... alguien que me ayude ... me urg.. degradar 3 colores amarillo a azul y de azul a rojo en la mismo lienzo..... nada mas lo eh logrado de dos... si alguien sabe porfavor... colaboreme estoy programando en DELPHI 

[Delphius]

Hola Soraya,
Bienvenida a DelphiAccess.

¿Podrías explicarnos a que te refieres por lienzo? Y si no es mucha molestia, indicarnos el código para ver como lo es que lo estás haciendo y tener idea de por donde se puede encarar el problema.

De este modo podremos ayudarte apropiadamente.

Saludos,
PD: Evita llamar a las urgencias. Ningún hilo es de carácter urgente. Se ayuda en la medida en que la gente pueda y tenga un tiempo libre. Se paciente por favor, todos tenemos nuestras obligaciones.

[Soraya]

ok!!!!! gracias x responder el código hasta ahora que tengo es:

delphi

procedure TForm1.BtndegradadoClick(Sender: TObject);
var 
  i,j,x:integer;
begin
  For i:=0 to 700 do
    for j:=0 to 360 do
        paintbox1.Canvas.Pixels[i,j] := RGB( trunc(226*(j-360)/-360),
                                             trunc((247*(j-360)/-360)+(0*(j-0)/360)),
                                             trunc((25*(j-360)/-360)+(225*(j-0)/360)));
        paintbox1.Canvas.Pixels[j,i] := RGB( trunc(252*(j-0)/360),
                                             trunc(60*(j-0)/360),
                                             trunc((255*(j-360)/-360)+(8*(j-0)/360)));
end;

pero esta para degradado de solo dos colores... necesito para degradar a los tres amarillo a azul y azul a rojo....

El lienzo al que me refiero es en donde se me va a asomar el degradado.... osea el panel

[escafandra]

Esto puede interesarte.

Saludos.