Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

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

Denis56 © (2004-05-21 15:28:00)
Помогите плиз, как узнать какой цвет в данный момент под стрелкой мышки?

Каминский (2004-06-01 22:40:00) [1]
А потом ReleaseDC

grom (2004-05-27 10:44:00) [2]
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-05-26 18:39:00) [3]
А скриншот сделать не пробовал? Вот потом можно и Canvas.Pixel[x,y] : TColor

grom (2004-05-25 17:20:00) [4]
На сайте http://www.zdima-iv.nm.ru/естьисходник ColorChoose.zip

Spaler (2004-05-23 16:55:00) [5]
Удалено модератором

Приколщик (2004-05-23 15:20:00) [6]
Удалено модератором

Алхимик (2004-05-21 18:13:00) [7]
1.Получить координаты курсора.
2.Если мыша над твоей формой, - TYouForm.Canvas.Pixel[x,y] : TColor;
3.C произвольным окном посложнее.

Наверх

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