Сканирование формы

[us5mch]

procedure wer();
var i,j : integer;
Color : Cardinal;

DC: HDC;
begin
DC := GetDC( 0 );
Color:= GetPixel( DC, 50,245 );

for i:=200 to 850 do begin
for j:=150 to 435 do begin
Color:= GetPixel( DC, i,j );

if (GetPixel( DC, i-49,j )=0) then begin

if (GetPixel( DC, i+49,j )=0) then begin
if (GetPixel( DC, i,j-49 )=0) then begin
if (GetPixel( DC, i,j+49 )=0) then begin
Form1.Canvas.MoveTo(i-48-Form1.Left-4,j-Form1.Top-30);
Form1.Canvas.LineTo(i+48-Form1.Left-4,j-Form1.Top-30);
Form1.Canvas.MoveTo(i-Form1.Left-4,j-30-Form1.Top-30);
Form1.Canvas.LineTo(i-Form1.Left-4,j+30-Form1.Top-30);
end;
end;
end;
end;
end;
end;
end;





Смысл такой: на форме появляется окружность в произвольном месте. Диаметр окружности известен. нужно найти центр окружности и в центре нарисовать крестик. Я перебираю попиксельно всю форму и проверяю на цвет равноудалённые пиксели от данного на радиус окружности - два пикселя по горизонтали и два по вертикали. Как только все четыре пикселя имеют один цвет то я нахожусь в центре и рисую крест. Но всё это очень медленно. Как повысить скорость?

[evg_m]

начиная с верхней линии смотрим два соседних по горизонтали.
как только два пикселя имеют разный цвет значит мы коснулись окружности. (находимся на горизонтальной касательной).
Перпендикуляр к касательной проходит через центр.(является диаметром)

[us5mch]

Можно и так но всё равно GetPixel это очень медленно, а как через Bitmap?

[dmitriegorovih]

Я сделал так я делал ресовалку графиков и очень долго рисовалось просто чем меньше процесорр возвращяеться на исходную точку тем быстрее будет идти поиск и выввод