{$R *.DFM}TForm1.FormCreate(Sender: TObject);.Filter := 'Text Document (*.txt)|*.txt';.InitialDir := GetCurrentDir();.DefaultExt := '.txt';.Filter := 'Text Document (*.txt)|*.txt';.InitialDir := GetCurrentDir();.DefaultExt := '.txt';.ScrollBars := ssVertical;.WordWrap := True;.SelStart := 0;.Checked := True;.Checked := True;.Caption := 'Notepad - '+'Untitled';:= 'Untitled';;TForm1.New1Click(Sender: TObject);.Text := '';:= False;:= 'Untitled';.Caption := 'Notepad - '+'Untitled';;TForm1.Undo1Click(Sender: TObject);(Memo1.Handle,WM_UNDO,0,0);;TForm1.Cut1Click(Sender: TObject);.CutToClipboard;;TForm1.Copy1Click(Sender: TObject);.CopyToClipboard;;TForm1.Paste1Click(Sender: TObject);.PasteFromClipboard;;TForm1.AlignLeft1Click(Sender: TObject);.Alignment := taLeftJustify;.Checked := True;.Checked := False;.Checked := False;;TForm1.AlignRight1Click(Sender: TObject);.Alignment := taRightJustify;.Checked := False;.Checked := True;.Checked := False;;TForm1.AlignCenter1Click(Sender: TObject);.Alignment := taCenter;.Checked := False;.Checked := False;.Checked := True;;TForm1.WordWrap1Click(Sender: TObject);Memo1.WordWrap then.WordWrap := False;.Checked := False;.ScrollBars := ssBoth;.WordWrap := True;.Checked := True;.ScrollBars := ssVertical;;;TForm1.Exit1Click(Sender: TObject);;;TForm1.Edit1Click(Sender: TObject);: String;
{if some text is selected in the memo,the cut and copy commands}Memo1.SelLength > 0 then begin.Enabled := True;.Enabled := True;.Enabled := False;.Enabled := False;;
{if the clipboard contains some text,the Paste command}Clipboard.HasFormat (CF_TEXT) then.Enabled := True.Enabled := False;:= Memo1.Text;Length(Trim(sMemo)) > 0 then begin.Enabled := True;.Enabled := True;.Enabled := False;.Enabled := False;;;TForm1.SelectAll1Click(Sender: TObject);.SelectAll;;TForm1.Clear1Click(Sender: TObject);.Text := '';:= False;;TForm1.Memo1Change(Sender: TObject);:= True;;TForm1.FormResize(Sender: TObject);.Width := Form1.ClientWidth + 1;.Height := Form1.ClientHeight + 1;;TForm1.Open1Click(Sender: TObject);OpenDialog1.Execute Then begin.Caption := 'Notepad - '+OpenDialog1.FileName;.Lines.LoadFromFile(OpenDialog1.Filename);.SelStart := 0;:= OpenDialog1.FileName;;;TForm1.Save1Click(Sender: TObject);modified then;;TForm1.CountChars1Click(Sender: TObject);: String;(Memo1.GetTextLen, text);('Your Document Has ' + text + ' Characters',, [mbOK], 0);;TForm1.Font1Click(Sender: TObject);.Font := Memo1.Font;FontDialog1.Execute then begin.Font := FontDialog1.Font;;;TForm1.Print1Click(Sender: TObject);: String;: TextFile;: Integer;:= Memo1.Text;Length(Trim(sMemo)) = 0 Then('No Text To Print',mtError,[MBOK],0);Length(Trim(sMemo)) <> 0 ThenPrinterSetupDialog1.Execute then begin(filename);(filename);x := 0 to Memo1.Lines.Count - 1 do(filename, Memo1.Lines[x]);(filename);;;TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);modified thenSaveChanges then:= True:= False:= True;;TForm1.SaveChanges: Boolean;: Integer;:= True;:= MessageDlg (filename + ' has changed. Do you want to save the changes?',, mbYesNoCancel, 0);(code = IDYES) then:= Save;(code = IDCANCEL) then:= False;;TForm1.Save: Boolean;filename = '' then:= SaveAs:= False;.Lines.SaveToFile(filename);:= True;;;TForm1.SaveAs: Boolean;.FileName := filename;SaveDialog1.Execute then:= SaveDialog1.FileName;.Lines.SaveToFile(filename);:= False;.Caption := 'Notepad - '+SaveDialog1.filename;:= True;:= False;;TForm1.SaveAs1Click(Sender: TObject);;;TForm1.ReadOnly1Click(Sender: TObject);.ReadOnly := NOT Memo1.ReadOnly;.Checked := NOT ReadOnly1.Checked;TForm1.About1Click(Sender: TObject);(Application.MessageBox(' © Notepad Created By Andrew Carter, Copyright 2001', 'About Notepad?', MB_OK) = IDOK) then;;TForm1.Cut2Click(Sender: TObject);.CutToClipboard;;TForm1.Copy2Click(Sender: TObject);.CopyToClipboard;;TForm1.Paste2Click(Sender: TObject);.PasteFromClipboard;;TForm1.SelectAll2Click(Sender: TObject);.SelectAll;;TForm1.PopupMenu1Popup(Sender: TObject);: String;
{if some text is selected in the memo,the cut and copy commands}Memo1.SelLength > 0 then begin.Enabled := True;.Enabled := True;.Enabled := False;.Enabled := False;;
{if the clipboard contains some text,the Paste command}Clipboard.HasFormat (CF_TEXT) then.Enabled := True.Enabled := False;:= Memo1.Text;Length(Trim(sMemo)) > 0 then begin.Enabled := True;.Enabled := True;.Enabled := False;.Enabled := False;;;