Versionsumstieg -> Versuch die Embarcadero Styles zu verwenden

[calibra301]

Hallo,

ich habe hier etliche alte Apps die mit Alphaskins "aufgehübscht" wurden.
Da die Programmierer leider in der Ukraine sitzen werde ich mich, obwohl es aktuelle Packages für Delphi 12 gibt,
besser verabschieden.

Hab nun das erste Projekt "gecleant" und wieder die alten Delphi Komponenten aktiv.
Aus TsPanel wurde wieder TPanel usw...

Dann unter "Projekt" -> "Optionen" -> "Anwendung" -> "Erscheinungsbild" mal "Carbon" angewählt und es kommt
der Fehler "Stil "Carbon" nicht gefunden.

Nach Suche habe ich die *.dproj schon mal gelöscht und neu erstellen lassen.
Leider ohne Erfolg.
Irgendwas ist noch falsch...buggy,....

Erstelle ich ein neues Projekt und stelle den Style um dann funktioniert das.

Gruss
Calli

[Uwe Raabe]

In der dpr muss diese Zeile vorhanden sein:

Delphi-Quellcode:

{$R *.res}

[calibra301]

Hallo Uwe,

ist vorhanden..

im uses Teil stehen auch Vcl.Themes und Vcl.Styles;

Delphi-Quellcode:

...
{$R *.res}

begin
  Application.Initialize;
  TStyleManager.TrySetStyle('Carbon');
  Application.Title := 'Test';
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Ursprünglich war es ein XE8 Projekt.
Die Styles liegen in C:\Program Files (x86)\Embarcadero\Studio\23.0\Redist\styles\vcl

[jaenicke]

Du hast doch geschrieben, dass es mit einem neuen Projekt geht. Bevor du weiter suchst: Speichere das neue Projekt einfach unter dem gewünschten Namen und füge die Units hinzu.

[calibra301]

Hallo,

die Konvertierung steht mir für 4 Projekte ins Haus.
Eines mit einer gewaltigen GUI mit mindestens 300 Elementen, teilweise dynamich erzeugt.
Hab mit einem kleinem angefangen.

Hab in dem mal einen Style manuell geladen:

Delphi-Quellcode:

TStylemanager.LoadFromFile('C:\Program Files (x86)\Embarcadero\Studio\23.0\Redist\styles\vcl\Carbon.vsf');
  TStyleManager.SetStyle('Carbon');
  form1.StyleName:='Carbon';
  form1.update;

Ergebnis siehe Anhang, alles schön nur nicht die Label die definitiv TLabel sind, 2 Stk. sogar extra
gelöscht und neu erstellt.

Edit:
Hoffe einen "einfachen" Weg zu finden ohne das PRojekt neu aufzubauen.
Kann doch eigentlich nur eine Projektpfadsache sein ?

[calibra301]

Weiter..

In der Text Ansicht vom Form sind die Label genau so aufgebaut wie im neuem Projekt
wo es funktioniert.

Delphi-Quellcode:

 object Label18: TLabel
    Left = 424
    Top = 416
    Width = 46
    Height = 13
    Caption = 'Devicelist'
  end

Das Manuelle laden der Styles wäre eine Option wenn alle Elemente den Style übernehmen würden...
(Graue Haare werden mehr.. :-) )

Hab auch noch mal andere Styles probiert (manuell geladen ) , gleiches Verhalten, die TLabel werden nicht geskinnt.

[calibra301]

...hab mal die Projektoptionen verglichen (Altes Projekt, neues Projekt )

-> Unterschied..why ever... muss irgendwas in den Projektdateien sein.

[calibra301]

Einen Fehler gefunden...

Es war noch eine "Project1.res" im Verzeichnis und es stand da noch "programm Project1".
Das geändert, nun siehts mit nachgeladenen Styles schon mal gut aus. Why ever...
Ein voreingestelltes Style wird aber immer noch nicht gefunde.

Delphi-Quellcode:

program CheckConnections;

uses
  VCL.Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Vcl.Themes,
  Vcl.Styles;

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  TStyleManager.TrySetStyle('Carbon');
  Application.Title := 'Test';
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

[Uwe Raabe]

Wenn du die DPR- und DPROJ-Datei zur Verfügung stellst (entweder hier, per Mail, Dropbox oder sonstwie) kann ich ja mal reinschauen.

[calibra301]

Hallo,

Uwe hatte mir angeboten ihm mal die dproj zu mailen.
Wie gesagt, es war ja ein XE8 Projekt.

Tatsächlich fehlte die Zeile:

Delphi-Quellcode:

<Custom_Styles>Carbon|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Carbon.vsf</Custom_Styles>

welche eigentlich von der IDE hinzugefügt werden sollte.
Nach Uwes Änderung wird der Style sauber geladen.

@Uwe, dickes Danke erst einmal !