Discussion :

[jbrg]

Bonjour à tous,

Je rencontre un gros problème avec le composant TGradientEdit pour FMX.
Voir le code de test ci-dessous.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[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.

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

[jbrg]

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

[SergioMaster]

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

[SergioMaster]

ce code sous 10.4.1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

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

[SergioMaster]

j'ai remis la main sur mon mobile

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)