FMX.SimplePhysics Sample

This sample demostrates how to use the Box2D physics engine with FireMonkey controls in Delphi applications.

Location

You can find the FMSimplePhysics sample project at:

• Start | Programs | Embarcadero RAD Studio 10.2 Tokyo | Samples and navigate to:
  • Object Pascal\Multi-Device Samples\Physics\FMXSimplePhysics
• Subversion Repository:
  • http://sourceforge.net/p/radstudiodemos/code/HEAD/tree/branches/RADStudio_Tokyo/Object%20Pascal/Multi-Device%20Samples/Physics/FMXSimplePhysics

Description

The FMSimplePhysics sample shows you how to create a simulation based on the laws of the physics using Box2D. This sample simulates the effect of gravity applied to the FireMonkey controls of the form. Therefore, the controls of the form fall from the top of the form to the bottom. Moreover, the controls bounce and collide with each other when they reach the bottom of the form.

How to Use the Sample

1. Navigate to the location given above and open FMSimplePhysics.dproj.
2. Select the target platform.
3. Press F9 or choose Run > Run.
4. Interact with the sample:
   • Click the Drop button to start the physics simulation. All the components on the form fall to the bottom.
   • Click Reset to reset the form. Place all the components in a random position along the top of the form.

Files

File in Delphi	Contains
FMSimplePhysics.dproj FMSimplePhysics.dpr	The project itself.
uFormFmxPhysics.pas uFormFmxPhysics.fmx	The main form.
uFmxPhysicsDemo.pas	The main unit.
uCustomSimulation.pas	The basic simulation unit.
uFlatBox2DSimulation.pas	The unit that provides Box2D features to the basic simulation unit.
uSimulationFmxCtrls.pas	The unit that defines the simulation class implemented in this sample.
uSimulationFmxCtrls.pas	The unit that implements a Helper class of TControl.

Classes

TFormFmxPhysics is the main form that represents the main window of the sample. It contains the following components:

• A TToolBar object called ToolBar1 that contains the following components:
  • A TButton called ButtonPhysics with the Text property set to Drop.
  • A TButton called ResetBtn with the Text property set to Reset.
• A TButton object with the Text property set to Button.
• A TCheckBox object with the Text property set to CheckBox.
• A TPanel object called Panel1 that contains the following components:
  • A TLabel object with the Text property set to Panel.
  • Two TSpeedButton objects.
• A TProgressBar object.
• A TRadioButton object.
• Two TScrollBar objects.
• A TComboBox object.
• A TLabel object with the Text property set to I'm a label.
• A TEdit object with the Text property set to some text.
• A TTrackBar object.

Implementation

When you run the application, the form of the sample displays all the controls listed above. The sample implements an OnClick event for each of the following buttons:

• Drop - the event of this button briefly animates the FireMonkey components of the form. This event uses Box2D features to simulate the effect of gravity applied to the controls of the form.
• Reset - the event of this button resets the form. Therefore, all the components of the form are placed in a random position along the top of the form.

Uses

• FMX.StdCtrls.TToolBar
• FMX.StdCtrls.TButton
• FMX.StdCtrls.TCheckBox
• FMX.StdCtrls.TPanel
• FMX.StdCtrls.TLabel
• FMX.StdCtrls.TSpeedButton
• FMX.StdCtrls.TProgressBar
• FMX.StdCtrls.TRadioButton
• FMX.StdCtrls.TScrollBar
• FMX.ListBox.TComboBox
• FMX.Edit.TEdit
• FMX.StdCtrls.TTrackBar

See Also

• FireMonkey
• FireMonkey Application Design
• Using Box2D in Delphi Applications.

Samples

• Box2D Hello sample
• Box2D TestBed sample