h1

Текстовый редактор MyEdit

Август 18, 2009

Многооконный текстовый редактор с функцией выбора расположения окон.

unit Main;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ToolWin, ComCtrls, ExtCtrls, ImgList, Menus, ActnList, StdActns;

type
TfMain = class(TForm)
ControlBar1: TControlBar;
ToolBar1: TToolBar;
MainMenu1: TMainMenu;
PopupMenu1: TPopupMenu;
ImageList1: TImageList;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
ActionList1: TActionList;
FileNew: TAction;
ToolButton1: TToolButton;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
FileOpen: TAction;
ToolButton2: TToolButton;
N4: TMenuItem;
N5: TMenuItem;
FileSave: TAction;
ToolButton3: TToolButton;
N6: TMenuItem;
N7: TMenuItem;
FileExit: TAction;
ToolButton4: TToolButton;
N8: TMenuItem;
N9: TMenuItem;
WindowClose1: TWindowClose;
WindowCascade1: TWindowCascade;
WindowTileHorizontal1: TWindowTileHorizontal;
WindowTileVertical1: TWindowTileVertical;
WindowMinimizeAll1: TWindowMinimizeAll;
WindowArrange1: TWindowArrange;
ToolButton5: TToolButton;
ToolButton6: TToolButton;
ToolButton7: TToolButton;
ToolButton8: TToolButton;
ToolButton9: TToolButton;
ToolButton10: TToolButton;
ToolButton11: TToolButton;
ToolButton12: TToolButton;
procedure FileNewExecute(Sender: TObject);
procedure FileOpenExecute(Sender: TObject);
procedure FileSaveExecute(Sender: TObject);
procedure FileExitExecute(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
fMain: TfMain;

implementation

uses Unit1;

{$R *.dfm}

procedure TfMain.FileNewExecute(Sender: TObject);
begin
fEditor := TfEditor.Create(Owner); //создаем новое окно
end;

procedure TfMain.FileOpenExecute(Sender: TObject);
begin
if OpenDialog1.Execute then begin
fEditor := TfEditor.Create(Owner);
fEditor.Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
fEditor.Caption := OpenDialog1.FileName;
end; //if
end;

procedure TfMain.FileSaveExecute(Sender: TObject);
begin
//если активного окна нет — выходим:
if ActiveMDIChild = nil then exit;
//если в строке окна есть имя файла, сохраняем в него:
if Length(ActiveMDIChild.Caption)> 0 then
fEditor.Memo1.Lines.SaveToFile(fEditor.Caption)
//иначе спрашиваем, куда сохранять, и сохраняем:
else if SaveDialog1.Execute then begin
fEditor.Memo1.Lines.SaveToFile(SaveDialog1.FileName);
fEditor.Caption := SaveDialog1.FileName;
end; //else if
end;

procedure TfMain.FileExitExecute(Sender: TObject);
begin
Close;
end;

end.

Ссылка на программу и файлы проекта

Advertisements

Добавить комментарий

Заполните поля или щелкните по значку, чтобы оставить свой комментарий:

Логотип WordPress.com

Для комментария используется ваша учётная запись WordPress.com. Выход / Изменить )

Фотография Twitter

Для комментария используется ваша учётная запись Twitter. Выход / Изменить )

Фотография Facebook

Для комментария используется ваша учётная запись Facebook. Выход / Изменить )

Google+ photo

Для комментария используется ваша учётная запись Google+. Выход / Изменить )

Connecting to %s

%d такие блоггеры, как: