r-zakarya
77809b09c8
The caret in an Android TEdit does not land where you touch, which makes a long bearer token impossible to correct - the reason the last FMX screen had to go. A field in the engine inherits the system's text handling (caret, selection, handles, paste) for free. With no FMX control left, two things became dead weight and are gone: the vendored Dark.style, which had nothing left to style, and Skia - 25 MB carried solely so FMX labels would shape Arabic. The engine does its own shaping; checked on the device, an Arabic filename still reads correctly. The APK drops from 22.0 to 12.7 MB. Delphi stays the owner of the server settings; the page only edits them and hands them back when a field loses focus, one navigation per changed field rather than one per keystroke. Co-Authored-By: Claude Opus 5 <noreply@anthropic.com>
43 lines
1.5 KiB
ObjectPascal
43 lines
1.5 KiB
ObjectPascal
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.
|