Quellcode von VCLStyleViewer u. FMXStyleViewer

[Pfaffe]

Im Ordner "C:\Program Files (x86)\Embarcadero\Studio\17.0\bin\" liegen die VCLStyleViewer.exe und die FMXStyleViewer.exe.
Ich hätte Interesse am Quellcode diesen Anwendungen. Gibt es den irgendwo? Oder ein anderes gleichwertiges Demo?

[Harry Stahl]

Wäre mir nicht bekannt, dass der Quellcode offen ist.

Für FMX gibt es das "ControlsDemo", im Menü des Demoprogramms gibt es einen Befehl "Load Style".

Im Prinzip dürfte es ja nicht schwer sein, das sowohl für die VCL und FMX selber nachzubauen: Gewünschte Komponenten auf die Form und die entsprechenden Routinen zum laden der Styles einbauen.

[Pfaffe]

Zitat:

Für FMX gibt es das "ControlsDemo", im Menü des Demoprogramms gibt es einen Befehl "Load Style".

Das TStyleManager.SetStyle(TStyleStreaming.LoadFromFil e(OpenDialog1.FileName)); in der Demo funktioniert.

In der vcl läuft bei mir ein
TStyleManager.SetStyle(TStyleManager.LoadFromFile( OpenDialog1.FileName);
auf eine Exception, wenn ich zweimal hintereniander den gleichen Style lade. Zudem wird eine OnShow ausgelöst.
Setze ich ein ReportMemoryLeaksOnShutdown := True; dann hagelt es memory leaks.
Auch TStyleManager.UnRegisterStyle(TStyleManager.Active Style); hilft nicht.

[Pfaffe]

Als Alternative zu TStyleManager.SetStyle(TStyleStreaming.LoadFromFil e(OpenDialog1.FileName)) funktioniert auch TStyleManager.SetStyleFromFile(OpenDialog1.FileNam e).
Jetzt suche ich nach einer Möglichkeit wieder auf den Systemstyle umzuschalten. In der Hilfe steht dazu setsystemstyle, diese Methode scheint es aber gar nicht zu geben.
Alles ein bisschen seltsam.

[Harry Stahl]

Kannst Du (grob beschrieben) unter Windows z.B. so machen:

Delphi-Quellcode:

  if FindResource(HInstance, PChar('win8style'), RT_RCDATA) <> 0 then
    TStyleManager.SetStyle(TStyleStreaming.LoadFromResource(HInstance, 'win8style', 
     RT_RCDATA));

Da werden die fest verdrahteten Styles geladen. Je nach Windows-Version lädst Du halt "win7style" usw.

[Pfaffe]

Danke, die FMX Variante funktioniert soweit unter Windows. Nur wie ist das unter anderen Betriebssystemen?
Unter der vcl bekomme ich es überhaupt nicht hin.

Zitat:

Im Prinzip dürfte es ja nicht schwer sein, das sowohl für die VCL und FMX selber nachzubauen: Gewünschte Komponenten auf die Form und die entsprechenden Routinen zum laden der Styles einbauen.

Von wegen, das ist doch Fummelprogrammierung. Nur mit Deiner Hilfe bin ich weitergekommen. Für die Praxis ist diese Art von Programmierung nicht geeignet, da man den Aufwand nicht einschätzen kann.