So beheben Sie den Farbeinstellungsbefehl für den aktiven Stil unter Windows

[neumimnemecky]

So beheben Sie den Farbeinstellungsbefehl für den aktiven Stil unter Windows:

Code:

Buffer.Canvas.Brush.Color := TStyleManager.ActiveStyle.GetStyleColor (scWindow);

um es auf Delphi 7 nutzbar zu machen?

[KodeZwerg]

Zitat:

Zitat von neumimnemecky (Beitrag 1509021)

So beheben Sie den Farbeinstellungsbefehl für den aktiven Stil unter Windows:

Code:

Buffer.Canvas.Brush.Color := TStyleManager.ActiveStyle.GetStyleColor (scWindow);

um es auf Delphi 7 nutzbar zu machen?

Upgrade auf eine Delphi Version die Styles supported.

[neumimnemecky]

Zitat:

Zitat von KodeZwerg (Beitrag 1509029)

Zitat:

Zitat von neumimnemecky (Beitrag 1509021)

So beheben Sie den Farbeinstellungsbefehl für den aktiven Stil unter Windows:

Code:

Buffer.Canvas.Brush.Color := TStyleManager.ActiveStyle.GetStyleColor (scWindow);

um es auf Delphi 7 nutzbar zu machen?

Upgrade auf eine Delphi Version die Styles supported.

Es ist unmöglich. Nicht realisierbar. In jeder Beziehung.

[Bernhard Geyer]

Zitat:

Zitat von neumimnemecky (Beitrag 1509030)

Es ist unmöglich. Nicht realisierbar. In jeder Beziehung.

Dann musst du u.U. damit leben das deine Frage nicht beantwortbar ist, da
- Immer weniger solche uralte Delphi-Versionen nutzen
- Immer weniger Lust haben für solche uralte Delphi-Versionen Lebenszeit zu investieren um anderen zu helfen, wenn das Problem mit neuen Versionen gar nicht mehr existiert.

[Gausi]

Da es unter Delphi 7 keine Styles gibt, und somit das Fenster eh immer im Windows-Standard gezeichnet wird, würde an der Stelle nicht etwas wie

Delphi-Quellcode:

Buffer.Canvas.Brush.Color := clWindow;

das machen, was möglicherweise gewollt ist? :gruebel:

[KodeZwerg]

TStyleManager.ActiveStyle.GetStyleColor holt sich nun mal über Vcl.Themes die Informationen, da es das unter Delphi 7 nicht gibt, gibt es auch keine Alternative.
Es ist wie "Wie kann ich mit Delphi 7 für Linux kompilieren, FMX erstellen etc..." es ist technisch nicht machbar.

[KodeZwerg]

Zitat:

Zitat von neumimnemecky (Beitrag 1509030)

Es ist unmöglich. Nicht realisierbar. In jeder Beziehung.

Die Community Edition ist immer eine Option die man in Betracht ziehen könnte.

[Delphi.Narium]

Zitat:

Zitat von KodeZwerg (Beitrag 1509039)

Zitat:

Zitat von neumimnemecky (Beitrag 1509030)

Es ist unmöglich. Nicht realisierbar. In jeder Beziehung.

Die Community Edition ist immer eine Option die man in Betracht ziehen könnte.

So absolut stimmt das nicht.

Sie ist keine Option, wenn man Bibliotheken nutzen muss, zu denen nur die DCU-Dateien für Delphi 7 vorliegen.

Und bei Fremdkomponenten von anno 2002, zu denen es damals nur die DCUs gab und die nicht für neuere Delphis zur Verfügung stehen, bleibt man halt bei Delphi 7 hängen.

[Maliko]

Und ein Update von Delphi 7 auf Delphi 10 oder 11 ist insgesamt ein Problem. Vor allem bei großen Projekten bedeutet eine Umstellung einen wahnsinnigen Aufwand. Bei uns hat die Umstellung eines großen Projektes (geschätzt knapp 2,5k Units) fast ein halbes Jahr gedauert und konnte nur realisiert werden, da es von einer externen Person die so etwas schon einmal gemacht hat vorgenommen wurde. Von daher ist ein Update nicht wirklich problemlos möglich.

[KodeZwerg]

Zitat:

Zitat von Delphi.Narium (Beitrag 1509045)

Zitat:

