Большое Вам спасибо за ответ
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;
Inc(dstPixel);
end;
end;
|
Поправьте пожалуйста меня если не сложно, идея такая, если во время сканирования мы наткнулись на определенный цвет - перепрыгиваем на 15 пикселей дальше и продолжаем и дальше в том же духе. Я пытался изобразить нечто подобное, но не вышло. Будьте добры, помогите. Заранее спасибо.
17.10.2015, 21:57
Древовидный вид