unit PMA.Theme;
{
  La palette, et le fond de la forme.

  CE QU'IL RESTE D'UN THEME. Cette unite habillait autrefois des boutons, des
  surfaces et des libelles peints a la main, et chargeait un style pour les
  controles natifs qu'on ne reecrivait pas. L'interface est passee au moteur du
  systeme (android-client/web) : il n'y a plus un seul controle FMX a habiller,
  donc tout cela est parti - avec le style vendu, qui n'avait plus rien a styler.

  Ce qui subsiste sert au CADRE, que la page ne peut pas atteindre : le fond de
  la forme, visible un instant avant le premier rendu du moteur, et les deux
  couleurs que prennent les barres systeme. Elles doivent suivre celles de
  app.html, sinon la jonction se voit.
}

interface

uses
  // FMX.Graphics pour TBrush, que PaintBackground prend en parametre.
  System.UITypes, FMX.Types, FMX.Graphics;

const
  // Releve sur la recherche globale du telephone : un degrade bleu, des blocs
  // qui ne sont que du blanc translucide pose dessus, aucune bordure.
  COL_BG_TOP  = TAlphaColor($FF3E6394);   // haut du degrade
  COL_BG      = TAlphaColor($FF1B3563);   // bas du degrade

/// Applique le degrade bleu du fond. A poser sur le Fill de la forme.
procedure PaintBackground(AFill: TBrush);

implementation

procedure PaintBackground(AFill: TBrush);
begin
  AFill.Kind := TBrushKind.Gradient;
  AFill.Gradient.Color := COL_BG_TOP;
  AFill.Gradient.Color1 := COL_BG;
  // Rien de plus : un TGradient neuf descend deja du haut vers le bas.
end;

end.