var

 anaForm: TCLForm;

 hareketImg,yonImg: TClProImage;

 zamanlayici: TClTimer;

void sensorDurum;

var

 YHeading,XHeading,ZHeading: Double;

{

 if (not anaForm.FormOrientationSensor.Sensor == nil)

 {

 YHeading = anaForm.FormOrientationSensor.Sensor.HeadingY;

 XHeading = anaForm.FormOrientationSensor.Sensor.HeadingX;

 ZHeading = anaForm.FormOrientationSensor.Sensor.HeadingZ;

 

 hareketImg.RotationAngle = YHeading;

 

 }

}

{

 anaForm = TCLForm.Create(Self);

 

 anaForm.SetFormBGImage(' https://clomosy.com/demos/compassbg.png" rel="nofollow - https://clomosy.com/demos/compassbg.png ');

 

 hareketImg = anaForm.AddNewProImage(anaForm,'hareketImg');

 clComponent.SetupComponent(hareketImg,'{"Align" : "Center", 

"Width":350,"Height":350,"ImgUrl":" https://clomosy.com/demos/compass2.png" rel="nofollow - https://clomosy.com/demos/compass2.png" , 

"ImgFit":"yes"}');

 

 yonImg = anaForm.AddNewProImage(anaForm,'yonImg');

 clComponent.SetupComponent(yonImg,'{"Align" : "Center", 

"Width":350,"Height":350,"ImgUrl":" https://clomosy.com/demos/compass_arrow2.png" rel="nofollow - https://clomosy.com/demos/compass_arrow2.png" , 

"ImgFit":"yes","MarginBottom":100,"MarginRight":28}');

 

 anaForm.FormOrientationSensorType = ostHeading;

 anaForm.FormOrientationSensor.Active = True;

 

 zamanlayici = anaForm.AddNewTimer(anaForm, 'zamanlayici', 500);

 zamanlayici.Enabled = True;

 anaForm.AddNewEvent(zamanlayici, tbeOnTimer, 'sensorDurum');

 

 anaForm.Run;

}