Ver Mensaje Individual
  #2  
Antiguo 25-02-2005
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - Espańa
Posts: 18.278
Reputación: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
La Imagen tiene X pixels de ancho, por Y pixels de Alto, eso te lo indican las propiedades Height y Width. Basta con que hagas un recorrido por todos los pixels de la imagen (pixels[x,y]) con un doble for y cambies el valor de la propiedad pixel que tu quieres por el valor del color nuevo; Algo así:

Código Delphi [-]
 var
   oldColor, NewColor:Integer;
   i,j:Integer;
 begin
   ...
   rellena las propiedades utilizando el combo de selección de colores, por ejemplo
 ...
    for i := 0 to (img.Height - 1) do begin
       for j := 0 to (img.Width - 1) do begin
          // es del color que quiero cambiar?
          if (img.Canvas.Pixel[i,j] = oldColor) then begin
            img.Canvas.Pixel[i,j] := newColor;
          end;
        end;
    end;
 
   ... Es una aproximación, pero te puede servir para probar...
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita