Discussion :

[Gouyon]

Bonjour à tous

Sur une TForm , j'ai créé une petite vue 3D dans laquelle je déplace après appuis sur un bouton une sphère. Le problème c'est que dès que j'appuie sur le bouton ma vue 3D disparait

Un peu de code
La procédure de déplacement qui déplace la sphère bras jusqu'à la position posi

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
procedure TForm1.GotoPosi(posi: TPosition3D; duree: Single);
var
  aniX: TFloatAnimation;
  aniY: TFloatAnimation;
  aniZ: TFloatAnimation;
begin
  begin
    aniX := TFloatAnimation.Create(bras);
    aniX.PropertyName := 'Position.X';
    aniX.StartValue := bras.Position.X;
    aniX.StopValue := posi.X;
    aniX.Loop := false;
    aniX.AutoReverse := false;
    aniX.Duration := duree;
    aniX.Parent := bras;
    aniX.Start;
    aniY := TFloatAnimation.Create(bras);
    aniY.PropertyName := 'Position.Y';
    aniY.StartValue := bras.Position.Y;
    aniY.StopValue := posi.Y;
    aniY.Loop := false;
    aniY.AutoReverse := false;
    aniY.Duration := duree;
    aniY.Parent := bras;
    aniY.Start;
    aniZ := TFloatAnimation.Create(bras);
    aniZ.PropertyName := 'Position.Z';
    aniZ.StartValue := bras.Position.Z;
    aniZ.StopValue := posi.Z;
    aniZ.Loop := false;
    aniZ.AutoReverse := false;
    aniZ.Duration := duree;
    aniZ.Parent := bras;
    aniZ.Start;
  end;
end;

et le code de mon OnClick

Code :

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

1
2
3
4
5
6
7
8
 
procedure TForm1.BtnGoToHublotClick(Sender: TObject);
 
begin
  if (bras.Position.X <> posiHublot.Position.X) or (bras.Position.Y <> posiHublot.Position.Y) or
    (bras.Position.Z <> posiHublot.Position.Z) then
    GotoPosi(posiHublot.Position, 5);
end;

Lorsque je fait exécuter le code j'ai ce message un peu curieux dans la fenêtre des messages
D3D11: Removing Device.
Processus moprg.exe (16512)
Sortie du Thread: ID du thread:13736 Processus moprg.exe (16512)

Une idée????

[Gouyon]

Au final je pense avoir trouvé.
Dans mon projet j'ai une unité qui a cette ligne

Code :

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

1
2
3
4
 
initialization
 
FMX.Types.GlobalUseGPUCanvas := true;

et manifestement ça met le bazar.
Même si mon problème est résolu si quelqu'un a une explication je suis preneur.

[ALWEBER]

J'eusse plutôt fait comme ceci (Delphi XE10 Tokyo) en passant les FloatAnim en global:

FMX.Types.GlobalUseGPUCanvas semble sans effet que ce soit à true ou à false

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
 
var
  Form1: TForm1;
  aniX: TFloatAnimation;
  aniY: TFloatAnimation;
  aniZ: TFloatAnimation;
 
implementation
 
{$R *.fmx}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  GotoPosi(posiHublot1.Position, 2);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  GotoPosi(posiHublot2.Position, 3);
end;
 
procedure TForm1.GotoPosi(posi: TPosition3D; duree: Single);
 
begin
  if not Assigned(aniX) then
  begin
    aniX := TFloatAnimation.Create(Bras);
    aniX.Parent := Bras;
    aniY := TFloatAnimation.Create(Bras);
    aniY.Parent := Bras;
    aniZ := TFloatAnimation.Create(Bras);
    aniZ.Parent := Bras;
  end;
  aniX.PropertyName := 'Position.X';
  aniX.StartValue := Bras.Position.X;
  aniX.StopValue := posi.X;
  aniX.Loop := false;
  aniX.AutoReverse := false;
  aniX.Duration := duree;
  aniX.Start;
  aniY.PropertyName := 'Position.Y';
  aniY.StartValue := Bras.Position.Y;
  aniY.StopValue := posi.Y;
  aniY.Loop := false;
  aniY.AutoReverse := false;
  aniY.Duration := duree;
  aniY.Start;
  aniZ.PropertyName := 'Position.Z';
  aniZ.StartValue := Bras.Position.Z;
  aniZ.StopValue := posi.Z;
  aniZ.Loop := false;
  aniZ.AutoReverse := false;
  aniZ.Duration := duree;
  aniZ.Start;