Zitat von KodeZwerg (Beitrag 1509039)

Zitat:

Zitat von neumimnemecky (Beitrag 1509030)

Es ist unmöglich. Nicht realisierbar. In jeder Beziehung.

Die Community Edition ist immer eine Option die man in Betracht ziehen könnte.

So absolut stimmt das nicht.

Sie ist keine Option, wenn man Bibliotheken nutzen muss, zu denen nur die DCU-Dateien für Delphi 7 vorliegen.

Und bei Fremdkomponenten von anno 2002, zu denen es damals nur die DCUs gab und die nicht für neuere Delphis zur Verfügung stehen, bleibt man halt bei Delphi 7 hängen.

Und per Community Edition eine DLL erstellen die einem fehlende Methoden zur Verfügung stellt?

[Daniel]

Das ist bei Styles aber keine Option. Und um die geht es - nicht um eine allgemeine Grundsatzdiskussion.

[Rolf Frei]

Zitat:

Zitat von neumimnemecky (Beitrag 1509021)

So beheben Sie den Farbeinstellungsbefehl für den aktiven Stil unter Windows:

Code:

Buffer.Canvas.Brush.Color := TStyleManager.ActiveStyle.GetStyleColor (scWindow);

um es auf Delphi 7 nutzbar zu machen?

Einfach den ganzen TStyleManager Krams löschen und die Farbe direkt setzen (clWindow) oder du nutzt den Themes Manager, der bei D7 dabei ist (ThemeServices in der Unit Themes.pas), wenn du die Themes in deiner eigenen Komponente painten willst. Wenn du aber nur die Farben willst, musst du garnichts weiter machen als die Standard Colors nutzen wie clWindow. clButtonFace, etc. Diese haben in einer themed App automatisch die richten Werte, gemäss Windows Theme.

Da man aber anhand deines Codes nicht sieht, wo das benötigt wird, ist es schwer zu sagen wie du das da machen musst. Vermutlich kannst du auch einfach die ganze Zeile löschen, da in einer themed Anwendung (mit einem Manifest) die Windows Themes eh genutzt werden und du dich da garnicht um das Painten kümmern musst. Die Aussage D7 habe keine Styles ist so nicht richtig. Es gab da noch keine Delphi eigenen Styles, aber die Windows Styles (Themes) stehen da zur Verfügung. Über die Themes API könntest du auch die einzlenen Farbwerte abfragen. (siehe GetThemeColor / GetThemeSysColor in UxTheme.pas)

Beispiel D7 Code zum Painten einer eigenen themed Progressbar die auf einem TGraphicControl basiert:

Delphi-Quellcode:

    aRect := ClientRect;
    if ThemeServices.ThemesEnabled then
    begin

      Details := ThemeServices.GetElementDetails(tpBar);
      ThemeServices.DrawElement(Bmp.Canvas.Handle, Details, aRect);
      aRect := ThemeServices.ContentRect(Bmp.Canvas.Handle, Details, aRect);

      ChunkWidth := aRect.Right - aRect.Left;
      FFillWidth := ChunkWidth - Round(ChunkWidth * (100.0 - FillPercent) / 100.0);
      aRect.Right := aRect.Left + FFillWidth;

      Details := ThemeServices.GetElementDetails(tpChunk);
      ThemeServices.DrawElement(Bmp.Canvas.Handle, Details, aRect);
      with Bmp.Canvas do
      begin
        if aShowText then
        begin
          Font.Assign(Self.Font);
          Font.Color := clWindowText;
          Brush.Style := bsClear;
          ThemeServices.DrawText(Handle, Details, aText,
            ClientRect, DT_CENTER or DT_VCENTER or DT_SINGLELINE, 0);
        end;
      end;
    end

[himitsu]

Zitat:

Zitat von KodeZwerg (Beitrag 1509052)

Zitat:

Zitat von Delphi.Narium (Beitrag 1509045)

Und bei Fremdkomponenten von anno 2002, zu denen es damals nur die DCUs gab und die nicht für neuere Delphis zur Verfügung stehen, bleibt man halt bei Delphi 7 hängen.

Und per Community Edition eine DLL erstellen die einem fehlende Methoden zur Verfügung stellt?

Eher andersrum, also das Alte mit Delphi 7 in eine DLL und Dieses dann im neuen Delphi / der neuen CE weiter benutzen.

