Abstract: This example is a FireMonkey HD Application that demonstrates how to use different properties of TBrush.

FMXTBrush (C++)

Language:

Versions:

Description

This example is a FireMonkey HD Application that demonstrates how to use different properties of TBrush.

This example requires the following components:

A ComboBox object with three ListBoxItem objects.
An Ellipse object.
Two ColorListBox objects.
Four Label objects.
Four Image objects.

The form should look like in the following image.

Disable all the components, except the Ellipse, the ComboBox, and the Labels. Set the text to the labels as null ( ' ' ), except for the one above the ComboBox. Set its text to 'Choose a style for the Ellipse:' . Load different Bitmap files to the Bitmap property of the Imageobjects.

Code

// C++
void __fastcall TForm1::ColorListBox1Change(TObject *Sender) {
	// Verify the Style of the TBrush and use the selected color accordingly (as the color of the brush or as the first gradient color)
	if (Ellipse1->Fill->Kind == TBrushKind::bkSolid)
		Ellipse1->Fill->Color = ColorListBox1->Color;
	else
		Ellipse1->Fill->Gradient->Color = ColorListBox1->Color;
}
// ---------------------------------------------------------------------------
 
void __fastcall TForm1::ColorListBox2Change(TObject *Sender) {
	// Use the selected color as the second color of the gradient
	Ellipse1->Fill->Gradient->Color1 = ColorListBox2->Color;
}
// ---------------------------------------------------------------------------
 
void __fastcall TForm1::FormCreate(TObject *Sender) {
	Ellipse1->Fill->Kind = TBrushKind::bkNone;
}
// ---------------------------------------------------------------------------
 
void __fastcall TForm1::Image1Click(TObject *Sender) {
	// Set the Brush's pattern to be the first image
	Ellipse1->Fill->Bitmap->Bitmap = Image1->Bitmap;
	Ellipse1->Repaint();
}
// ---------------------------------------------------------------------------
 
void __fastcall TForm1::Image2Click(TObject *Sender) {
	// Set the Brush's pattern to be the second image
	Ellipse1->Fill->Bitmap->Bitmap = Image2->Bitmap;
	Ellipse1->Repaint();
}
// ---------------------------------------------------------------------------
 
void __fastcall TForm1::Image3Click(TObject *Sender) {
	// Set the Brush's pattern to be the third image
	Ellipse1->Fill->Bitmap->Bitmap = Image3->Bitmap;
	Ellipse1->Repaint();
}
// ---------------------------------------------------------------------------
 
void __fastcall TForm1::Image4Click(TObject *Sender) {
	// Set the Brush's pattern to be the fourth image
	Ellipse1->Fill->Bitmap->Bitmap = Image4->Bitmap;
	Ellipse1->Repaint();
}
// Set the style of the TBrush according to the selected option and
// enable the components needed to set the other TBrush properties
// ---------------------------------------------------------------------------
 
void __fastcall TForm1::ListBoxItem1Click(TObject *Sender) {
	Label3->Text = "Choose a color:";
	Label4->Text = "";
	Label2->Text = "";
	Ellipse1->Fill->Kind = TBrushKind::bkSolid;
	ColorListBox1->Enabled = True;
	ColorListBox2->Enabled = False;
	Image1->Enabled = False;
	Image2->Enabled = False;
	Image3->Enabled = False;
	Image4->Enabled = False;
}
// ---------------------------------------------------------------------------
 
void __fastcall TForm1::ListBoxItem2Click(TObject *Sender) {
	Label3->Text = "Choose the top color:";
	Label4->Text = "Choose the bottom color:";
	Label2->Text = "";
	Ellipse1->Fill->Kind = TBrushKind::bkGradient;
	ColorListBox1->Enabled = True;
	ColorListBox2->Enabled = True;
	Image1->Enabled = False;
	Image2->Enabled = False;
	Image3->Enabled = False;
	Image4->Enabled = False;
 
}
// ---------------------------------------------------------------------------
 
void __fastcall TForm1::ListBoxItem3Click(TObject *Sender) {
	Label2->Text = "Choose an image:";
	Label3->Text = "";
	Label4->Text = "";
	Ellipse1->Fill->Kind = TBrushKind::bkBitmap;
	ColorListBox1->Enabled = False;
	ColorListBox2->Enabled = False;
	Image1->Enabled = True;
	Image2->Enabled = True;
	Image3->Enabled = True;
	Image4->Enabled = True;
	Ellipse1->Fill->Bitmap->WrapMode = TWrapMode::wmTileStretch;
}
// ---------------------------------------------------------------------------

Uses

FMX.Types.TBrush ( fr | de | ja )
FMX.Types.TBrush.Kind ( fr | de | ja )
FMX.Types.TBrush.Bitmap ( fr | de | ja )
FMX.Types.TBrushBitmap.WrapMode ( fr | de | ja )
FMX.Types.TBrushBitmap.Bitmap ( fr | de | ja )
FMX.Types.TBrush.Gradient ( fr | de | ja )
FMX.Types.TBrush.Color ( fr | de | ja )
FMX.Objects.TEllipse.Fill ( fr | de | ja )
FMX.Types.TGradient.Color ( fr | de | ja )
FMX.Types.TGradient.Color1 ( fr | de | ja )

FireMonkey TBrush C++ Code Sample

FMXTBrush (C++)

Language:

Versions:

Contents

Description

Code

Uses

See Also

Latest Comments View All Add New RSS ATOM

In This Article

Rating

Developer Tools

Database Tools