Реферат: Разработка текстового редактора

{

FDragging = False;

RichEdit1->Paragraph->RightIndent =

int((Ruler->ClientWidth-RightInd->Left+FDragOfs-2) /

RulerAdj)-2*GutterWid;

RichEdit1SelectionChange(Sender);

}

void __fastcall TForm1::RulerResize(TObject *Sender)

{

RulerLine->Width = (int)Ruler->ClientWidth - (RulerLine->Left*2);

}

void __fastcall TForm1::FormPaint(TObject *Sender)

{

TRect Rct = Rect(GutterWid, 0, RichEdit1->ClientWidth-GutterWid,

ClientHeight);

SendMessage(RichEdit1->Handle, EM_SETRECT, 0, long(&Rct));;

}

void __fastcall TForm1::FormResize(TObject *Sender)

{

RichEdit1SelectionChange(Sender);

}

void __fastcall TForm1::FormActivate(TObject *Sender)

{

FileNew1Execute(Sender);

RichEdit1->SetFocus();

}

void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)

{

try{