Текст программы.
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
using namespace std;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N7Click(TObject *Sender)
{
N24Click(Sender);
exit(0);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N1Click(TObject *Sender)
{
if (OpenDialog1->Execute())
Memo1->Lines->LoadFromFile(OpenDialog1->FileName);
StatusBar1->Panels->Items[2]->Text=OpenDialog1->FileName;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N2Click(TObject *Sender)
{
if (SaveDialog1->Execute())
Memo1->Lines->SaveToFile(SaveDialog1->FileName);
StatusBar1->Panels->Items[2]->Text=SaveDialog1->FileName;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N5Click(TObject *Sender)
{
if (PrintDialog1->Execute())
{
int i;
Printer()->BeginDoc();
for (i=0;i<=Memo1->Lines->Count;i++)
Printer()->Canvas->TextOutA(100,100+(Memo1->Font->Size+50)*i,Memo1->Lines->Strings[i]);
Printer()->EndDoc();
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N9Click(TObject *Sender)
{
Memo1->CopyToClipboard();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N10Click(TObject *Sender)
{
Memo1->PasteFromClipboard();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N11Click(TObject *Sender)
{
Memo1->CutToClipboard();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N12Click(TObject *Sender)
{
Memo1->SelText="";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N19Click(TObject *Sender)
{
if (FontDialog1->Execute()) Memo1->Font=FontDialog1->Font;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N21Click(TObject *Sender)
{
PrinterSetupDialog1->Execute();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N20Click(TObject *Sender)
{
#include "Unit3.h"
AboutBox->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N14Click(TObject *Sender)
{
FindDialog1->FindText = Memo1->SelText;
FindDialog1->Execute();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N15Click(TObject *Sender)
{
//ReplaceDialog1->Execute();
ReplaceDialog1->FindText = Memo1->SelText;
ReplaceDialog1->Execute();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N22Click(TObject *Sender)
{
Memo1->SelectAll();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N23Click(TObject *Sender)
{
StatusBar1->Visible=!StatusBar1->Visible; //cкрыть строку состояния, а если скрыта то отобразить
N23->Checked=!N23->Checked; //поменять галочку на противоположнее значение }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N24Click(TObject *Sender)
{
if (Memo1->Lines->Count>0)
{
if (MessageBox(0,"Сохранить содержимое окна редактирования? ",
"Подтвердите сохранение",MB_YESNO)==IDYES)
{
N2Click(Sender);
}
};
Memo1->Clear();
StatusBar1->Panels->Items[0]->Text="Без имени";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N17Click(TObject *Sender)
{
Memo1->SelText=Now();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N3Click(TObject *Sender)
Memo1->Undo();
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
void __fastcall TForm1::N27Click(TObject *Sender)
{
if (OpenDialog1->Execute())
Memo2->Lines->LoadFromFile(OpenDialog1->FileName);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N32Click(TObject *Sender)
{
if (OpenDialog1->Execute())
Memo3->Lines->LoadFromFile(OpenDialog1->FileName);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N28Click(TObject *Sender)
{
if (SaveDialog1->Execute())
Memo2->Lines->SaveToFile(SaveDialog1->FileName);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N33Click(TObject *Sender)
{
if (SaveDialog1->Execute())
Memo3->Lines->SaveToFile(SaveDialog1->FileName);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N110Click(TObject *Sender)
{
//Memo2->Lines=Memo1->Lines;
AnsiString str_dva = Memo1->Text;
AnsiString str2 = Memo2->Text;
Memo2->Text=str2+str_dva;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N36Click(TObject *Sender)
{
//Memo2->Lines=Memo3->Lines;
AnsiString str_dva = Memo2->Text;
AnsiString str2 = Memo3->Text;
Memo2->Text=str_dva+str2;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N35Click(TObject *Sender)
{
//Memo3->Lines=Memo1->Lines;
AnsiString str = Memo3->Text;
AnsiString str2 = Memo1->Text;
Memo3->Text=str+str2;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N210Click(TObject *Sender)
{
//Memo3->Lines=Memo2->Lines;
AnsiString str = Memo2->Text;
AnsiString str2 = Memo3->Text;
Memo3->Text=str2+str;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N37Click(TObject *Sender)
{
Memo2->Clear();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N39Click(TObject *Sender)
{
Memo3->Clear();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N211Click(TObject *Sender)
{
AnsiString str = Memo1->Text;
AnsiString str2 = Memo2->Text;
Memo1->Text=str+str2;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N310Click(TObject *Sender)
{
AnsiString str = Memo1->Text;
AnsiString str3 = Memo3->Text;
Memo1->Text=str+str3;
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
void __fastcall TForm1::StatusExecute(TObject *Sender)
{
StatusBar1->Panels->Items[0]->Text =
IntToStr((int)Memo1->CaretPos.y) +
": "+IntToStr((int)Memo1->CaretPos.x);
if (Memo1->Modified)
StatusBar1->Panels->Items[1]->Text = "модиф.";
else StatusBar1->Panels->Items[1]->Text = "";
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
void __fastcall TForm1::Memo1KeyUp(TObject *Sender, WORD &Key,
TShiftState Shift)
{
StatusExecute(Sender);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Memo1MouseUp(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
StatusExecute(Sender);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormResize(TObject *Sender)
{
StatusExecute(Sender);
}
//---------------------------------------------------------------------------
Иллюстрации
Общий вид.
Копирование происходит успешно.