TTMSFMXPopup Fonts & Colors

FMX TMS FMX UI Pack
1
Hi,

I've created a descendant class of TTMSFMXPopup.
There not much going on there, but I want to set a number properties to my default values.
Colors and fonts are amoung them.

I managed to change the bordercolor by overriding the ApplyStyle method.

My questions are as follows:
* Is this the best way to change the bordercolors ?
* How can I change the color of the buttons ?
* How can I change the fonts (buttons and header) ?

TIA

procedure TAPopup.ApplyStyle;
var
  obj: TFMXObject;
begin
  obj := FindStyleResource('popupcontainer');
  if Assigned(obj) then
  begin
    TTMSFMXPopupShape(obj).Fill.Color := ARBOIS_DARK_BLUE;
    TTMSFMXPopupShape(obj).Fill.Kind  := TBrushKind.Solid;
  end;

  inherited;
end;

2

Hi, 


this is the best way, to change the buttons you can access them directly on header or footer buttons collection level:

procedure TForm1.TMSFMXPopup1ApplyStyleLookup(Sender: TObject);
var
  obj: TFmxObject;
  I: Integer;
begin
  obj := TMSFMXPopup1.FindStyleResource('popupcontainer');
  if Assigned(obj) then
  begin
    TTMSFMXPopupShape(obj).Fill.Color := claRed;
    TTMSFMXPopupShape(obj).Fill.Kind  := TBrushKind.Solid;
  end;

  for I := 0 to TMSFMXPopup1.HeaderButtons.Count - 1 do
  begin
    TMSFMXPopup1.HeaderButtons.Button.AllowCustomize := True;
    TMSFMXPopup1.HeaderButtons.Button.GetContents.Fill.Color := claRed;
  end;
end;