1 pièce(s) jointe(s)
Problème avec le composant TGradientEdit pour FMX
Bonjour à tous,
Je rencontre un problème avec le composant TGradientEdit pour FMX.
Voir le code de test ci-dessous.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
const
Color : array [0..9] of string = ('clRed','clAqua','clBlue','clFuchsia','clGreen','clLime','clNavy','clOlive','clSkyBlue','clYellow');
procedure TForm1.FormShow(Sender: TObject);
var
I : Integer;
begin
GradientEdit1.Gradient.Points.Clear;
for I := 0 to 9 do
begin
GradientEdit1.Gradient.Points.Add;
GradientEdit1.Gradient.Points.Points[I].Color := StringToAlphaColor(Color[I]);
GradientEdit1.Gradient.Points.Points[I].Offset := I / 10;
end;
end; |
Il fonctionne très bien sous Windows et Mac,
Je ne comprends pas pourquoi cela ne fonctionne pas sous Android et iPad.
Seules les 4 premières couleurs sont prises en compte.
Voir l'image ci-jointe.
Avez-vous déjà constaté cette anomalie avec le composant TGradientEdit ?
Comment corriger ce défaut ?
Merci pour votre aide.
Pièce jointe 542818
