No puedo capturar el Color de un Degradado

[Deiv]

Gracias Seoane, no entendí como llamar a dichas funciones; pero:

Mi TIMage tiene el tamaño de 260 x 160

[[seoane]]

Las funciones se utilizan asi, donde tienes esto:

Código Delphi [-]
Clr := Image1.Canvas.Pixels[X, Y];

Coloca esto:

Código Delphi [-]
Clr := Image1.Canvas.Pixels[RatonAImagenX(Image1,X), RatonAImagenY(Image1,Y)];

En cuanto a modificar el algoritmo, déjeme ver si tengo un ratito libre y lo modifico.

[[seoane]]

Bueno pues parece que si tenia tiempo , aquí te dejo el algoritmo modificado para crear un degradado de 258x160 (el ancho tiene que ser múltiplo de 6). Espero que te sirva, acuerdate de modificar el tamaño del TImage y poner Streach a FALSE

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
var
  h,s,b: integer; //Tono, Saturacion, Luminosidad
  i,j: integer;
  x,y,z: integer;
begin
  Image1.Picture.Bitmap.Width:= 258;
  Image1.Picture.Bitmap.Height:= 160;
  with Image1.Canvas do
    begin
      Brush.Color:= clBlack;
      FillRect(ClipRect);
      b:= 255; // Luminosidad entre 0 y 255
      for h:= 0 to 257 do
        begin
          i:= ((h mod 43) * b) div 43;
          j:= b - i;
          for s:= 0 to 160 do
            begin
              x:= i + ((b-i) * s) div 160;
              y:= j + ((b-j) * s) div 160;
              z:= (b * s) div 160;
              case (h div 43) of
                0: Pixels[h,s]:= RGB(b,x,z);
                1: Pixels[h,s]:= RGB(y,b,z);
                2: Pixels[h,s]:= RGB(z,b,x);
                3: Pixels[h,s]:= RGB(z,y,b);
                4: Pixels[h,s]:= RGB(x,z,b);
                5: Pixels[h,s]:= RGB(b,z,y);
              end;
            end;
        end;
    end;
end;

Recuerda que al ya no usar la propiedad Streach ya no tienes que preocuparte por las corregir las coordenadas del ratón.

[Deiv]

Empezado por Seoane

Bueno pues parece que si tenia tiempo

Gracias Seoane estoy en un CiberCafe Internet, llegando a casa lo probaré

[Deiv]

Si, comprobado y repasado, funciona!, algo que llega a un final bonito.... ya parezco de telenovela
Gracias