//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "TFontStyle.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
// BeginExample: TFontStyle
// Property: Graphics.TFont.Style
// Type: Graphics.TFontStyle

// BeginCode
/*
This example demonstrates how to set and clear font styles.
This example requires a button and a label that has text
with some styles set.
*/
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   Label1->Font->Style = TFontStyles() << fsBold << fsUnderline;
}
/*
This example demonstrates how to clear any Styles that were previously set.
*/
void __fastcall TForm1::Button2Click(TObject *Sender)
{
   Label1->Font->Style = TFontStyles();
}
// EndCode
// EndExample: TFontStyle
//---------------------------------------------------------------------------
