示例#1
0
//---------------------------------------------------------------------------
void __fastcall TRxViewDlg::ChangeFont(void)
{
	TFontDialog *pBox = new TFontDialog(this);
	pBox->Font = PC->Font;
    if( pBox->Execute() ){
		PC->Font = pBox->Font;
        OnUpdateFont();
    }
    delete pBox;
}
void __fastcall TTimelineMainForm::btnFontClick(TObject *Sender)
{
  TFontDialog* pFD;
  pFD = new TFontDialog(NULL);

    pFD->Font = TimeLine1->Font;
    if( pFD->Execute() )
    {
      TimeLine1->Font = pFD->Font;
    }
    delete pFD;

}
void __fastcall TTMTimeLineMainForm::btnMonthFontClick(TObject *Sender)
{
  TFontDialog* pFD;
  pFD = new TFontDialog(NULL);
  try
  {
    pFD->Font = JvTimeLine1->MonthFont;
    if( pFD->Execute() )
    {
      JvTimeLine1->MonthFont = pFD->Font;
    }
  }
  __finally
  {
    delete pFD;
  }
}