FireMonkey 3D でのカメラの回転とズームの例を検索します。同様に、マウスの左ボタンを使用してシーンの周りでカメラを回転させ、マウス ホイールを使用してズームインおよびズームアウトします。
誰でも私を助けることができますか?
FireMonkey 3D でのカメラの回転とズームの例を検索します。同様に、マウスの左ボタンを使用してシーンの周りでカメラを回転させ、マウス ホイールを使用してズームインおよびズームアウトします。
誰でも私を助けることができますか?
次のフォームは、この簡単なデモを示しています。.fmx ファイルと .pas ファイルを保存し、フォームを FMX アプリケーションに追加するだけです。重要な部分は、カメラ ターゲットである DummyObject に対して、カメラとネストされたライト オブジェクトを別の X 軸と Y 軸に配置することです。X と Y を別々のダミー オブジェクトとして持つと、状況によっては回転が垂直と水平になります。DummyX と DummyY オブジェクトを 1 つの DummyXY オブジェクトにマージすることもできます。これにより、よりリアルな回転スタイルが得られますが、どちらが望ましいかはニーズによって異なります。
MainForm.pas:
unit MainForm;
interface
uses
FMX.Forms, FMX.Materials, System.Math.Vectors, FMX.Types3D, FMX.Objects3D, FMX.Controls3D, FMX.Viewport3D,
System.Classes, FMX.Types, FMX.Controls, FMX.Layouts, FMX.MaterialSources, System.Types, System.UITypes;
type
TForm1 = class(TForm)
Viewport3D: TViewport3D;
DummyX: TDummy;
DummyObject: TDummy;
CameraZ: TCamera;
Light1: TLight;
LayoutMain: TLayout;
DummyY: TDummy;
Cone1: TCone;
LightMaterialSource1: TLightMaterialSource;
procedure Viewport3DMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Single);
procedure Viewport3DMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Single);
procedure Viewport3DMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; var Handled: Boolean);
private
FDown: TPointF;
procedure DoZoom(aIn: Boolean);
public
end;
var
Form1: TForm1;
implementation
{$R *.fmx}
const
CAMERA_MAX_Z = -2;
CAMERA_MIN_Z = -200;
ZOOM_STEP = 2;
procedure TForm1.DoZoom(aIn: Boolean);
var
newZ: Single;
begin
if aIn then
newZ := CameraZ.Position.Z + ZOOM_STEP
else
newZ := CameraZ.Position.Z - ZOOM_STEP;
if (newZ < CAMERA_MAX_Z) and (newZ > CAMERA_MIN_Z) then
CameraZ.Position.Z := newZ;
end;
procedure TForm1.Viewport3DMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Single);
begin
FDown := PointF(X, Y);
end;
procedure TForm1.Viewport3DMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Single);
begin
if (ssLeft in Shift) then
begin
DummyX.RotationAngle.X := DummyX.RotationAngle.X - ((Y - FDown.Y) * 0.3);
DummyY.RotationAngle.Y := DummyY.RotationAngle.Y + ((X - FDown.X) * 0.3);
FDown := PointF(X, Y);
end;
end;
procedure TForm1.Viewport3DMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; var Handled: Boolean);
begin
DoZoom(WheelDelta > 0);
end;
end.
MainForm.fmx:
object Form1: TForm1
Left = 0
Top = 0
Caption = 'Form1'
ClientHeight = 592
ClientWidth = 713
FormFactor.Width = 320
FormFactor.Height = 480
FormFactor.Devices = [Desktop]
DesignerMasterStyle = 0
object LayoutMain: TLayout
Align = Client
Size.Width = 713.000000000000000000
Size.Height = 592.000000000000000000
Size.PlatformDefault = False
TabOrder = 2
object Viewport3D: TViewport3D
Align = Client
Camera = CameraZ
Size.Width = 713.000000000000000000
Size.Height = 592.000000000000000000
Size.PlatformDefault = False
UsingDesignCamera = False
OnMouseDown = Viewport3DMouseDown
OnMouseMove = Viewport3DMouseMove
OnMouseWheel = Viewport3DMouseWheel
object DummyX: TDummy
Width = 1.000000000000000000
Height = 1.000000000000000000
Depth = 1.000000000000000000
object DummyY: TDummy
Width = 1.000000000000000000
Height = 1.000000000000000000
Depth = 1.000000000000000000
object CameraZ: TCamera
AngleOfView = 45.000000000000000000
Target = DummyObject
Position.Z = -20.000000000000000000
Width = 1.000000000000000000
Height = 1.000000000000000000
Depth = 1.000000000000000000
object Light1: TLight
Color = claWhite
LightType = Directional
SpotCutOff = 180.000000000000000000
Width = 1.000000000000000000
Height = 1.000000000000000000
Depth = 1.000000000000000000
end
end
end
end
object DummyObject: TDummy
Width = 1.000000000000000000
Height = 1.000000000000000000
Depth = 1.000000000000000000
object Cone1: TCone
Width = 1.000000000000000000
Height = 1.000000000000000000
Depth = 1.000000000000000000
SubdivisionsCap = 3
MaterialSource = LightMaterialSource1
end
end
end
end
object LightMaterialSource1: TLightMaterialSource
Diffuse = claWhite
Ambient = xFF202020
Emissive = claNull
Specular = xFF606060
Shininess = 30
Left = 436
Top = 56
end
end
これをどこかのデモから引き出しましたが、私のニーズにはうまく機能します。Delphi XE5 以降で動作するはずです。
ドラッグでカメラを回転させ、ホイールでズームできます。重要なことは、異なる軸での回転はすべて、異なるネストされたオブジェクトで処理する必要があるため、実際の世界で予想されるように、回転計算が互いに影響を与えるはずです。