Versionsumstieg -> Versuch die Embarcadero Styles zu verwenden

[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:
<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 !