--- sbbs/sbbs3/ctrl/textfileeditunit.cpp 2018/04/24 16:39:34 1.1 +++ sbbs/sbbs3/ctrl/textfileeditunit.cpp 2018/04/24 16:41:08 1.1.1.2 @@ -1,6 +1,6 @@ /* Synchronet Control Panel (GUI Borland C++ Builder Project for Win32) */ -/* $Id: textfileeditunit.cpp,v 1.1 2018/04/24 16:39:34 root Exp $ */ +/* $Id: textfileeditunit.cpp,v 1.1.1.2 2018/04/24 16:41:08 root Exp $ */ /**************************************************************************** * @format.tab-size 4 (Plain Text/Source Code File Header) * @@ -64,7 +64,7 @@ void __fastcall TTextFileEditForm::FormS EditReplaceMenuItem->Enabled=false; ReplacePopupMenuItem->Enabled=false; } - Caption=Caption+AnsiString(" - ")+Filename.UpperCase(); + Caption=Caption+AnsiString(" - ")+Filename; try { Memo->Lines->LoadFromFile(Filename); } catch(...) { } @@ -237,3 +237,21 @@ void __fastcall TTextFileEditForm::UndoE } //--------------------------------------------------------------------------- +void __fastcall TTextFileEditForm::ChangeFontExecute(TObject *Sender) +{ + FontDialog->Font->Assign(Memo->Font); + FontDialog->Execute(); + Memo->Font->Assign(FontDialog->Font); +} +//--------------------------------------------------------------------------- + +void __fastcall TTextFileEditForm::FontDialogApply(TObject *Sender, + HWND Wnd) +{ + Memo->Font->Assign(FontDialog->Font); +} +//--------------------------------------------------------------------------- + + + +