Problème avec le composant TGradientEdit pour FMX

Version imprimable

1 pièce(s) jointe(s)

Bonjour à tous,

Je rencontre un gros 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 18 const Color : array [0..9] of string = ('clRed','clAqua','clBlue','clFuchsia','clGreen','clLime','clNavy','clOlive','clSkyBlu e','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 ne fonctionne plus du tout sous Windows et Mac depuis Delphi 10.4.1,
Voir l'image ci-jointe.
Avez-vous déjà constaté cette anomalie avec le composant TGradientEdit.
Comment résoudre ce défaut ?
Merci pour votre aide.

Pièce jointe 581834

20/10/2020, 17h18
SergioMaster

Bonsoir,

ce bug a été signalé depuis déjà d'autres versions https://quality.embarcadero.com/browse/RSP-20497 , il semblerait d'après la réponse que ce soit un comportement androïd qui n'accepte que 4 couleurs max.

Citation:

Fixed with comment: GPU canvas (macOS + Metall, iOS, Android) supports only 4 points of Gradient.

une sorte de botté en touche pas très fair play AMHA
20/10/2020, 17h28
jbrg

Problème avec le composant TGradientEdit pour FMX depuis Delphi 10.4

Bonjour Sergio,
Ce composant fonctionné très bien auparavant sous Windows et mac.
Le nouveau problème que je décris est survenu depuis Delphi 10.4
20/10/2020, 17h30
SergioMaster

Argh :oops: je croyais que c'était un écran Androïd d'où ma réponse.
Je n'ai pas testé (sous windows) avec 10.4

1 pièce(s) jointe(s)

ce code sous 10.4.1

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
uses system.UIConsts;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  I : Integer;
  aPoint: TCollectionItem;
 
const
  Color : array  [0..9] of string =
('clRed','clAqua','clBlue','clFuchsia','clGreen','clLime','clNavy','clOlive','clSkyBlue','clYellow');
 
begin
  GradientEdit1.BeginUpdate;
  GradientEdit1.Gradient.Points.Clear;
  for I := 0 to 9 do
  begin
    APoint:=GradientEdit1.Gradient.Points.Add;
    TGradientPoint(APoint).Color := StringToAlphaColor(Color[I]);
    TGradientPoint(APoint).Offset := I / 10;
  end;
  GradientEdit1.EndUpdate;
end;

fonctionne parfaitement sous windows(enfin je crois)
Pièce jointe 581835
Je n'ai pas de chose à la pomme donc ne peux vérifier sur mac. J'ai la flemme fin de journée (pas mon mobile sous la main) pour vérifier Android ou Linux

21/10/2020, 08h25
SergioMaster

2 pièce(s) jointe(s)

j'ai remis la main sur mon mobile
Pièce jointe 581865
Toujours le même problème :(
et sous Linux (utilisation de WSL, Delphi 10.3 car je n'ai pas encore configurer la plateforme Linux en 10.4)
Pièce jointe 581866
21/10/2020, 17h51
jbrg

Merci Sergio,
Ta solution fonctionne parfaitement sur PC et Mac.
Je confirme que le problème limitant les gradients à 4 couleurs sur Android n'a toujours pas été résolu.