[Firemonkey] Styles dynamisch zur Laufzeit ändern

[stahli]

Bei mir brachte CheckBox1.FindStyleRessource... immer nil.
Daher der Umweg über die zentrale Ressourcenliste.
Betrifft Deine Änderung dann nur ein einzelnes Tab?

Ich habe mir auch mal einen Style gebastelt (bzw. von einem originalen abgeleitet und erweitert).
Für eigene Komponenten muss man dann allerdings wieder nachbessern, wenn man einen anderen Style verwenden möchte.
Die style.png habe ich mit Gimp verändert.
Das war ziemliche Wurschtelei, auch wenn mir das Ergebnis erst mal gefällt.

Wäre echt mal interessant, ob jemand das Style-Konzept irgendwann plausibel erklären kann (Delphi-Tage?).

PS: Übrigens reicht if (T is TImage) then aus. Nil wäre dann false.

[RWarnecke]

Zitat von stahli:

Bei mir brachte CheckBox1.FindStyleRessource... immer nil.
Daher der Umweg über die zentrale Ressourcenliste.
Betrifft Deine Änderung dann nur ein einzelnes Tab?

Ja, es betrifft erstmal nur ein einzelnes Tab, genau das was Du der Procedure übergibst. Sicherlich kann man da noch mehr draus machen. Aber für den ersten Moment reicht mir das erstmal so.

Habe auch noch Probleme die Bitmaps unter Mac OSX zu laden, hat hier jemand noch einen Tipp fürr mich ? Die Bilder werden im Style nicht angezeigt, trotz m.M. richtiger Pfadangabe SetTabItemIcon(TsbYitem1, 'Contents/MacOS/Folder.png');

[RWarnecke]

Zitat von RWarnecke:

Habe auch noch Probleme die Bitmaps unter Mac OSX zu laden, hat hier jemand noch einen Tipp fürr mich ? Die Bilder werden im Style nicht angezeigt, trotz m.M. richtiger Pfadangabe SetTabItemIcon(TsbYitem1, 'Contents/MacOS/Folder.png');

Zitat von RWarnecke:

Das funktioniert jetzt. Jetzt brauche ich nur noch, dass ich unter Windows die Bitmaps aus Resourcen laden kann.

Hat jemand noch zu den beiden Vorgängen eine Idee ? Weder beim Mac noch bei Windows komme ich weiter.

Edit:
Das Laden der Bilder auf'm Mac habe ich gelöst. SetTabItemIcon(TI_1, ExtractFilePath(ParamStr(0)) + 'opened_folder.png'); .