Читать реферат по информатике, вычислительной технике, телекоммуникациям: "Разработка текстового редактора" Страница 6

(Назад) (Cкачать работу)

if (CurrText()->Style==CurrText()->Style >> fsBold)

ToolButton15->Down=false;

else ToolButton15->Down=true;

if (CurrText()->Style==CurrText()->Style >> fsUnderline)

ToolButton3->Down=false;

else ToolButton3->Down=true;

Edit2->Text = itoa(RichEdit1->SelAttributes->Size, sizebuf, 10);

if (RichEdit1->Paragraph->Alignment == taLeftJustify)

LeftAlign->Down=true;

else LeftAlign->Down=false;

if (RichEdit1->Paragraph->Alignment == taCenter)

CenterAlign->Down=true;

else CenterAlign->Down=false;

if (RichEdit1->Paragraph->Alignment == taRightJustify)

RightAlign->Down=true;

else RightAlign->Down=false;

if(RichEdit1->Paragraph->Numbering == TNumberingStyle(nsBullet))

ToolButton14->Down=true;

else ToolButton14->Down=false;

}

catch (...) {

FUpdating = False;

}

FUpdating = False;

}

TTextAttributes *__fastcall TForm1::CurrText(void)

{

return RichEdit1->SelAttributes;

}

void __fastcall TForm1::FileNew1Execute(TObject *Sender)

{

FFileName = LoadStr(sUntitled);

RichEdit1->Lines->Clear();

RichEdit1->Modified = false;

}

void __fastcall TForm1::FileOpen1Execute(TObject *Sender)

{

if (OpenDialog->Execute())

{

RichEdit1->Lines->LoadFromFile(OpenDialog->FileName);

FFileName = OpenDialog->FileName;

RichEdit1->SetFocus();

RichEdit1->Modified = false;

RichEdit1->ReadOnly = OpenDialog->Options.Contains(ofReadOnly);

Form1->Caption = OpenDialog->FileName;

}

}

void __fastcall TForm1::FileSave1Execute(TObject *Sender)

{

if (FFileName == LoadStr(sUntitled))

{

FileSaveAs1Execute(Sender);

Form1->Caption = SaveDialog->FileName; }

else

{

RichEdit1->Lines->SaveToFile(FFileName);

RichEdit1->Modified = false;}

}

void __fastcall TForm1::FileSaveAs1Execute(TObject *Sender)

{

String str;

TVarRec vrs[1];

if (SaveDialog->Execute())

{

if (FileExists(SaveDialog->FileName))

{

str = FmtLoadStr(sOverwrite, OPENARRAY(TVarRec, (SaveDialog->FileName)));

if (MessageDlg(str, mtConfirmation, TMsgDlgButtons() FileName;

RichEdit1->Modified = false;

}

}

void __fastcall TForm1::CheckFileSave(void)

{

if ( RichEdit1->Modified ) {

switch(MessageBox(Handle, "Save Changes?",

"Confirmation",MB_YESNOCANCEL | MB_ICONQUESTION))

{ case ID_YES: FileSave1Execute(this);

case ID_CANCEL : Abort();

}

}

}

void __fastcall TForm1::FileExit1Execute(TObject *Sender)

{

Close();

}

void __fastcall TForm1::HelpAbout1Execute(TObject *Sender)

{

AboutBox->ShowModal();

}

void __fastcall TForm1::UndoClick(TObject *Sender)

{

if ( RichEdit1->HandleAllocated() )

SendMessage(RichEdit1->Handle, EM_UNDO, 0, 0);

}

void __fastcall TForm1::PrintClick(TObject *Sender)

{

if (PrintDialog1->Execute()) RichEdit1->Print(OpenDialog->FileName);

}

void __fastcall TForm1::Print_SetupClick(TObject *Sender)

{

PrinterSetupDialog1->Execute();

}

void __fastcall TForm1::FindClick(TObject *Sender)

{

FindDialog1->FindText = RichEdit1->SelText;

FindDialog1->Execute();

}

void __fastcall TForm1::FindDialog1Find(TObject *Sender)

{

int FoundAt, StartPos, ToEnd;

if (RichEdit1->SelLength)

StartPos = RichEdit1->SelStart + RichEdit1->SelLength;

else

StartPos = 0;

ToEnd = RichEdit1->Text.Length() - StartPos;

FoundAt = RichEdit1->FindText(FindDialog1->FindText, StartPos, ToEnd, TSearchTypes()SetFocus();

RichEdit1->SelStart = FoundAt;

RichEdit1->SelLength = FindDialog1->FindText.Length();

}

}

void __fastcall TForm1::ReplaceDialog1Replace(TObject *Sender)

{

if (RichEdit1->SelLength == 0)

FindDialog1Find(Sender);

else

{

RichEdit1->SelText = ReplaceDialog1->ReplaceText;

FindDialog1Find(Sender);

}

if (ReplaceDialog1->Options.Contains(frReplaceAll))

while (RichEdit1->SelLength !=0)

ReplaceDialog1Replace(Sender);

}

void __fastcall TForm1::ReplaceClick(TObject *Sender)

{

ReplaceDialog1->Execute();

}

void __fastcall TForm1::N5Click(TObject *Sender)

{

FontDialog1->Options Execute();

}

void __fastcall TForm1::FontDialog1Apply(TObject *Sender, HWND Wnd)

{

if (ActiveControl->ClassNameIs("TEdit"))

((TEdit *)ActiveControl)->Font->Assign(FontDialog1->Font);

else if (ActiveControl->ClassNameIs("TRichEdit"))

((TRichEdit *)ActiveControl)->SelAttributes->Assign(FontDialog1->Font);

else

MessageBeep(0);

}

void __fastcall TForm1::prClick(TObject *Sender)

{

ToolButton8->Visible=false;

}

void __fastcall TForm1::rp1Click(TObject *Sender)

{

ToolButton8->Visible=true;

}

void __fastcall TForm1::CenterAlignClick(TObject *Sender)

{

RichEdit1->Paragraph->Alignment = taCenter;

}

void __fastcall TForm1::LeftAlignClick(TObject *Sender)

{

RichEdit1->Paragraph->Alignment = taLeftJustify;

}

void __fastcall TForm1::RightAlignClick(TObject *Sender)

{

RichEdit1->Paragraph->Alignment = taRightJustify;

}

Похожие работы