FMX: Style-Dateien auslesen und Ressourcen enumerieren

[himitsu]

Hihoo,

kennt sich jemand mit TStyleBook, TStyleManager/TStyleStreaming und sowas aus?

Ich hab nach langer Suche rausgefunden, wie man via TStyleBook eine *.style einlesen und den Inhalt auflisten kann.
Bei *.fsf klappt das leider nicht. (nur gerade dafür würde ich es aber benötigen, um die Android-Styles durchgehen zu können)

Laut Hilfe gibt es auch ein TStyleManager.LoadFromResource (und vermutlich auch LoadFromFile), aber das ist gelogen.
https://docwiki.embarcadero.com/RADS...eMonkey_Styles
Zwar hat TStyleStreaming ein LoadFromFile, aber damit kann man auch nur *.style und keine *.fsf lesen. (EStyleException SCannotLoadStyleFromFile)

TStyleBook wirft beim Lesen keinen Fehler, aber ich kann darin, bei den *.fsf, leider NICHTS finden.

Im Designer ein TStyleBook auf die Form gepappt, dann lässt sich über den Designer eine *.fsf laden und man sieht anschließend die Ressourcen.




Wollte für diese beiden Problemchen Fehlendes und das mit FixedSize auflisten.
https://www.delphipraxis.net/217731-[fmx]-control-height-nicht-aenderbar.html#post1551280
https://en.delphipraxis.net/topic/13...e-tedit-field/

Anhang:
FixedSize ist noch nicht eingebaut, aber da weiß ich wie ich's machen werde.
Bei *.style scheint alles zu klappen,
aber *.fsf will einfach nicht.

In meinem Fall fehlt für Android und iOS die Ressource "passwordeditbutton".

Und ja, eigentlich wollte ich oben noch die Schrift drehen, aber keine Ahnung, warum das im FMX.Canvas so pervers sein muß .... hab's also gelassen.

Beim Start geht ein VCL-FileDirectoryOpenDialog auf,
dort ein Verzeichnis mit Style-Dateien auswählen
* C:\Program Files (x86)\Embarcadero\Studio\23.0\Redist\styles\Fmx
* C:\Users\Public\Documents\Embarcadero\Studio\23.0\Styles
und dann etwas (länger) warten.

[himitsu]

AHHHHHHHH, ich glaub/befürchte, ich hab's.

Zur DesignTime kann man Styles aller Plattformen laden,
aber zu Laufzeit nur Styles für die aktuelle Plattform.

Delphi-Quellcode:

procedure TStyleCollectionItem.LoadFromStream(const Stream: TStream);
begin
  if (FStyleBook <> nil) and (csDesigning in FStyleBook.ComponentState) then
    TStyleStreaming.SetSupportedPlatformHook(CheckPlatformTargetAtDesignTime)  // liefert immer True
  else
    TStyleStreaming.SetSupportedPlatformHook(CheckPlatformTargetAtRunTime);    // nur True, wenn Plattform stimmt

Fazit: ich werde das csDesigning setzen

[himitsu]

csDesigning funktioniert echt super

https://github.com/geheimniswelten/FMXStyleOverview