Warum bitte schön verwendest du dann nicht auch GetImmersiveColorFromColorSetEx
Delphi-Quellcode:
procedure TfrmMain.ApplyThemedColors;
var
i: Integer;
begin
if IsDarkTheme then
begin
FBackgroundColor := FColorSet.Colors[ImmersiveApplicationBackgroundDarkTheme];
FTextColor := FColorSet.Colors[ImmersiveApplicationTextDarkTheme];
end
else
begin
FBackgroundColor := FColorSet.Colors[ImmersiveApplicationBackgroundLightTheme];
FTextColor := FColorSet.Colors[ImmersiveApplicationTextLightTheme];
end;
UpdateColors;
end;
Aber vielleicht verstehe ich Dich da gerade auch falsch, wäre nicht das erste mal