Gradient et angle de remplissage

Version imprimable

19/05/2019, 19h15
SergioMaster

Gradient et angle de remplissage

Bonsoir,

Quand on crée un gradient on a une molette qui permet de changer un angle. La question : comment changer l'angle à l'exécution ?
C'est une propriété difficile à trouver :koi:

J'arrive à faire quelque chose si le gradient est de type radial avec ce code (ici je joue sur le remplissage d'un TPath)

Code:

Path1.Fill.Gradient.RadialTransform.RotationAngle:=AngleGradient.Value

mais je ne vois pas où jouer pour le type lineaire ?
20/05/2019, 08h02
SergioMaster

Bonjour,

à l'empirisme (visualisation du texte de la forme dans différents cas) il faut jouer avec les propriétés StartPosition et StopPosition
[Edit] comme un idiot :arf: j'ai retrouvé après coup la première réponse dans la doc dans les exemples

Voici un petit relevé

Citation:

{ 0° Fill.Gradient.StartPosition.Y = 0.500000000000000000
Fill.Gradient.StopPosition.X = 1.000000000000000000
Fill.Gradient.StopPosition.Y = 0.500000000000000000
? Fill.Gradient.StopPosition.X :=0 }

{ 90°Fill.Gradient.StartPosition.X = 0.500000000000000000
Fill.Gradient.StartPosition.Y = 1.000000000000000000
Fill.Gradient.StopPosition.X = 0.499999970197677600
Fill.Gradient.StopPosition.Y = 0.000000000000000000}

{180° Fill.Gradient.StartPosition.X = 1.000000000000000000
Fill.Gradient.StartPosition.Y = 0.499999970197677600
Fill.Gradient.StopPosition.Y = 0.500000059604644800
? Fill.Gradient.StopPosition.X :=0}

des suggestions pour transformer une valeur en angle -180 .. +180 en positions ? Il y a peut-être une fonction toute faite de disponible quelque part ?

Je me réponds voici la petite procédure qui fait le travail.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
procedure CalcPosition(Angle : Single; Gradient : TGradient);
var
  X, Y, Koef: Single;
  Radian: Single;
  CosRadian: Single;
  SinRadian: Single;
begin
  Radian := DegToRad(Angle);
  CosRadian := Cos(Radian);
  SinRadian := Sin(Radian);
  if (CosRadian <> 0) and (Abs(1 / CosRadian) >= 1) and (Abs(1 / CosRadian) <= 1.42) then
    X := Abs(1 / CosRadian)
  else
    X := 1;
 
  if (SinRadian <> 0) and (Abs(1 / SinRadian) >= 1) and (Abs(1 / SinRadian) <= 1.42) then
    Y := Abs(1 / SinRadian)
  else
    Y := 1;
 
  Koef := Max(X, Y);
  Koef := Koef * 0.5;
  Gradient.StartPosition.Point := PointF(0.5 - (CosRadian * Koef), 0.5 + (SinRadian * Koef));
  Gradient.StopPosition.Point := PointF(0.5 + (CosRadian * Koef), 0.5 - (SinRadian * Koef));
end;

Utilisation (AngleGradient est un TArcDial):

Code:

1
2
3
4
5
6
procedure TMainForm.AngleGradientChange(Sender: TObject);
begin
Path1.BeginUpdate;
CalcPosition(AngleGradient.Value,Path1.Fill.Gradient);
Path1.EndUpdate;
end;

PS. Je n'ai aucun mérite si ce n'est d'avoir fouiller dans les sources (FMX.Design.Brush.pas)