Определить клиентскую часть пустого блокнота

[igrok111]

Допустим открыт блокнот, нужно определить координаты поля для ввода - тоесть найти оно находятся (типо 4 координаты прямоугольника). Я знаю как определить координаты всего окна, но это не нужно.
Это нужно сделать для пустого блокнота, поле белое. Нужно что б делфи нашол это поле по цвету(как-то). Подскажите как?
Допустим что на экране больше нету белого цвета(или мало - в таком случае найти самый большой "массив" белого цвета, можно что б не совсем точно определило.

Зеленым цветом показано, как тоже можно что б определило(тоесть примерно и что б не выходило за границы белого).

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

[Пепел Феникса]

зачем так усложнять?
у контролов блокнота есть классы, по ним и ищите.

[igrok111]

Сообщение от Пепел Феникса

зачем так усложнять?
у контролов блокнота есть классы, по ним и ищите.

пускай тогда открыта белая картинка, или она нарисована в пейнте в черной рамке(который открыт)
Короче нужно найти имеено белый цвет(или другой какой-то).

[Пепел Феникса]

сделали снимок экрана, пробежались по массиву пикселей, нашли белые пиксели, в чем именно проблема?

[igrok111]

Сообщение от Пепел Феникса

сделали снимок экрана, пробежались по массиву пикселей, нашли белые пиксели, в чем именно проблема?

куда "заливать" этот снимок? в специальное поле на форме(типо Иммедж) или как-то в "воздухе"? И как потом сканировать? Я так понял - берем сначало 0:0 потом определяем цвет, потом 0:10 - тоесть что б шаг был больше(что б быстрее просканировало) и так до конца 1360:700(можно округлить). И если где-то видим - 340:120 340:130 350:120 все белые.......то типо тут это поле(так как большое количество белых пикселей). Сколько по времени займет такая проверка?

upd. Я нашол такой код, который сюдя по заголовку должен:определить код цвета произвольной точки экрана
Он возвращает значение в кардинал, которое я перевел в стринг (интТУстр) и вывожу в едит, постоянно получается тоже самое число 4294967295. Меняю координаты и все равно оно. Как-то по другоиу определять цвет пикселя можно?

procedure TForm1.Button1Click(Sender: TObject);
var
  DC: HDC;
  Color: Cardinal;
begin
  DC := CreateDC('MONITOR', nil, nil, nil);
  Color := GetPixel(DC, 300, 300);
  edit1.Text:=inttostr(color);

end;

[Пепел Феникса]

куда "заливать" этот снимок? в специальное поле на форме(типо Иммедж) или как-то в "воздухе"? И как потом сканировать? Я так понял - берем сначало 0:0 потом определяем цвет, потом 0:10 - тоесть что б шаг был больше(что б быстрее просканировало) и так до конца 1360:700(можно округлить). И если где-то видим - 340:120 340:130 350:120 все белые.......то типо тут это поле(так как большое количество белых пикселей). Сколько по времени займет такая проверка?

Bitmap или HDC смотря с чем работать умеем, я бы применил DIBitmap, там имеет прямой доступ к пикселям без Scanline.

по времени зависит от мощи компа.

код не рабочий, самый банальный пример(без снимка, но он тоже допустим)

procedure TForm1.Button1Click(Sender: TObject);
var
  DC: HDC;
  Color: Cardinal;
begin
  DC :=GetDC(0);
  Color := GetPixel(DC, 300, 300);
  edit1.Text:=inttostr(color);

end;

[igrok111]

Сообщение от Пепел Феникса

Я уже нашел нужный код. Он записует в мемо цвет пикселя в формате RGB - белый получается 255255255. А сейчас я мучаюсь с созданием цикла, который с шагом 20 пикселей будет проходить по екрану, как его сделать?
К примеру координаты i:i2. надо сначало что б i2=0, а i постоянно добавлять 20. Как только i>screen.width-20 то его обнулить, а к i2 прибавить 20, и так делать до тех пор пока i2>screen.Height-20. Может с помошью метки сделать(label)?

procedure TForm1.Button1Click(Sender: TObject);
var
  DC: HDC;
  Pix: Cardinal;
  R,G,B:string;
  i, i2:integer;
begin
  Dc:=GetDC(0);
  Pix:=GetPixel(Dc, i, i2); //координаты
  R:=IntToStr(GetRValue(Pix));
  G:=IntToStr(GetGValue(Pix));
  B:=IntToStr(GetBValue(Pix));
  memo1.Lines.Add(IntToStr(GetRValue(Pix))+IntToStr(GetGValue(Pix))+IntToStr(GetBValue(Pix)));
  end;
end.

[Пепел Феникса]

цикл while вас спасет.