"> interface, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Spin, StdCtrls, ComCtrls, ToolWin, Menus, ExtCtrls, XPMan,;=class (TForm): TMainMenu;: TMenuItem ;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TPanel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TStatusBar;: TToolBar;: TToolButton;: TToolButton;: TToolButton;: TToolButton;: TToolButton;: TToolButton;: TComboBox;: TToolButton;: TToolButton;: TToolButton;: TRichEdit;: TToolButton;: TOpenDialog;: TSaveDialog;: TMenuItem;: TFindDialog;: TReplaceDialog; : TFontDialog;: TComboBox;: TColorDialog;: TImageList;: TToolButton; N3Click (Sender: TObject); N5Click (Sender: TObject); N4Click (Sender: TObject); N2Click (Sender: TObject); N6Click (Sender: TObject); N10Click (Sender: TObject); N9Click (Sender: TObject); N11Click (Sender: TObject); N8Click (Sender: TObject); N12Click (Sender: TObject); N13Click (Sender: TObject); dlgFind1Find (Sender: TObject); N14Click (Sender: TObject); dlgReplace1Replace (Sender: TObject); N16Click (Sender: TObject); N19Click (Sender: TObject); cbb2Click (Sender: TObject); cbb1Click (Sender: TObject); N20Click (Sender: TObject); N23Click ( Sender: TObject); btn3Click (Sender: TObject); btn1Click (Sender: TObject); btn4Click (Sender: TObject); btn5Click (Sender: TObject); btn2Click (Sender: TObject); btn7Click (Sender: TObject); btn9Click (Sender : TObject);
{Private declarations}
{Public declarations};: TForm1; Unit2;
{$ R *. dfm} TForm1. N3Click (Sender: TObject); dlgOpen1. Execute. Lines. LoadFromFile (dlgOpen1. FileName);. Panels [0]. Text:=dlgOpen1. FileName;; TForm1. N5Click (Sender: TObject); dlgSave1. Execute. Lines. SaveToFile (dlgSave1. FileName);. Panels [0]. Text:=dlgSave1. FileName;; TForm1. N4Click (Sender: TObject);. Lines. SaveToFile (Form1. Text + «. Rtf");; TForm1. N2Click (Sender: TObject);. Text:=«Безіменний»;. Lines. Clear;. Panels [0]. Text:=«»;; TForm1. N6Click (Sender: TObject);;; TForm1. N10Click (Sender: TObject);. CopyToClipboard;; TForm1. N9Click (Sender: TObject);. CutToClipboard;; TForm1. N11Click (Sender: TObject);. PasteFromClipboard;; TForm1. N8Click (Sender: TObject);. Undo;; TForm1. N12Click (Sender: TObject);. ClearSelection;; TForm1. N13Click (Sender: TObject);. Execute;; TForm1. dlgFind1Find (Sender: TObject); Pos (dlgFind1. FindText, redt1. Text) <> 0 then. HideSelection:=false;. SelStart:=Pos (dlgFind1. FindText, redt1. Text) - 1;. SelLength:=Length (dlgFind1. FindText);;; TForm1. N14Click (Sender: TObject);. Execute;; TForm1. dlgReplace1Replace (Sender: TObject);. HideSelection:=True; Pos (dlgReplace1. FindText, redt1. Text) <> 0 then. SelStart:=Pos (dlgReplace1. FindText, redt1. Text);. SelLength:=Length (dlgReplace1. FindText);. SelText:=dlgReplace1. ReplaceText;;. HideSelection:=false;; TForm1. N16Click (Sender: TObject);. Font. Name:=«Arial»;. Font. Size:=10;. Font. Color:=clBlack;. Color:=clWhite;; TForm1. N19Click (Sender: TObject); dlgFont1. Execute then. Font:=dlgFont1. Font;; TForm1. cbb2Click (Sender: TObject); cbb2. ItemIndex=0 then redt1. Font. Name:=«Arial»; cbb2. ItemIndex=1 then redt1. Font. Name:=«Comic Sans MS"; cbb2. ItemIndex=2 then redt1. Font. Name:=«MS Sans Serif»; cbb2. ItemIndex=3 then redt1. Font. Name:=«Txt»; cbb2. ItemIndex=4 then redt1. Font. Name:=«System»;; TF...
