Форум: "Начинающим";
Текущий архив: 2006.03.26;
Скачать: [xml.tar.bz2];

Вниз

Цвет пикселя под курсором   Найти похожие ветки 

← →
Handle   (2006-03-13 13:47) [0]

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

---

← →
Yanis ©   (2006-03-13 13:53) [1]

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

---

← →
API ©   (2006-03-13 13:58) [2]

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;

---

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

А как в RGB ?

...Text:= R,G,B

---

← →
Yanis ©   (2006-03-13 14:22) [4]

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:25) [5]

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


СПАСИБО.

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2006.03.26;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.037 c