---------------------------------------------------------------------------
| 644 | } |
| 645 | //--------------------------------------------------------------------------- |
| 646 | void __fastcall TMainForm::aFontExecute(TObject *Sender) |
| 647 | { |
| 648 | FontDialog->Font = LogSG->Font; |
| 649 | TFontStyles st = FontDialog->Font->Style; // save style |
| 650 | if( ! FontDialog->Execute() ) |
| 651 | return; |
| 652 | FontDialog->Font->Style = st; // restore style |
| 653 | LogSG->Font = FontDialog->Font; |
| 654 | SetLinesHeight(); |
| 655 | } |
| 656 | //--------------------------------------------------------------------------- |
| 657 | void __fastcall TMainForm::SetLinesHeight(void) |
| 658 | { |