[neumimnemecky]

Zitat:

Zitat von Bernhard Geyer (Beitrag 1509033)

Zitat:

Zitat von neumimnemecky (Beitrag 1509030)

Es ist unmöglich. Nicht realisierbar. In jeder Beziehung.

Dann musst du u.U. damit leben das deine Frage nicht beantwortbar ist, da
- Immer weniger solche uralte Delphi-Versionen nutzen
- Immer weniger Lust haben für solche uralte Delphi-Versionen Lebenszeit zu investieren um anderen zu helfen, wenn das Problem mit neuen Versionen gar nicht mehr existiert.

Es gibt immer gute Menschen, die bereit sind, den Schwächeren, Verletzlichen oder Gebrechlichen zu helfen.

[neumimnemecky]

Zitat:

Zitat von KodeZwerg (Beitrag 1509038)

TStyleManager.ActiveStyle.GetStyleColor holt sich nun mal über Vcl.Themes die Informationen, da es das unter Delphi 7 nicht gibt, gibt es auch keine Alternative.
Es ist wie "Wie kann ich mit Delphi 7 für Linux kompilieren, FMX erstellen etc..." es ist technisch nicht machbar.

Vielen Dank. Es ist in Ordnung. Genauso wie es für mich "technisch" nicht machbar ist, ein Upgrade durchzuführen. Ich bin es gewohnt, mich zu bescheiden. Jeder handelt im Rahmen seiner Möglichkeiten.

[Bernhard Geyer]

Zitat:

Zitat von Delphi.Narium (Beitrag 1509045)

So absolut stimmt das nicht.
Sie ist keine Option, wenn man Bibliotheken nutzen muss, zu denen nur die DCU-Dateien für Delphi 7 vorliegen.

Doch. Es ist immer eine Option.
Es muss halt bewertet werden ob man diese zieht weil das Probjekt noch laenger lebt oder nur noch einen kleinen Fix benoetig

Zitat:

Zitat von Delphi.Narium (Beitrag 1509045)

Und bei Fremdkomponenten von anno 2002, zu denen es damals nur die DCUs gab und die nicht für neuere Delphis zur Verfügung stehen, bleibt man halt bei Delphi 7 hängen.

Wie waere es mit Ausbauen der Komponente_
Haben wir auch gemacht um dann doch mal den Umstieg zu machen.
Im nachhinein aergert man sich nur das man das nicht schon frueher gemacht hat

[Delphi.Narium]

Komponenten ausbauen geht nur, wenn man 'ne Alternative hat.

Wenn da aber was fremdes, individuell erstelltes, vorliegt, das zwar funktioniert, aber ansonsten von seiner Funktionalität her eine BlackBox ist und die Hersteller der Komponenten nicht mehr erreichbar sind, wird es dann doch schon schwierig.

Zumindest für Hobbyprogrammierer. Profis, mit endlos großem Budget, können sich das schon leisten ;-)

[himitsu]

Du hast eben die Qual der Wahl:

* alles so lassen, wie es ist (nichts Neues verwenden können/dürfen)

* versuchen das Neue in eine DLL zu kapseln und es im Alten nutzen

* den problematischen alten Teil in DLL verschieben und dann den Rest auf Neu umstellen

* das Alte raus und was Neues dafür
* * eventuell mit weniger Funktionen
* * oder mit etwas mehr Ümstellungsaufwand

* das Alte ersatzlos raus



Je länger man aber wartet, um so mehr bleibt man in der Sackgasse hängen und verläuft sich noch viel tiefer darin.
Bzw. hat immer mehr neuen Aufwand, um das Alte am Leben zu halten, je länger man wartet.
Der Umstieg wird also nur noch immer schwerer und schwerer ... vor allem wenn man immer mehr gefrickel einbaut ... das dann irgendwann aufzulösen macht bestimmt noch weniger Spaß.

[Rolf Frei]

Zitat:

Zitat von KodeZwerg (Beitrag 1509038)

