FireMonkey TBrush C++ Code Sample

By: Tim DelChiaro

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

    FMXTBrush (C++)

 

    Language:

    Versions:

 

Contents

    Description

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

This example requires the following components:

The form should look like in the following image.

File:TBrush new.JPG

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

    See Also

Server Response from: ETNASC01