Главная » Delphi, Исходники, Разное » Простейший текстовый редактор
Янв
16

Простейший текстовый редактор

Задание: создать главное и контекстное меню текстового редактора, ну и осуществить качественную работу программы.
Внешний вид программы:

Простейший текстовый редактор

Простейший текстовый редактор


Исходник:

[sourcecode language=»delphi»]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls, Buttons, ComCtrls, XPMan, ImgList, ToolWin;
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
RichEdit1: TRichEdit;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
FontDialog1: TFontDialog;
ToolBar1: TToolBar;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
ImageList1: TImageList;
ToolBar2: TToolBar;
ToolButton6: TToolButton;
ToolButton9: TToolButton;
ToolButton10: TToolButton;
ToolButton11: TToolButton;
ToolButton12: TToolButton;
PrintDialog1: TPrintDialog;
XPManifest1: TXPManifest;
FindDialog1: TFindDialog;
ReplaceDialog1: TReplaceDialog;





N4: TMenuItem;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure ToolButton11Click(Sender: TObject);
procedure ToolButton10Click(Sender: TObject);
procedure ToolButton12Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure ToolButton6Click(Sender: TObject);
procedure ToolButton9Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2;
{$R *.dfm}
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName);
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
if SaveDialog1.Execute then
RichEdit1.Lines.SaveToFile(SaveDialog1.FileName);
end;
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
if FontDialog1.Execute then
RichEdit1.Font.Assign(FontDialog1.Font);
end;

procedure TForm1.ToolButton11Click(Sender: TObject);
begin
RichEdit1.CopyToClipboard;
end;
procedure TForm1.ToolButton10Click(Sender: TObject);
begin
RichEdit1.CutToClipboard;
end;
procedure TForm1.ToolButton12Click(Sender: TObject);
begin
RichEdit1.PasteFromClipboard;
end;
procedure TForm1.N4Click(Sender: TObject);
begin
AboutBox.ShowModal;
end;
procedure TForm1.ToolButton6Click(Sender: TObject);
begin
ShowMessage(‘Вы создали новый файл!’ + #13 + ‘Начните писать с новой строки’);
end;
procedure TForm1.ToolButton9Click(Sender: TObject);
begin
if PrintDialog1.Execute then
RichEdit1.Print(PrintDialog1.Name);
end;
end.
[/sourcecode]

При нажатии в главном меню пункт «Справка» подменю «О программе» получим такое окно. Код не вижу смысла показывать, все делается с помощью формы.
Простейший текстовый редактор
Скачать исходник: [download id=»18″]



Понравилась статья? Сделай приятно ее автору, поделись с друзьями:


Хотите получать обновления данного блога на EMail?

Введите адрес Почтового Ящика:




Подтвердите подписку в письме пришедшем на Почту, после чего начнете получить рассылку.