Курсовая работа: Алгоритм, написание и отладка программы "Текстовый редактор"
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)