//--------------------------------------------------------------------------- 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; } }