Алгоритм, написание и отладка программы "Текстовый редактор"
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
//---------------------------------------------------------------------------
void __fastcall TForm1::N23Click(TObject *Sender)
{
Panel2->Visible=! Panel2->Visible;
N23->Checked=! N23->Checked;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::SpeedButton16Click(TObject *Sender)
{
if(ColorDialog1->Execute())
{RichEdit1->Color=ColorDialog1->Color;}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::SpeedButton17Click(TObject *Sender)
{
RichEdit1->Paragraph->Alignment=taLeftJustify;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::SpeedButton18Click(TObject *Sender)
{
RichEdit1->Paragraph->Alignment=taCenter;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::SpeedButton19Click(TObject *Sender)
{
if(SpeedButton11->Down==true)
{
RichEdit1->Paragraph->Numbering=nsBullet;
}
else
{
RichEdit1->Paragraph->Numbering=nsNone;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::SpeedButton15Click(TObject *Sender)
{
RichEdit1->Paragraph->Alignment=taRightJustify;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::CSpinEdit1KeyPress(TObject *Sender, char &Key)
{
if((Key!=VK_BACK)&&(Key!=9)&&(Key!=8)&&(Key!=7)&&(Key!=6))
{
Set Dig;
Dig << 0<< 1<< 2 << 3<< 4 << 5<< 6 << 7 << 8 << 9 ;
if ( ! Dig.Contains(Key)) { Key = 0; Beep () ;}
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormShow(TObject *Sender)
{
int i;
for (i=0; iCount; i++)
{
ComboBox1->Items->Add (Screen->Fonts->Strings[i] ) ;
}
CSpinEdit1->Value=RichEdit1->SelAttributes->Size;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RichEdit1MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
if(RichEdit1->Paragraph->Numbering==nsNone)
{SpeedButton19->Down=false;}
if(RichEdit1->Paragraph->Numbering==nsBullet)
{SpeedButton19->Down=true;}
switch (RichEdit1->Paragraph->Alignment)
{case taLeftJustify: SpeedButton17->Down=true; break;
case taCenter: SpeedButton18->Down=true; break;
case taRightJustify: SpeedButton15->Down=true; break;}
if(RichEdit1->SelAttributes->Style==RichEdit1->SelAttributes->Style<<fsBold)
{SpeedButton13->Down=true;}
else{SpeedButton13->Down=false;}
if(RichEdit1->SelAttributes->Style==RichEdit1->SelAttributes->Style<<fsUnderline)
{SpeedButton11->Down=true;}
else{SpeedButton11->Down=false;}
if(RichEdit1->SelAttributes->Style==RichEdit1->SelAttributes->Style<<fsItalic)
{SpeedButton12->Down=true;}
else{SpeedButton12->Down=false;}
CSpinEdit1->Value=RichEdit1->SelAttributes->Size;
ComboBox1->ItemIndex = ComboBox1->Items->IndexOf(RichEdit1->SelAttributes->Name) ;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RichEdit1KeyUp(TObject *Sender, WORD &Key,
TShiftState Shift)
{
if(RichEdit1->Paragraph->Numbering==nsNone)
{SpeedButton19->Down=false;}
if(RichEdit1->Paragraph->Numbering==nsBullet)
{SpeedButton19->Down=true;}
switch (RichEdit1->Paragraph->Alignment)
{case taLeftJustify: SpeedButton17->Down=true; break;
case taCenter: SpeedButton18->Down=true; break;
case taRightJustify: SpeedButton15->Down=true; break;}
if(RichEdit1->SelAttributes->Style==RichEdit1->SelAttributes->Style<<fsBold)
{SpeedButton13->Down=true;}
else{SpeedButton13->Down=false;}
if(RichEdit1->SelAttributes->Style==RichEdit1->SelAttributes->Style<<fsUnderline)
{SpeedButton11->Down=true;}
else{SpeedButton11->Down=false;}
if(RichEdit1->SelAttributes->Style==RichEdit1->SelAttributes->Style<<fsItalic)
{SpeedButton12->Down=true;}
else{SpeedButton12->Down=false;}
CSpinEdit1->Value=RichEdit1->SelAttributes->Size;
ComboBox1->ItemIndex = ComboBox1->Items->IndexOf(RichEdit1->SelAttributes->Name) ;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
RichEdit1->Clear();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
Action=caFree;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{
if(RichEdit1->Modified)
{
int res=Application->MessageBox("Текст документа не сохранен. \n\n" "Сохранить документ в файле\n\n" "(Отмена - продолжение работы)", "Подтвердите завершение работы", MB_YESNOCANCEL+MB_ICONQUESTION);
switch(res)
{
case IDYES: N5Click(Sender); break;
case IDCANCEL: CanClose=false;
}
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N26Click(TObject *Sender)
{
Application->CreateForm(__classid(TForm2), &Form2);
Form2->Memo1->Lines->LoadFromFile("hlp");
Form2->ShowModal();
Form2->Free();
}