end;

[Gouyon]

FMX.Types.GlobalUseGPUCanvas semble sans effet que ce soit à true ou à false

Chez moi qui suis en version 10.3 aussi ça a des effets très néfastes. Même sans activer les animations rien que le fait de déplacer la fenêtre provoque ce phénomène.

Sinon je vais essayer le code que tu as fourni

[ALWEBER]

Dans l'exemple que tu as proposé tu recrées des floatAnim à chaque fois que tu passe dans la procédure donc tu superposes les floatAnim avec de possibles effet de bord. D'autre part le Owner de create devrait être Le TForm

[gbegreg]

Bonjour,

Le paramètre FMX.Types.GlobalUseGPUCanvas a bien un effet. Il permet d'utiliser ou non le canevas GPU. Il est activé par défaut sur mobile mais pas sous Windows (et n'est pas pris en charge sous macOS).
Pour que cela ait un effet, il faut le placer dans le code du projet avant l'instruction Application.Initialize;. En utilisant le canevas GPU, on peut s'attendre à ce que les performances soient meilleures (et c'est le cas ) mais il peut y avoir des petits défauts d'affichage. J'ai fait un petit programme d'exemple, avec un cube, des lumières, des animations, un TText et un TGloweffect.

Le cube est subdivisé en 500 en largeur, hauteur, profondeur afin d'augmenter le nombre de polygones à afficher. En effet, pour constater une différence sur les performances, il faut que la scène 3D soit un peu chargée (le cube par défaut n'a que 2 triangles par face soit 12 triangles, là on passe à 500x500x2 = 500 000 triangles par face soit 3 000 000 de triangles).
TestGlobalUseGPUCanvas.zip

Sur mon PC portable (sans carte 3D dédiée), en plein écran (1920x1080), avec dans le source du projet FMX.Types.GlobalUseGPUCanvas à false, le programme tourne à 28 images par seconde sans défaut.
En mettant FMX.Types.GlobalUseGPUCanvas à true, je passe à 36 images par seconde mais il y a un défaut : le TText n'apparaît pas en entier (le début et la fin du texte sont tronqués). Du moins sous Windows, je n'ai pas testé sur Android.

Dans la documentation, il est indiqué que

En supplément du rendu des graphiques, le canevas GPU utilise une technologie de rendu de texte anti-alias en nuances de gris. le canevas GPU utilise une technologie de rendu de texte anti-alias en nuances de gris.

Serait-ce cet anti-alias qui provoque le défaut du TText ?

[Gouyon]

D'autre part le Owner de create devrait être Le TForm

Là j'ai du mal à comprendre pourquoi. Vu que ces floatanim sont pour ma TSphère bras.

[ALWEBER]

Là j'ai du mal à comprendre pourquoi. Vu que ces floatanim sont pour ma TSphère bras.

Normalement le "Owner" (propriétaire) est le responsable entre autres de la destruction des objets dont il est propriétaire. Le "parent" lui est le contrôleur du composant. Quand tu renseigne PropertyName tu indique une propriété de l'objet parent. Le parent est impliqué de le comportement des objets enfants. Les deux rôles sont donc à priori différents bien que comme l'a indiqué Paul récemment le "Parent" joue parfois le rôle de "Owner". Sois rassuré, j'ai longtemps confondu "Parent" et "Owner". Je reste à ta disposition pour détailler plus si besoin.

[Gouyon]

Ok je comprends mieux. Par contre dans le code que tu as donné tu as mis bras comme Owner

[ALWEBER]

Ok je comprends mieux. Par contre dans le code que tu as donné tu as mis bras comme Owner

J'avais repris ton exemple mais c'est mieux logiquement parlant de mettre la fiche comme Owner

[ALWEBER]

Pour terminer tu peux placer les TFloatAnimation en phase de conception. La position dans l'arbre dans le fenêtre "structure" définit le parent et tu n'as plus besoin de "create"

[Gouyon]

Effectivement je n'y avais pas pensé