Necesito ayuda para un prgrama que enumere los colores

[[seoane]]

Hola Kandorf, efectivamente para manipular una imagen en condiciones, tienes que convertirla primero en un bitmap.

Pero eso no es problema. Supongo que ahora estas usando algo como esto para cargar la imagen:

Código Delphi [-]
  Image1.Picture.LoadFromFile('imagen.jpg');

Pues cambia esa linea por este otro código:

Código Delphi [-]
var
  Picture: TPicture;
  Bitmap: TBitmap;
begin
  Picture:= TPicture.Create;
  try
    Bitmap:= TBitmap.Create;
    try
      Picture.LoadFromFile('imagen.jpg');
      Bitmap.Width:= Picture.Width;
      Bitmap.Height:= Picture.Height;
      Bitmap.Canvas.Draw(0,0,Picture.Graphic);
      Image1.Picture.Assign(Bitmap);
    finally
      Bitmap.Free;
    end;
  finally
    Picture.Free;
  end;
end;

En cuanto a hacer coincidir las coordenadas del ratón con las coordenadas de la imagen, si la propiedad Streach esta a TRUE. Puede utilizar estas funciones:

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;

No se si me queda lago por ahí ... de todas formas, un consejo, si vas haciendo progresos o tienes nuevas dudas es mejor que escribas otra respuesta nueva en vez de editar tu ultima respuesta. Si no llego a entrar aquí por casualidad no me hubiera enterado de tus 3 ultimas "ediciones"