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:

{$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.