Forum: Algorithmen, Datenstrukturen und Klassendesign
by Rolf Frei,
2. Aug 2022
Wenn du dich da auf folgenden Code beziehst, kannst du einfach die Farbe clWindow nutzen und den ganzen TStyleManager Krams weglassen.
procedure TForm1.DrawSpectrum;
begin
// clear background
// Buffer.Canvas.Brush.Color := TStyleManager.ActiveStyle.GetStyleColor (scWindow);
Buffer.Canvas.Brush.Color := clWindow;
Buffer.Canvas.FillRect(Rect(0, 0, Buffer.Width, Buffer.Height));
...
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Rolf Frei,
22. Jul 2022
Das ist aber schlicht falsch und nicht wahr. D7 hat seit Windows XP Theme Support und damit kann man das auch machen, nur halt ohne die Delphi Styles, da diese viel Später gekommen sind, aber das ist wohl auch garnicht sein Wunsch. Er will nur wissen, wie man diesen Code für D7 anpasst und da gibt es eben die ThemeServices in D7, die im Prinzip das Selbe machen, nur halt für die Windows Themes...