Определение цвета в любой части экрана мышкой

← →
Эндрю2 (2002-01-30 21:43) [0]

Кто знает, как в DELPHI при наведении мыши на любую часть экрана
в моей программе бы высвечивался код или надпись данного цвета, надо помочь одному знакомому, у которого цветоаномал.

← →
Фэ © (2002-01-30 22:41) [1]

procedure TSForm.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var col: TColor;
begin
col := Canvas.Pixels[X, Y]
end;

← →
SoftOne © (2002-01-31 02:28) [2]

> Фе
А ты проверил "при наведении мыши на любую часть экрана"?

← →
~Sergius (2002-01-31 04:26) [3]

var col: TColor; Cnv: TCanvas; dc: hDC; pt: TPoint; begin try Cnv := TCanvas.Create; dc := GetWindowDC (0); GetCursorPos (pt); With pt do Col := Cnv.Pixels[x,y]; finally ReleaseDC (0,dc); Cnv.Free; end; end;

По такому принципу, короче.
Все это дело повесь, например, на таймер.

← →
~Sergius (2002-01-31 04:59) [4]

Прошу прощения, после dc := GetWindowDC (0); нужно поставить:
Cnv.Handle := dc;

← →
Walker_sw (2002-01-31 06:09) [5]

зачем создавать canvas???
я делал это так:
var Color: TColor; //.......... procedure TfrmMain.Timer(Sender: TObject); var pt: TPoint; dc: hDC; begin dc := GetDC (0); GetCursorPos (pt); Color := GetPixel(dc, pt.x, pt.y); // Label1.Caption:=IntToHEX(color, 6);// только надо учитывать, что цвет программа берёт в формате bb gg rr, а в html"е используется наоборот, то есть rr gg bb ReleaseDC (0, dc); end;

← →
pasha_golub © (2002-01-31 12:03) [6]

На www.torry.ru есть пакет компонент от ABF systems, а в нем есть пипетка. Я пробовал - отличная штука!

← →
~Sergius (2002-01-31 23:43) [7]

2 Walker_sw
>> зачем создавать canvas???
Просто привычка, расписывая ответ на вопрос о делфи свести к минимуму использование API. GetPixel из АПИ несомненно лучше, но если человеку дать канву для рабочей области экрана, то, может быть, оно и к лучшему (может, цветоаномал захочется исправить из делфи ;-). Канва она и есть канва - удобно.

← →
iZEN (2002-02-01 01:45) [8]

Есть такая утилитка(махонькая): Pixie.exe

> IZEN
Действительно - классная штучка.

(Для поиска. www.filesearch.ru Строка запроса = Pixie)

Определение цвета в любой части экрана мышкой Найти похожие ветки