VPF::Как взять цвет пикселя с окна игры?

Griffon

Дата 2.4.2008, 17:12 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 26
Регистрация: 14.11.2006

Репутация: нет
Всего: нет

Нужно 2 функции:
1) Клик по окну программы, и функция возвращает координаты места этого клика. (не первичная важность)
2) В функцию передаем полученные ранее координаты, и она возвращает код цвета пикселя в этом месте экрана. (основная важность. На крайний случай координаты смогу узнать "вручную").
Помогите, пожалуйста.

Bitter

Дата 2.4.2008, 20:01 (ссылка)

(нет голосов)

Загрузка ...

Опытный лентяй

Профиль
Группа: Завсегдатай
Сообщений: 1209
Регистрация: 15.8.2004
Где: Харьков, Ukraine

Репутация: 6
Всего: 27

Код


function GetDesktopColor(x,y:integer):integer;
var DC:HDC;
begin
 DC:=GetDC(0);
 Result:=GetPixel(DC,x,y);
 ReleaseDC(0,DC);
end;

...................

  GetCursorPos(xx);
  Form.Panel.Color:=GetDesktopColor(xx.x,xx.y);

Это сообщение отредактировал(а) Bitter - 2.4.2008, 20:03

Griffon

Дата 2.4.2008, 22:26 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 26
Регистрация: 14.11.2006

Репутация: нет
Всего: нет

Цитата(Bitter @ 2.4.2008, 20:01)

Код


function GetDesktopColor(x,y:integer):integer;
var DC:HDC;
begin
 DC:=GetDC(0);
 Result:=GetPixel(DC,x,y);
 ReleaseDC(0,DC);
end;

...................

  GetCursorPos(xx);
  Form.Panel.Color:=GetDesktopColor(xx.x,xx.y);

Спасибо, но это же с десктопа? А координаты с окна программы? окно же могут двигать туда-сюда...
Вариант с окна взять (окно передать например хендлером)?

Bitter

Дата 3.4.2008, 19:37 (ссылка)

(нет голосов)

Загрузка ...

Опытный лентяй

Профиль
Группа: Завсегдатай
Сообщений: 1209
Регистрация: 15.8.2004
Где: Харьков, Ukraine

Репутация: 6
Всего: 27

А чем не устраивает цвет "десктопа"? Цвет "десктопа", это НЕ цвет картинки на рабочем столе. Это цвет того, что у тебя под курсором.

Или тебе нужен цвет окна, которое перекрыто другим окном? Если нет, тогда пользуйся той функцией, которую я написал....

Или я просто не понимаю в чём задача.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »