Pre-Vererbung von TStyleBook?

[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