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.
L'exécutable ainsi que d'autres sources sur mon site :
www.delphinautes.fr
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
- Firemonkey : rotation cube
- Matrice de rotation - Forum C / C++ / C++.NET
- Racine cube ✓ - Forum C / C++ / C++.NET
- 2d rotation - Forum C / C++ / C++.NET
- Rotation lol ✓ - Forum Flash
- Sdl rotation - Forum C / C++ / C++.NET
19 nov. 2011 à 10:13
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.
19 nov. 2011 à 10:10
500-15% mais hors TVA donc c'est plus près de 600 que 500 !
18 nov. 2011 à 15:02
"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
18 nov. 2011 à 13:58
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
18 nov. 2011 à 13:47
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
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.