Firemonkey : rotation cube

Soyez le premier à donner votre avis sur cette source.

Vue 6 020 fois - Téléchargée 708 fois

Description

Seconde approche de FireMonkey avec Tutoriel en PDF.
Ici je mixe les composants 2D et 3D en faisant faire à un cube une rotation XYZ, et en modifiant sa profondeur d'affichage.
Seulement 2 lignes de "code" sont nécessaires pour arriver à ce résultat.

J'espère que mes posts de débutants sur FireMonkey ne vous dérangent pas, j'espère juste partager mes avancées avec vous.
Cordialement.

Source / Exemple :


{==============================================================================================
Code Source : BEAUMONT Christophe
Version     : 1.0.0
Date        : 11 Novembre 2011

FireMonkey 02 - L'animation d'un cube mappé sur ses axes X Y Z avec interaction sur l'axe Z
pour modifier la profondeur d'affichage en utilisant un TTrackBar.
Retrouvez ce source et bien d'autres sur mon site : "http://www.delphinautes.fr"
==============================================================================================}
unit Unit1;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.Types3D, FMX.Objects3D,
  FMX.Ani;

type
  TForm1 = class(TForm)
    Viewport3D1: TViewport3D;
    Cube1: TCube;
    FloatAnimation1: TFloatAnimation;
    FloatAnimation2: TFloatAnimation;
    FloatAnimation3: TFloatAnimation;
    Light1: TLight;
    TrackBar1: TTrackBar;
    procedure FormCreate(Sender: TObject);
    procedure TrackBar1Change(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form1: TForm1;

implementation

{$R *.fmx}

procedure TForm1.FormCreate(Sender: TObject);
begin
 TrackBar1.Value := Cube1.Position.Z;
end;

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
 Cube1.Position.Z := TrackBar1.Value;
end;

end.

Conclusion :


L'exécutable ainsi que d'autres sources sur mon site :

www.delphinautes.fr

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
80
Date d'inscription
lundi 2 juin 2003
Statut
Membre
Dernière intervention
15 juin 2012

@cantador
Je viens de regarder ma facture çà donne : mise àjour XE2 Pro 499€ , Taxes 94,81€ soit 593,81€ pour une mise à jour Delphi 2006 et + -> XE2.
Messages postés
80
Date d'inscription
lundi 2 juin 2003
Statut
Membre
Dernière intervention
15 juin 2012

@Cantador

500-15% mais hors TVA donc c'est plus près de 600 que 500 !
Messages postés
4720
Date d'inscription
dimanche 26 février 2006
Statut
Modérateur
Dernière intervention
31 juillet 2021
14
Bonjour,

"Singe en feu", "Singe en feu".
je n'en dors plus...

Vite il faut que j'achète XE2 !
ça ne plus durer..

comment ça, il faut débourser 500 - 15% = 425 ?

cirec, vite une petite subvention pour admins nécessiteux..

cordialement
Messages postés
80
Date d'inscription
lundi 2 juin 2003
Statut
Membre
Dernière intervention
15 juin 2012

@YvesSimon

En sachant qu'est considérée comme mise à jour à partir de Delphi 2006.
Pour toute version antérieure il faut une licence complète, ne fais pas comme moi, profites des 15% de réduction proposée sur Delphi.fr en achetant sur barnsten.com
Messages postés
3826
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
10 mai 2021
46
Salut YvesSimon,

tu ne trouveras pas ces unités sur le net. Elles font partie de la nouvelle version de Delphi "XE2".

3 solutions s'offrent à toi:
Télécharger une version d'évaluation (30 jours)
Acheter une licence ou une mise à jour (500 Euros HT min)
ou télécharger le zip sur le site de Christophe67 qui lui contient l'exécutable (si c'est juste pour voir le résultat)
http://www.delphinautes.fr/_delphi_fm02.php
Afficher les 6 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.