Как получить цвет заливки контрола

[Тоба]

На форме лежит панель, цвет панели переодически будет меняться.
Вопрос:
Как на Api получить цвет этой панели.
Пробывал так:

procedure TForm1.Button1Click(Sender: TObject);
var
dcPan : HDC;
ColorPan : Cardinal;
begin
dcPan := GetWindowDC(Panel1.Handle);
ColorPan :=GetDCBrushColor(dcPan);
ShowMessage(IntToStr(ColorPan));
end;

Не получается, результат всегда один и тот же - 16777215

[s-andriano]

Попытайтесь прочитать один или несколько (если на панели есть какие-то надписи) пикселей и проанализировать их цвет.

[Nuklon]

Чем не устраивает свойство Color

Panel1.Color
// если цвет кисти нужен
Panel1.Brush.Color

[Тоба]

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

Чем не устраивает свойство Color

Если бы устраивало, то данный топик бы не создавался.
Необходимо на API это реализовать.

Сообщение от s-andriano

Попытайтесь прочитать один или несколько (если на панели есть какие-то надписи) пикселей и проанализировать их цвет.

Можно и так конечно выкрутиться, но всё-же должен же быть рациональный способ. Есть (же вроде) функции для решения этой задачи:

GetDCBrushColor
GetBkColor
и т.д.

как не пробовал - не получается!

[Пепел Феникса]

Сообщение от Тоба

Если бы устраивало, то данный топик бы не создавался.
Необходимо на API это реализовать.



Можно и так конечно выкрутиться, но всё-же должен же быть рациональный способ. Есть (же вроде) функции для решения этой задачи:

GetDCBrushColor
GetBkColor
и т.д.

как не пробовал - не получается!

окно не обязано применять автоотрисовку, оно может рисовать само, и тогда ничего вы не получите так просто.

[Stilet]

как не пробовал - не получается!

Я попробовал у меня получилось:

Caption:=IntToHex(GetBkColor(PanelHandle),10);

Показывай как пробовал.

[Stilet]

как не пробовал - не получается!

Я попробовал у меня получилось:

Caption:=IntToHex(GetBkColor(PanelHandle),10);

Показывай как пробовал.

[Stertor]

Попробуйте с помощью GetPixel, это даже правильнее.