Работа с Image

[Elena13]

У меня в image загружается картинка. Мне нужно провести проверку каждого пикселя и если пиксель не белый, то форма заливается выбранным в tcolorbox цветом. Не знаю как написать код. Помогите

[NetSpace]

procedure TForm1.N2Click(Sender: TObject);
var i,j,r,g,b:Integer;
    MyBmp1:TBitMap;
    MyJpg:TJPEGImage;
begin
   Image1.Picture.LoadFromFile('Рисунок.jpg');
   MyBmp:=TBitMap.Create;
   MyBmp.Width:=Image1.Picture.Width;
   MyBmp.Height:=Image1.Picture.Height;
   MyJpg:=TJPEGImage.Create;
   MyJpg.LoadFromFile('Рисунок.jpg');
   MyBmp1.Assign(MyJpg);
   for i:=0 to MyBmp.Width-1 do for j:=0 to MyBmp.Height-1 do
   begin
         Application.ProcessMessages;
         r:=GetRValue(MyBmp.Canvas.Pixels[i,j]);
         g:=GetGValue(MyBmp.Canvas.Pixels[i,j]);         
         b:=GetBValue(MyBmp.Canvas.Pixels[i,j]);       
         if(r=255)and(g=255)and(b=255)then
         begin
           //вот тут пиксель этот белый заливаем нужным цветом
          MyBmp.Canvas.Pixels[i,j]:=//тут уж как-то сам свяжи с tcolorbox'ом
         end;
     end;
   MyJpg.Assign(MyBmp);
   MyJpg.SaveToFile('Рисунок.jpg');
   MyJpg.Free;
   MyBmp.Free;
end;

ну как-то так...

[Stilet]

Можно проще:

   for i:=0 to MyBmp.Width-1 do for j:=0 to MyBmp.Height-1 do
   begin
         if(MyBmp.Canvas.Pixels[i,j]<>clWhite)then
         begin
           MyBmp.Canvas.Pixels[i,j]:=НужныйЦвет
         end;
     end;

[WinCoder]

Можно быстрее

 
uses
  PngImage;
...
var
  aRGBLine: pRGBLine;
begin
  ...
  for i := 0 to MyBmp.Width - 1 do 
    begin
      aRGBLine := MyBmp.Scanline[i];
      for j := 0 to MyBmp.Height -1 do 
        begin
          r := aRGBLine[j].rgbtRed;
          g := aRGBLine[j].rgbtGreen;         
          b := aRGBLine[j].rgbtBlue;       
          if(r=255)and(g=255)and(b=255)then
            begin
              ...
            end;
        end;
    end;
end;

[Elena13]

Блин, ребят, не работает(((

[WinCoder]

Блин, ребят, не работает

Это к Ванге.

[Elena13]

Сообщение от WinCoder

Это к Ванге.

Никаких ошибок не выводит. Просто не меняет цвет и все

[NetSpace]

у нас в каждом коде есть пустое место, где вам, Елена, нужно вставить ваш цвет. или любой другой. для начала, чтоб лучше было видно, протестируйте программку на небольшом белом рисунке размером 100x100, а цвет заменяемый поставьте clRed - красный. к тому же, если у вас рисунок формата jpg, то он способен из белого сделать серый или близкий к такому (255, 249, 251) - тогда видимого результата уже не будет. вы возьмите рисунок формата BMP - в обычном PAINT'е нарисуйте узор и оставьте белое место. и вот этот вот рисунок и загрузите в Image

[WinCoder]

Сообщение от Elena13

Просто не меняет цвет и все

Код показывайте.

[Elena13]

Сообщение от WinCoder

Код показывайте.

 procedure TForm1.FormCreate(Sender: TObject);
var
rgn : HRGN;
begin
//овальная кнопка
rgn:=CreateEllipticRgn(0, 0, Btn1.Width, Btn1.Height);
SetWindowRgn(Btn1.Handle, rgn, true);
//создание формы
image1.align:=alClient;
TransparentColor:=True;
TransparentColorValue:=clWhite;
Color:=clWhite;
BorderStyle:=bsNone;
end;

procedure TForm3.ColorListBox1Click(Sender: TObject);
var
    i, j: Integer;
    MyBmp: TBitMap;
begin
Form1.btn1.Visible:=False;
Form1.Image1.Picture.Bitmap.LoadFromFile ('D:\2\Image1.bmp');
MyBmp:=TBitMap.Create;
MyBmp.Width:=Form1.Image1.Picture.Width;
MyBmp.Height:=Form1.Image1.Picture.Height;
for i:=0 to MyBmp.Width-1 do for j:=0 to MyBmp.Height-1 do
begin
if(MyBmp.Canvas.Pixels[i,j]<>clWhite)then
begin
MyBmp.Canvas.Pixels[i,j]:=ColorListBox1.Selected;
end;
end;
end;