TStyleManager.ActiveStyle.GetStyleColor holt sich nun mal über Vcl.Themes die Informationen, da es das unter Delphi 7 nicht gibt, gibt es auch keine Alternative.
Es ist wie "Wie kann ich mit Delphi 7 für Linux kompilieren, FMX erstellen etc..." es ist technisch nicht machbar.

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 und nicht die neueren Delphi Themes (Styles). Auch da gibt ees API Aufrufe die die Farben des aktiven Themes liefern. Es spricht nichts dagegen, dass er diese nutzen kann. Die Frage ist eben nur, ob er er das überhaupt braucht und nicht einfach das ganze Painting Windows machen lassen kann. Anahand seine Einzelziel sehen wir ja leider nicht wo er das genau her hat.

[KodeZwerg]

Okay, ich entschuldige mich für meine falsche Aussage, mit genug Man-Power kommt man irgendwie an ein Ziel.

[Bernhard Geyer]

Zitat:

Zitat von himitsu (Beitrag 1509069)

* den problematischen alten Teil in DLL verschieben und dann den Rest auf Neu umstellen

Wenn es nicht austauschbar ist, dann würde ich das machen.
Wieso in 95% der Antworten auf sowas wie Generics, Unicode, lokale Variablendeklaratino verzichten, wenn man das auch in nur 5% muss

Zitat:

Zitat von himitsu (Beitrag 1509069)

Je länger man aber wartet, um so mehr bleibt man in der Sackgasse hängen und verläuft sich noch viel tiefer darin.
Bzw. hat immer mehr neuen Aufwand, um das Alte am Leben zu halten, je länger man wartet.
Der Umstieg wird also nur noch immer schwerer und schwerer ... vor allem wenn man immer mehr gefrickel einbaut ... das dann irgendwann aufzulösen macht bestimmt noch weniger Spaß.

Mit dem Umstieg (D6->XE6, dann leichter XE6->10.2, jetzt 10.4) konnten wir auch wieder einige Woraround und Komponenten ausbauen.
EmbeddedWB war mit aktuellen Delphis nicht mehr nötig und jetzt fliegt auch IE-Nutzung raus und Edge kommt rein.
Ebenfalls eine Bibliotheken konnten entsorgt werden, da jetzt Delphi alles mitbringt (z.B. PNG)
Auch ein Workaround wegen Abstürzen auf Multi-Sockelsystemen (gerne auf TerminalServices/Citrix-Umfeld zu finden) konnte ins nil-Device verschoben werden.

[Bernhard Geyer]

Zitat:

Zitat von KodeZwerg (Beitrag 1509102)

Okay, ich entschuldige mich für meine falsche Aussage, mit genug Man-Power kommt man irgendwie an ein Ziel.

Du musst aber dagegen rechnen wie viel Manpower du mehr benötigt, um das System mit D6/7../2007 am leben zu halten.
Ich würde sicherlich nicht mehr zu ein Arbeitsstelle welchseln die bei einem solch alten IDE-Version bleiben will.

[neumimnemecky]

Zitat:

Zitat von Rolf Frei (Beitrag 1509075)

Zitat:

Zitat von KodeZwerg (Beitrag 1509038)

TStyleManager.ActiveStyle.GetStyleColor holt sich nun mal über Vcl.Themes die Informationen, da es das unter Delphi 7 nicht gibt, gibt es auch keine Alternative.
Es ist wie "Wie kann ich mit Delphi 7 für Linux kompilieren, FMX erstellen etc..." es ist technisch nicht machbar.

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 und nicht die neueren Delphi Themes (Styles). Auch da gibt ees API Aufrufe die die Farben des aktiven Themes liefern. Es spricht nichts dagegen, dass er diese nutzen kann. Die Frage ist eben nur, ob er er das überhaupt braucht und nicht einfach das ganze Painting Windows machen lassen kann. Anahand seine Einzelziel sehen wir ja leider nicht wo er das genau her hat.

Code von dieser Seite. Ich kann den Link nicht finden. Ich habe diesen Code gefunden und wollte ihn testen. Der Thread sprach über das Flackern beim Rendern einer Spike-Wave einer Audiodatei. Ich heile, ich bin mit Antworten verspätet.
https://www.delphipraxis.net/176705-...cl-styles.html

[QuickAndDirty]

Zitat:

Zitat von neumimnemecky (Beitrag 1509021)

So beheben Sie den Farbeinstellungsbefehl für den aktiven Stil unter Windows:

Code:

Buffer.Canvas.Brush.Color := TStyleManager.ActiveStyle.GetStyleColor (scWindow);

