Ändern Sie die Farbe der meisten controls (ie TPanel) in eine Firemonkey-Anwendung in Delphi (XE2 Update4 und XE3 nur)

HINWEIS: Diese Frage ist über ein Verhalten in delphi XE2 update 4 und delphi XE3, und das style-system wurde geändert, XE4, so dass diese Frage gilt nicht für Delphi-Versionen XE4.

Viele Steuerelemente wie TPanel und so weiter, nicht support eine einfache Möglichkeit, um Farbe zu ändern, von jedem element, ohne in die "Styles" - Funktion.

Die Art, wie ich denke, dass es funktionieren sollte ist:

Ein Formular erstellen.
Legen ein StyleBook auf die form.
Ändern oder erstellen Sie einen Stil.
Wenden Sie einen Stil auf die Kontrolle.
Kontrolle ändert sich die Farbe.

Wollen wir beiseite lassen die Tatsache, dass etwas, das sollte einfach sein (wie es in der VCL) ist jetzt Irrfahrt durch die Stile. Was sind die eigentlichen Arbeitsschritte für Delphi XE2 (Firemonkey-Update4), um eine TPanel blau statt Grau (die Standardeinstellungen)?

Tatsächliches Ergebnis: Wenn ich versuche, die oben, bekomme ich einen freeze-up dauerte etwa 30 Sekunden, memory Nutzung mehr als 1 gb Speicher für bds.exe und dann bekomme ich einen Absturz.Manchmal bekomme ich "AQReporter.dll muss zu schließen", und manchmal auch andere Fehler von anderen IDE-plugins, schließlich eine "Embarcadero RAD Studio for Windows funktioniert nicht mehr" Fehler.

Dies könnte relevant: delphihaven.wordpress.com/2012/03/09/...
Sehr schön! Ich denke, dass eine Bibliothek von Hilfsfunktionen, um die Farben von firemonkey-Steuerelemente, und so weiter, wäre nett, zu schreiben, zu wickeln, dass alle Hack in etwas schönes.
Random downvoter, Bitte Kommentar mit, warum Sie denken, dass diese Frage nervt.
Einstellung styling info-getrennt von der Formular-designer ist die gleiche Sache wie nicht würzen Sie Ihren code mit Konstanten. Es kann mehr Arbeit, aber ist viel mehr flexible im langen Lauf. In der Tat, ich wünschte, Sie würde genommen, die Idee weiter mit Steuern, Positionen und Größen gesteuert vom Stil.
Verständlich - aber viele Menschen Steuern die Darstellung der Elemente der Anwendung mit der speziellen Färbung - rot für Fehler, manchmal Auswahl Farben etc. Auch wenn eine solche Färbung angewendet wird, von einem "style-sheet-design", kann es erforderlich sein, zu ändern Färbung zur Laufzeit.

InformationsquelleAutor Warren P | 2012-03-09

3

Es stellt sich heraus, dass unter anderem Fehler, manchmal das TForm.StyleBook-Eigenschaft nicht automatisch zugewiesen bekommen. Wenn Sie sicherstellen, dass es zugeordnet ist, dann die oben genannten Schritte funktioniert.

Schnelle Schritte:
1. Formular erstellen.
2. Drop-Stil Buch über form und weisen-Form.StyleBook = StyleBook1
3. Der rechten Maustaste auf Steuerelement, das Sie ändern möchten-Stil, klicken Sie auf Edit Custom Style.
4. Gehen Sie zum Objektinspektor und zu ändern, Füllen Sie die Eigenschaft zum ändern der Hintergrundfarbe von Tafel, zum Beispiel.
5. Übernehmen und schließen. (Möglicherweise müssen Sie auf zwei, drei oder vier mal durch Fenster den Fokus bugs)
Hinweis: Diese Problemumgehung ist nicht sinnvoll, in Delphi XE4 und als das feature "Custom style-Einstellung" wurde der entfernt von der Mobilen Anwendung FMX.

Nicht wirklich sicher, ob Es ein bug ist, aber es ist ein 'feature', das Sie gefangen hat mich ein paar mal. Sie können mehrere StyleBooks auf ein Formular, und ändern Sie die eins zugeordnet ist, die form der Eigenschaft Stylebook. Sie können auch zuweisen eines Formulars StyleBook-Eigenschaft, um ein stylebook auf eine andere form. Es wäre eine günstige Standard zu haben, der erste StyleBook geschaffen, auf einem Formular die Formulare StyleBook Eigenschaft zu sich selbst, obwohl.
BTW, wenn Sie nicht erstellen Sie ein stylebook, sondern Rechtsklick -> Bearbeiten von Benutzerdefinierten Formatvorlage wird automatisch erstellt und zugewiesen der form.
Btw, es gibt keine "Edit custom style" auf mobile Firemonkey-apps jetzt. qc.embarcadero.com/wc/qcmain.aspx?d=115376

InformationsquelleAutor Warren P
1

Nach Warrens Antwort, für Delphi-Versionen neuer als die, die er hatte, XE4, so ändern Sie den Stil des Panels zur Laufzeit müssen Sie den Stil zu ändern in der style book und dann re-ordnen Sie den Stil auf die Tafel. Speziell:
```
var
  R: TFMXObject;
begin
  R := StyleBook1.Style.FindStyleResource('Panel1Style1');
  if R is TRectangle then
    TRectangle(R).Fill.Color := claRed;

  Panel1.StyleLookup := 'Panel1Style1';
end;
```
Es ist wichtig, daran zu erinnern, dass für diese zu arbeiten, müssen Sie erstellt eine benutzerdefinierte Formatvorlage in einem style-Buch (nach Warren ' s Antwort). In diesem Beispiel wird Sie als "Panel1Style1', aber Sie könnten ersetzen Sie diesen Namen mit etwas ganz anderes.

Welche Delphi-version ist das?
Getestet hab ich das in XE5, Seattle & Tokyo.
Ok. Ich denke, das funktioniert anders als in meiner ursprünglichen Frage. Ich denke, Sie verändert in Sachen XE4, so Ihre Antwort wäre wahrscheinlich funktionieren, für alles XE4.

InformationsquelleAutor SteveC

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.