FireMonkey DrawArc and FillArc C++ Code Examples

This example shows how to use the DrawArc and FillArc functions and their results.

To build and test this example, create a FireMonkey HD Application - C++ and add the following controls on the form:

A TImage
Two TEdit objects to set the coordinates for the center of the arc. Name them CenterXEdit and CenterYEdit.
Two TEdit objects to set the rays of the arc. Name them RadiusXEdit and RadiusYEdit.
Two TEdit objects to set the start angle and sweep angle. Name them StartAngleEdit and SweepAngleEdit.
A TEdit object to set the opacity. Name it OpacityEdit.
Two TTColorComboBoxes to set the colors for drawing the stroke and filling. Name them StrokeColorComboBox and FillColorComboBox.
Two TButtons for drawing and filling the arc. Name them DrawButton and FillButton.

The example draws on the canvas of the bitmap. The bitmap is displayed on the TImage.

Add the following code to the OnCreate event handler of the form.

void __fastcall TForm2::FormCreate(TObject *Sender) {
	// initializes the bitmap
	Image1->Bitmap = new TBitmap(int(Image1->Width), int(Image1->Height));
}

Add the following code to the OnClick event handler of the DrawButton and FillButton:

void __fastcall TForm2::DrawButtonClick(TObject *Sender) {
	TPointF Center, Radius;
	TClipRects *AClipRect;
	Single Opacity, StartAngle, SweepAngle;
	// takes the information from the edits
	// checks whether all the values are valid
	if (TryStrToFloat(CenterXEdit->Text, Center.X) && TryStrToFloat
		(CenterYEdit->Text, Center.Y) && TryStrToFloat(RadiusXEdit->Text,
		Radius.X) && TryStrToFloat(RadiusYEdit->Text, Radius.Y) && TryStrToFloat
		(StartAngleEdit->Text, StartAngle) && TryStrToFloat
		(SweepAngleEdit->Text, SweepAngle) && TryStrToFloat(OpacityEdit->Text,
		Opacity)) {
		Image1->Bitmap->Canvas->BeginScene();
		Image1->Bitmap->Canvas->Stroke->Color = StrokeColorComboBox->Color;
		// draws the arc
		Image1->Bitmap->Canvas->DrawArc(Center, Radius, StartAngle, SweepAngle,
			Opacity);
		Image1->Bitmap->BitmapChanged();
		Image1->Bitmap->Canvas->EndScene();
	}
	else {
		// displays a message if not all edits have numerical values
		ShowMessage("All Edits text should be numbers");
	}
}
// ---------------------------------------------------------------------------
 
void __fastcall TForm2::FillButtonClick(TObject *Sender) {
	TPointF Center, Radius;
	Single Opacity, StartAngle, SweepAngle;
	// takes the information from the edits
	// checks whether all the values are valid
	if (TryStrToFloat(CenterXEdit->Text, Center.x) && TryStrToFloat
		(CenterYEdit->Text, Center.y) && TryStrToFloat(RadiusXEdit->Text,
		Radius.x) && TryStrToFloat(RadiusYEdit->Text, Radius.y) && TryStrToFloat
		(StartAngleEdit->Text, StartAngle) && TryStrToFloat
		(SweepAngleEdit->Text, SweepAngle) && TryStrToFloat(OpacityEdit->Text,
		Opacity)) {
		Image1->Bitmap->Canvas->BeginScene();
		Image1->Bitmap->Canvas->Fill->Color = FillColorComboBox->Color;
		// fills the arc
		Image1->Bitmap->Canvas->FillArc(Center, Radius, StartAngle, SweepAngle,
			Opacity);
		Image1->Bitmap->BitmapChanged();
		Image1->Bitmap->Canvas->EndScene();
	}
	else {
		// displays a message if not all edits have numerical values
		ShowMessage("All Edits text should be numbers");
	}
 
}
// ---------------------------------------------------------------------------