Bonjour à tous,
Je rencontre un gros problème avec le composant TGradientEdit pour FMX.
Voir le code de test ci-dessous.
Il ne fonctionne plus du tout sous Windows et Mac depuis Delphi 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 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;
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.
Partager