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

TLabel * oTmpLabel = (TLabel *)Sender;

FDragOfs = oTmpLabel->Width / 2;

oTmpLabel->Left = oTmpLabel->Left+X-FDragOfs;

FDragging = True;

}

void __fastcall TForm1::FirstIndMouseUp(TObject *Sender,

TMouseButton Button, TShiftState Shift, int X, int Y)

{

FDragging = False;

RichEdit1->Paragraph->FirstIndent = int((FirstInd->Left+FDragOfs-GutterWid) / RulerAdj);

LeftIndMouseUp(Sender, Button, Shift, X, Y);

}

void __fastcall TForm1::LeftIndMouseUp(TObject *Sender,

TMouseButton Button, TShiftState Shift, int X, int Y)

{

FDragging = False;

RichEdit1->Paragraph->LeftIndent = int((LeftInd->Left+FDragOfs-GutterWid)/

RulerAdj)-RichEdit1->Paragraph->FirstIndent;

RichEdit1SelectionChange(Sender);

}

void __fastcall TForm1::FirstIndMouseMove(TObject *Sender,

TShiftState Shift, int X, int Y)

{

if (FDragging) {

TLabel * oTmpLabel = (TLabel *)Sender;

oTmpLabel->Left = oTmpLabel->Left+X-FDragOfs;

}

}

void __fastcall TForm1::RightIndMouseUp(TObject *Sender,