EDIT:
Habe es so verstanden wenn Wallpaper verwendet wird setzt du den Mittelwert der Farbe davon.
Korrekt!
Welchen wert setzt du nun bei der Volltonfarbe? (Denke das ist was @Tigü meint). Den Bekommst du nur aus der registry
Der Pfad fehlt definitiv in deinem Code (HKEY_CURRENT_USER\Control Panel\Desktop\Wallpaper)
Delphi-Quellcode:
procedure TfrmMain.ApplyDesktopColors;
begin
FBackgroundColor := GetSysColor(COLOR_DESKTOP); <<<--- diesen hier = Volltonfarbe
case cbSimpleFont.Checked of
True:
FTextColor := SimpleInvertColor(FBackgroundColor);
false:
FTextColor := InvertColor(GetSysColor(COLOR_DESKTOP));
end;
UpdateColors;
end;
//edit
und kaum poste ich es, fällt mir ein fehler auf, danke fürs fragen!