No puedo capturar el Color de un Degradado

[Deiv]

Hola,
Sin tener en este momento Delphi a mano, la verdad es que si recuerdo que lo tengo con la propiedad stretch, veré...... como hago eso de traducir las coordenadas, imagino será al tamaño que tengo verdad?

[[seoane]]

Prueba con algo así:

Código Delphi [-]
function RatonAImagenX(Imagen: TImage; x: integer): integer;
begin
  Result:= (x * Imagen.Picture.Width) div Imagen.Width;
end;

function RatonAImagenY(Imagen: TImage; y: integer): integer;
begin
  Result:= (y * Imagen.Picture.Height) div Imagen.Height;
end;

Aunque lo ideal seria no tener que ajustar la imagen, si necesitas un tamaño diferente a 360x256 lo mejor seria cambiar el algoritmo que genera el degradado para ajustarlo al nuevo tamaño. ¿que tamaño necesitas?

[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