[Alloc]

Приветы!

Многоуважаемые форумчане, помогите разобраться.. Собственно Сабж.

Вот кусочек кода что бы лучше понять о чем я:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32

Type   TRGBTripleArray = ARRAY[Word] of TRGBTriple;   pRGBTripleArray = ^TRGBTripleArray; var   h1: HWND;   DC: HDC;   bmp: TBitmap;   Point: TPoint;   x, y: Integer;   PicArray: pRGBTripleArray; begin   Point.X:= 322;   Point.Y:= 514;   Windows.ClientToScreen(h1,Point);     bmp := TBitmap.Create;   bmp.PixelFormat := pf32bit;   bmp.Width := 346; bmp.Height := 40; try     BitBlt(bmp.Canvas.Handle, 0, 0, bmp.Width, bmp.Height, dc, Point.X, Point.Y, SRCCOPY);       for x := 0 to bmp.Width - 1 do     begin       PicArray := bmp.ScanLine[x];       ...       ...     end;   finally     bmp.Free;     ReleaseDC(h1, dc);   end; end;

Вообщем необходимо пробежаться не по всему изображению а только по X, вдоль него, при этом координата Y уже установлена и не должна меняться. Проще говоря, на определенной высоте пройтись вдоль всего изображения. Как это сделать? Да, и будьте добры, подскажите как правильно использовать ScanLine в данном случае. Заранее спасибо.

[Vayrus]

Примерно как-то так, если что не напутал:

Код:

1 2 3 4 5 6 7 8 9 10 11 12

dstPixel := Bmp1.ScanLine[Y]; for X := 0 to Width - 1 do begin   with dstPixel^ do   begin     rgbRed := dstPixel^.rgbRed;     rgbGreen := dstPixel^.rgbGreen;     rgbBlue := dstPixel^.rgbBlue;     Inc(srcPixel);   end;   Inc(dstPixel); end;

[Alloc]

Большое Вам спасибо за ответ Vayrus, думая это то что надо. А дальше проверять на цвет так?

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

var   delta: Variant; begin delta:= 160; dstPixel := Bmp1.ScanLine[Y]; for X := 0 to Width - 1 do begin   with dstPixel^ do   begin     rgbRed := dstPixel^.rgbRed;     rgbGreen := dstPixel^.rgbGreen;     rgbBlue := dstPixel^.rgbBlue;     Inc(srcPixel);   end;     if Abs(GetRValue(dstPixel^.rgbRed) - 160) < delta and        Abs(GetGValue(dstPixel^.rgbGreen) - 170) < delta and        Abs(GetBValue(dstPixel^.rgbBlue) - 170) < delta then        x:=x+15; // Тут выдает ошибку "Assignment to FOR-Loop variable 'X'"     Inc(dstPixel); end; end;

Поправьте пожалуйста меня если не сложно, идея такая, если во время сканирования мы наткнулись на определенный цвет - перепрыгиваем на 15 пикселей дальше и продолжаем и дальше в том же духе. Я пытался изобразить нечто подобное, но не вышло. Будьте добры, помогите. Заранее спасибо.