um es auf Delphi 7 nutzbar zu machen?

Ich glaube die Systemfarbcodes sind in der Graphics unit in Delphi7

Code:

Buffer.Canvas.Brush.Color := clWindow

clwindow ist die standard Fensterfarbe des aktiven Windows Theme.

Noch eine Sache.
Lazarus ist zu Delphi7-code recht kompatibel bzw. kann deutlich mehr.
Es ist eine gute Plattform um Legacy Delphi 7 Projeke zu pflegen ohne sie großartig weiter zu entwickeln.

Mit dem festhalten an Delphi7 tust Du Dir keinen gefallen.
Was du hier massiv aufgebaut hast nennt man "Technical Debt". Und die "Zinsen" die du dafür zahlst diese Schulden nicht zu zahlen werden immer größer. Das projekt wird sich immer aufwändiger verändern und am laufen halten. Du wirst für kleinste Änderungen Tagelang in Foren nach Lösungen suchen müssen oder Lösungen selber entwickeln müssen für die es fertigen Kode gäbe hättest du dein Projekt nur mal auf einen aktuellen stand gebracht!
Tatsache ist das Profis sich so einen Rückstand eher leisten können als Hobbyisten, denn Profis können ein Projekt das mal eine Cashcow war und gemolken wurde bis zum geht nicht mehr auch einfach unter Wirtschaftlichkeits aspekten sterben lassen.
Du willst aber vermutlich nicht neu anfangen?

[Rolf Frei]

Zitat:

Zitat von neumimnemecky (Beitrag 1509506)

Code von dieser Seite. Ich kann den Link nicht finden. Ich habe diesen Code gefunden und wollte ihn testen. Der Thread sprach über das Flackern beim Rendern einer Spike-Wave einer Audiodatei. Ich heile, ich bin mit Antworten verspätet.
https://www.delphipraxis.net/176705-...cl-styles.html

Wenn du dich da auf folgenden Code beziehst, kannst du einfach die Farbe clWindow nutzen und den ganzen TStyleManager Krams weglassen.

Delphi-Quellcode:

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));

  // Rest wie gehabt
end;

[himitsu]

Naja, wenn man die aktuelle Farbe des aktuellen Styles haben will, dann brauchte man es.
clWindow ist ja die Standardfensterhintergrundfarbe, wie sie im aktuellen Windows ist.

[Gausi]

Zitat:

Zitat von himitsu (Beitrag 1509671)

Naja, wenn man die aktuelle Farbe des aktuellen Styles haben will, dann brauchte man es.

Das mag ja sein, aber hat man überhaupt einen aktuellen Style, wenn man Delphi 7 nutzt?

[Rolf Frei]

Zitat:

Zitat von himitsu (Beitrag 1509671)

Naja, wenn man die aktuelle Farbe des aktuellen Styles haben will, dann brauchte man es.
clWindow ist ja die Standardfensterhintergrundfarbe, wie sie im aktuellen Windows ist.

Er nutzt Delphi 7 und da ist das genau richtig so, da diese Farbe dem aktuellen Windows Theme entspricht. Die Delphi eigenen Styles gibt es nicht und braucht er auch garnicht. In D7 gibt Windows das Theme vor und nicht Delphi und das ist auch gut so, da sich so das Programm automatisch mit dem OS optisch weiterentwickelt, ohne dass man etwas neu kompilieren muss. Delphi Style Anwendungen sehen irgendwann veraltet aus, da die immer gleich aussehen werden und sich nicht an das OS anpassen. Das ist einer der Gründe, wieso ich keine Delphi Styles nutze. Wenn ich etwas hasse, dann sind as GUI's, die für jedes Programm irgendwie ungewohnt und fremdartig aussehen und sich nicht and die Optik des OS halten.

[Uwe Raabe]

Zitat:

Zitat von Rolf Frei (Beitrag 1509691)

Wenn ich etwas hasse, dann sind as GUI's, die für jedes Programm irgendwie ungewohnt und fremdartig aussehen und sich nicht and die Optik des OS halten.

Manchmal ist das aber genau so gewünscht bzw. notwendig (z.B: Maschinensteuerung oder Corporate Identity). Das soll dann unter Windows, MacOS, Linux usw. immer gleich aussehen. Wir hatten das auch gerade kürzlich in der Englischen DP diskutiert.