Цвет пикселя под курсором

@NT SERVICE · Регистрация: 27.01.2013

Студворк — интернет-сервис помощи студентам

Delphi

procedure TForm1.tMR1Timer(Sender: TObject);
var
  p: TPoint;
  DC: HDC;
begin
  GetCursorPos(p);
   lbl1.Caption:= Format('%d - %d', [p.X, p.Y]);
     DC:= GetWindowDC(0);
     pnl1.Font.Color:= GetPixel(DC, p.X, p.Y); // так работает
    // pnl1.Color:= GetPixel(DC, p.X, p.Y); // так нет
   if GetAsyncKeyState(VK_LBUTTON) <> 0 then
   begin
     lbl2.Caption:= Format('%d - %d', [p.X, p.Y]);
     fColor := GetPixel(DC, p.X, p.Y);
     pnl2.Color:= fColor; // и так нет
   end;
   ReleaseDC(0, DC);
end;

Почему не меняется цвет панели?

@NIKOLAYY · 08.01.2015, 14:39

Сообщение от NT SERVICE

Почему не меняется цвет панели?

У меня работает твой код, меняется цвет ранели-2 на клик мыши, и цвет панели-1 меняется тоже, только не ее самой цвет а цвет ее надписи.

@NT SERVICE · 08.01.2015, 14:43 **[ТС]**

Сообщение от NIKOLAYY

цвет ее надписи.

Вот в этом и проблема...
Надо изменить цвет панели 1 и панели 2 по клику.
У меня XE6 не работает ни то ни то.

@NIKOLAYY · 08.01.2015, 14:50

NT SERVICE,
Ну я так и понял, ты надпись стер и забыл и ждеш измений цвета, а так все работает. Ну я переменную еще глобально добавил fColor: TColor;
Дак ты таймер пореже поставь, если неработает, а то у тебя функция GetAsyncKeyState может не успевать.

@NT SERVICE · 08.01.2015, 14:56 **[ТС]**

Сообщение от NIKOLAYY

глобально добавил fColor:

Она есть у меня.

Сообщение от NIKOLAYY

ты надпись стер и забыл

Не-а, я ее за комментировал и попробовал на font.color.

@NIKOLAYY · 08.01.2015, 15:05

Ну на тогда. Координаты курсора за пределами мыши
Сама функция GetAsyncKeyState она хоть и легкая но есть в ней плохие черты работать от таймера.

@NT SERVICE · 08.01.2015, 15:09 **[ТС]**

Зачем Hook???
И, так должно работать...
Попробовал на D7, все работает.
А, ХЕ6 что надо?

@NIKOLAYY · 08.01.2015, 15:14

Сообщение от NT SERVICE

Попробовал на D7, все работает.
А, ХЕ6 что надо?

Странно, незнаю, я на D7 собирал.

@NT SERVICE · 08.01.2015, 15:36 **[ТС]**

"Доперло", ParentBackground был True...
Иду бинокль покупать...

@NIKOLAYY 841 / 736 / 342 Регистрация: 22.09.2012 Сообщений: 5,034
	08.01.2015, 14:39	2
	Сообщение от NT SERVICE Почему не меняется цвет панели? У меня работает твой код, меняется цвет ранели-2 на клик мыши, и цвет панели-1 меняется тоже, только не ее самой цвет а цвет ее надписи. 1

@NT SERVICE 117 / 117 / 39 Регистрация: 27.01.2013 Сообщений: 531
	08.01.2015, 14:43 [ТС]	3
	Сообщение от NIKOLAYY цвет ее надписи. Вот в этом и проблема... Надо изменить цвет панели 1 и панели 2 по клику. У меня XE6 не работает ни то ни то. 0

@NIKOLAYY 841 / 736 / 342 Регистрация: 22.09.2012 Сообщений: 5,034
	08.01.2015, 14:50	4
	NT SERVICE, Ну я так и понял, ты надпись стер и забыл и ждеш измений цвета, а так все работает. Ну я переменную еще глобально добавил fColor: TColor; Дак ты таймер пореже поставь, если неработает, а то у тебя функция GetAsyncKeyState может не успевать. 0

@NT SERVICE 117 / 117 / 39 Регистрация: 27.01.2013 Сообщений: 531
	08.01.2015, 14:56 [ТС]	5
	Сообщение от NIKOLAYY глобально добавил fColor: Она есть у меня. Сообщение от NIKOLAYY ты надпись стер и забыл Не-а, я ее за комментировал и попробовал на font.color. 0

@NIKOLAYY 841 / 736 / 342 Регистрация: 22.09.2012 Сообщений: 5,034
	08.01.2015, 15:05	6
	Ну на тогда. Координаты курсора за пределами мыши Сама функция GetAsyncKeyState она хоть и легкая но есть в ней плохие черты работать от таймера. 0

@NT SERVICE 117 / 117 / 39 Регистрация: 27.01.2013 Сообщений: 531
	08.01.2015, 15:09 [ТС]	7
	Зачем Hook??? И, так должно работать... Попробовал на D7, все работает. А, ХЕ6 что надо? 0

@NIKOLAYY 841 / 736 / 342 Регистрация: 22.09.2012 Сообщений: 5,034
	08.01.2015, 15:14	8
	Сообщение от NT SERVICE Попробовал на D7, все работает. А, ХЕ6 что надо? Странно, незнаю, я на D7 собирал. 0

@NT SERVICE 117 / 117 / 39 Регистрация: 27.01.2013 Сообщений: 531
	08.01.2015, 15:36 [ТС]	9
	"Доперло", ParentBackground был True... Иду бинокль покупать... 0

Опции темы