Показать сообщение отдельно
  #2  
Старый 06.08.2008, 21:12
dmdx dmdx вне форума
Начинающий
 
Регистрация: 24.05.2008
Адрес: Москва
Сообщения: 133
Репутация: 15
По умолчанию

У тебя серая картинка на черном фоне?
Если тебе надо заменить например в картинке черный цвет на белый делай так
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
 i,j: integer;
begin
 for i:=0 to Image1.Picture.Width do
  for j:=0 to Image1.Picture.Height do
   if Image1.Canvas.Pixels[i,j]=clBlack then
    Image1.Canvas.Pixels[i,j]:=clWhite;
end;
Ответить с цитированием