Firemonkey : rotation cube

Soyez le premier à donner votre avis sur cette source.

Vue 6 452 fois - Téléchargée 724 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
cs_Christophe67 Messages postés 80 Date d'inscription lundi 2 juin 2003 Statut Membre Dernière intervention 15 juin 2012
19 nov. 2011 à 10:13
@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.
cs_Christophe67 Messages postés 80 Date d'inscription lundi 2 juin 2003 Statut Membre Dernière intervention 15 juin 2012
19 nov. 2011 à 10:10
@Cantador

500-15% mais hors TVA donc c'est plus près de 600 que 500 !
cs_cantador Messages postés 4720 Date d'inscription dimanche 26 février 2006 Statut Modérateur Dernière intervention 31 juillet 2021 14
18 nov. 2011 à 15:02
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
cs_Christophe67 Messages postés 80 Date d'inscription lundi 2 juin 2003 Statut Membre Dernière intervention 15 juin 2012
18 nov. 2011 à 13:58
@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
Cirec Messages postés 3833 Date d'inscription vendredi 23 juillet 2004 Statut Modérateur Dernière intervention 18 septembre 2022 50
18 nov. 2011 à 13:47
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.