Бих искал да получа цвета на шрифта на надпис на TGroupBox, за да мога да присвоя този цвят на TLabel.
Мисля, че трябва да използвам GetThemeColor
, но Изглежда не мога да разбера кои параметри да използвам?
Актуализация - Това е кодът, който използвам въз основа на отговора:
function GetGroupBoxTextColor: TColor;
var
C: COLORREF;
ElementDetails: TThemedElementDetails;
begin
Result := clWindowText;
if ThemeServices.ThemesEnabled then
begin
ElementDetails := ThemeServices.GetElementDetails(tbGroupBoxNormal);
if GetThemeColor(ThemeServices.Theme[teButton], ElementDetails.Part, ElementDetails.State, TMT_TEXTCOLOR, C) = S_OK then
Result := C;
end;
end;