Взятие цвета с экрана Опции

[Bokul]

Надо бы програмка, которая возвращает цвет заданного пикселя экрана, желательно в RGB и кодом.

Сообщение отредактировано: Bokul - 18.03.2007 2:30

[volvo]

Тебе что, готовая нужна? Сам написать не хочешь?

Всего делов:

function DesktopColor(const X, Y: Integer): TColor;
var
  c: TCanvas;
begin
  c := TCanvas.Create;
  try
    c.Handle := GetWindowDC(GetDesktopWindow);
    Result   := GetPixel(c.Handle, X, Y);
  finally
    c.Free;
  end;
end;

...
  GetCursorPos(Pos);
  myColor := DesktopColor(Pos.X, Pos.Y);
...

[Bokul]

Сам написать не хочешь?

Сам напросился...

Это Delphi?

[volvo]

Дельфи, кто ж еще?

Перенести тему?

[Bokul]

Перенести тему?

Еееее, давай.

Дельфи, кто ж еще?

А вдруг в Fpc появился TCanvas... Можешь файл проекта присоединить?

[volvo]

Можешь файл проекта присоединить?

Вот:

[Bokul]

Спасибо!
Есть два вопросы:
1 Где можно посмотреть что делает, например, функция GetRValue? По контексту и так ясно, но во встроенной справке я не нашел. Другими словами как ее (систему помощи) использовать?
2 Как перевести TColor в #FFFFFF формат?

[Caranthir]

сдесь DRKB -реальная вещь

[TarasBer]

2 Как перевести TColor в #FFFFFF формат?

Ну, по-моему, TColor в integer переводится ретипизацией...
А выписать integer в шестнадцатиричной системе счисления трудностей нету.

[klem4]

Как перевести TColor в #FFFFFF формат?

Либо руками, либо

Недавно сам это искал, хотя может это не совсем то что тебе нужно, ибо в некоторых случаях возвращает значения не в виде строки в формате hex

В модуле graphics имеются две недокументированные функции:



function ColorToString(Color: TColor): string;



Если значение TColor является именованным цветом, функция возвращает имя цвета ("clRed"). В противном случае возвращается шестнадцатиричное значение цвета в виде строки.



function StringToColor(S: string): TColor;



Данная функция преобразует "clRed" или "$0000FF" во внутреннее значение цвета.