02.10.2006, 14:32
|
|
Местный
|
|
Регистрация: 03.06.2006
Адрес: Почту найдете на моем сайте
Сообщения: 576
Версия Delphi: D10.2
Репутация: 214
|
|
Непосредственно с такой ситуацией я не сталкивался, но нечто похожее делать приходилось. Мне нужно было получить цвет пикселя под курсором мыши. Я это сделал так:
Код:
procedure TForm1.Timer1Timer(Sender: TObject);
var
DC: HDC;
Cur: TPoint;
ColorValue: Cardinal;
begin
DC := GetDC( 0 );
// Получаю координаты курсора
GetCursorPos( Cur );
// Узнаю цвет пикселя в полученных координатах
ColorValue := GetPixel( DC, Cur.X, Cur.Y );
// Показываю полученный цвет
PanelMonitor.Color := ColorValue;
// Показываю красную составляющую цвета
TrackRValue.Position := GetRValue( ColorValue );
// Показываю зеленую составляющую цвета
TrackGValue.Position := GetGValue( ColorValue );
// Показываю синюю составляющую цвета
TrackBValue.Position := GetBValue( ColorValue );
ReleaseDC( 0, DC );
end;
|