Pre-Vererbung von TStyleBook?

[Mavarik]

Hallo Zusammen!

Nervt es Euch auch, dass es zwar ein "listboxitembottomdetail" aber kein "listboxitemTopdetail" gibt...

Oder eben ein Item welches die "große Schrift" unten hat?

Klar, das ist in 2 min erledigt. Aber ich möchte natürlich, wenn ich ein Stylebook mit einem anderen Stile verwende trotzdem meine geänderte Reihenfolge haben.

d.H. Ich möchte den Windows Default Style ändern bzw. um diese Funktion ergänzen, aber wenn ich ein Stylebook mit anderen Farben usw. verwende soll natürlich mein Layout mit übernommen werden...

Aber wie?

Mavarik

[Mavarik]

Zitat von Mavarik:

Aber wie?

So geht es! Einfach umpatchen...

Delphi-Quellcode:

Uses FMX.Styles;


procedure TMainView.FormCreate(Sender: TObject);
var
  StyleObject : TFMXObject;
  StyleControl : TControl;
begin
  StyleObject := TStyleManager.ActiveStyle(self).FindStyleResource('listboxitembottomdetail');
  if Assigned(StyleObject) then
    begin
      StyleControl := TControl(StyleObject.FindStyleResource('Text'));
      StyleControl.Align := TAlignLayout.Bottom;
      StyleControl.Margins.Bottom := StyleControl.Margins.Top;
      StyleControl.Margins.Top := 0;
      StyleControl := TControl(StyleObject.FindStyleResource('Detail'));
      StyleControl.Align := TAlignLayout.Top;
      StyleControl.Margins.Top := StyleControl.Margins.Bottom;
      StyleControl.Margins.Bottom := 0;
    end;
end;

Mavarik

[RWarnecke]

Wow, ihr begeistert mich immer wieder, welche Handstände Ihr macht um im Firemonkey entsprechende Anwendungen hinzubekommen.

[Mavarik]

Zitat von RWarnecke:

Wow, ihr begeistert mich immer wieder, welche Handstände Ihr macht um im Firemonkey entsprechende Anwendungen hinzubekommen.

Naja Handstände... recht simpel, oder?

Natürlich könnte ich mir auch mit 2 Klicks einen eigenen Style erzeugen... Aber so funktioniert es auch mit allen anderen Styles ohne eine Änderung. Ich könnte auch das Object so kopieren und mit neuem Namen benutzen, aber das habe ich noch nicht versucht.!

Mavarik

[eddie11]

Zitat von RWarnecke:

Wow, ihr begeistert mich immer wieder, welche Handstände Ihr macht um im Firemonkey entsprechende Anwendungen hinzubekommen.

ich vermute damit ist wohl gemeint warum wir überhaupt Firemonkey benutzen und nicht längst die nativen Entwicklungsumgebungen, warum wir die Handstände nicht lieber machen um uns in Swift etc. einzuarbeiten...

Die Antwort ist relativ einfach: weil wir seit 100 Jahren Delphi benutzen!

[Bernhard Geyer]

Zitat von eddie11:

... nicht lieber machen um uns in Swift etc. einzuarbeiten...

Die Liste ist nicht vollständig:
Es muss heißen:

In Swift, in Android Studio, in VS.NET, in BSS-Studio, in Titzen-Studio, in Bada-Studio, in ....

[eddie11]

...deshalb habe ich ja auch "etc." geschrieben.