| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Цвет пикселя под курсором [D6, WinXP]

Handle ©   (2006-03-13 13:47:00) 

Подскажите как получить значение цвета пикселя под курсором ?

---

Handle   (2006-03-13 14:25:00) [1]

> API ©   (13.03.06 13:58) [2]
>Yanis ©   (13.03.06 14:22) [4]


СПАСИБО.

---

Yanis   (2006-03-13 14:22:00) [2]

var
 c: TColor;
begin
 C := GetPixel(GetDC(0), Mouse.CursorPos.X, Mouse.CursorPos.Y);
 Caption := Format('R:%d, G:%d, B:%d', [GetRValue(c), GetGValue(c),GetBValue(c)])

---

Handle   (2006-03-13 14:14:00) [3]

А как в RGB ?

...Text:= R,G,B

---

API   (2006-03-13 13:58:00) [4]

var
 P: TPoint;
 DC: HDC;
begin
 GetCursorPos(P);
 DC := GetDC(HWND_DESKTOP);
 try
   Color := GetPixel(DC, P.X, P.Y);
 finally
   ReleaseDC(HWND_DESKTOP, DC);
 end;    
end;

---

Yanis   (2006-03-13 13:53:00) [5]

GetPixel(GetDC(0), Mouse.CursorPos.X, Mouse.CursorPos.Y)

---

Наверх