/*
TFont Style example
This example sets a Label's Font Style to fsBold and fsUnderline.
*/
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   Label1->Font->Style = TFontStyles()<< fsBold << fsUnderline;
}
procedure Form1.Button1Click(Sender: TObject);
begin
   Label1.Font.Style := [fsBold,fsUnderline];
end;
/*
This example demonstrates how to clear any Styles that were previously set.
*/
void __fastcall TForm1::Button2Click(TObject *Sender)
{
   Label1->Font->Style = TFontStyles();
} 
