Реферат Розробка програмного забезпечення

: TForm1 (TComponent * Owner)

: TForm (Owner)

{}

//---------------------------------------------------------------------------

/* TODO 2 -oСідоров -cКод: Головне меню */__ fastcall TForm1 :: MOpenClick (TObject * Sender)

{if (OpenDialog1- gt; Execute ())

{FName=OpenDialog1- gt; FileName; - gt; Lines- gt; LoadFromFile (OpenDialog1- gt; FileName); - gt; Modified=false;}}

//---------------------------------------------------------------------------__fastcall TForm1 :: MSaveAsClick (TObject * Sender)

{SaveDialog1- gt; FileName=FName; (SaveDialog1- gt; Execute ())

{FName=OpenDialog1- gt; FileName; - gt; Lines- gt; SaveToFile (SaveDialog1- gt; FileName); - gt; Modified=false; }}

//---------------------------------------------------------------------------__fastcall TForm1 :: MFontClick (TObject * Sender)

{FontDialog1-gt;Font-gt;Assign(RichEdit1-gt;SelAttributes);(FontDialog1-gt;Execute())-gt;SelAttributes-gt;Assign(FontDialog1-gt;Font);}

//---------------------------------------------------------------------------__fastcall TForm1 :: MNumbClick (TObject * Sender)

{MNumb- gt; Checked =! MNumb- gt; Checked; (MNumb- gt; Checked) RichEdit1- gt; Paragraph- gt; Numbering=nsBullet; RichEdit1- gt; Paragraph- gt; Numbering=nsNone;

}

//---------------------------------------------------------------------------__fastcall TForm1 :: MLeftClick (TObject * Sender)

{MLeft- gt; Checked=true; - gt; Paragraph- gt; Alignment=taLeftJustify;}

//---------------------------------------------------------------------------__fastcall TForm1 :: MRightClick (TObject * Sender)

{MRight- gt; Checked=true; - gt; Paragraph- gt; Alignment=taRightJustify;}

//---------------------------------------------------------------------------__fastcall TForm1 :: MCenterClick (TObject * Sender)

{MCenter- gt; Checked=true; - gt; Paragraph- gt; Alignment=taCenter;}

//---------------------------------------------------------------------------__fastcall TForm1 :: FormCreate (TObject * Sender)

{RichEdit1- gt; Paragraph- gt; FirstIndent=0; - gt; Paragraph- gt; LeftIndent=- RichEdit1- gt; Paragraph- gt; FirstIndent; - gt; Modified=false;}

//---------------------------------------------------------------------------__fastcall TForm1 :: DisplayHint (TObject * Sender)

{}

//---------------------------------------------------------------------------__fastcall TForm1 :: StatusExecute (TObject * Sender)

{- gt; Panels- gt; Items [0] - gt; Text=((int) RichEdit1- gt; CaretPos.y + 1) +

laquo ;: raquo;+IntToStr((int)RichEdit1-gt;CaretPos.x+1);(RichEdit1-gt;Modified)-gt;Panels-gt;Items[1]-gt;Text = Laquo; модиф. Raquo ;; StatusBar1- gt; Panels- gt; Items [1] - gt; Text= raquo ;; (RichEdit1- gt; Paragraph- gt; Alignment)

{taLeftJustify: TBLeft- gt; Down=true ;; taCenter: TBCenter- gt; Down=true ;; taRightJustify: TBRight- gt; Down=true ;; }}

//---------------------------------------------------------------------------__fastcall TForm1 :: RichEdit1KeyUp (TObject * Sender, WORD amp; Key, Shift)

{(Sender);

}

//---------------------------------------------------------------------------__fastcall TForm1 :: RichEdit1MouseUp (TObject * Sender, Button, TShiftState Shift, int X, int Y)

{(Sender);

}

//---------------------------------------------------------------------------__fastcall TForm1 :: FormResize (TObject * Sender)

{StatusExecute (Sender);}

//---------------------------------------------------------------------------__fastcall TForm1 :: MSaveClick (TObject * Sender)

{if (FName!= ) - gt; Lines- gt; SaveToFile (FName); MSaveAsClick (Sender);}

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

{RichEdit1- gt; SelAttributes- gt; Assign (FontDialog1- gt; Font);}

//---------------------------------------------------------------------------__fastcall TForm1 :: MFindClick (TObject * Sender)