Отлов цвета в определенной области экрана

Posted by obzor under Delphi

Ситуация такая: в определенной области экрана (всегда в одном и том же месте) появляется текст (одно слово, оно всегда разное) разного цвета (синий, красный и зелёный). Алгоритм автоматизации такой:
-если цвет слова зелёный, то сделать одно действие;
-если цвет слова синий, то сделать второе действие;
-если цвет красный красный, то сделать третье действие;
Сложность для меня именно в первых частях (определить цвет), со второй частью всё просто. Я так понимаю достаточно отловить цвет определенного пикселя и затем сравнивать его с синим, зеленым и красным. Но это всё теория, а на практике я даже боюсь представить сколько тут тягомотины, тем более для моего уровня. У кого есть какие мысли? Буду признателен любой помощи.

Arigato

Как вариант:

var
  Desktop: TCanvas;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  P: TPoint;
  C: TColor;
begin
  GetCursorPos(P);
  C := Desktop.Pixels[P.X,P.Y];
  Color := C;
  Caption :=
    'RGB('+
    IntToStr(GetRValue(C))+
    ','+
    IntToStr(GetGValue(C))+
    ','+
    IntToStr(GetBValue(C))+
    ')';
end;

initialization
  Desktop := TCanvas.Create;
  Desktop.Handle := GetDC (0);

finalization
  Desktop.Free

end.

тема на форуме

Похожие статьи

• Как получить доступ к R,G,B,A значениям каждого пиксела через указатель Scr?
• Сортировка цветов
• Перевести 4-битное число в RGB
• Преобразование RGB цвета в строку
• Получение серого изображения из исходного