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

Вниз

Как узнать цвет под мышкой?   Найти похожие ветки 

← →
Denis56   (2004-05-21 15:28) [0]

Помогите плиз, как узнать какой цвет в данный момент под стрелкой мышки?

---

← →
Алхимик ©   (2004-05-21 18:13) [1]

1.Получить координаты курсора.
2.Если мыша над твоей формой, - TYouForm.Canvas.Pixel[x,y] : TColor;
3.C произвольным окном посложнее.

---

← →
Приколщик   (2004-05-23 15:20) [2]

Удалено модератором

---

← →
Spaler   (2004-05-23 16:55) [3]

Удалено модератором

---

← →
grom   (2004-05-25 17:20) [4]

На сайте http://www.zdima-iv.nm.ru/есть исходник ColorChoose.zip

---

← →
ПЛОВ   (2004-05-26 18:39) [5]

А скриншот сделать не пробовал? Вот потом можно и Canvas.Pixel[x,y] : TColor

---

← →
grom   (2004-05-27 10:44) [6]

procedure TForm1.Timer1Timer(Sender: TObject);
var
p: TPoint;
c: TColor;
begin
GetCursorPos(p);
c := GetPixel(GetDC(0), p.X, p.Y);
Caption :="R="+IntToStr(GetRValue(c)) + " G=" + IntToStr(GetGValue(c)) + " B=" + IntToStr(GetBValue(c));
Color := c;
end;

---

← →
Каминский   (2004-06-01 22:40) [7]

А потом ReleaseDC

---

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

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

Наверх

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