unit maingUnit1;

interface

uses
     Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
     Dialogs, Menus, AdvToolBar, AdvToolBarStylers, AdvOfficeStatusBar,
     AdvOfficeStatusBarStylers, RzTabs, SynEdit, SynEditHighlighter,
     SynHighlighterGeneral;

type
     TForm1 = class(TForm)
       MainMenu1: TMainMenu;
       N1: TMenuItem;
       N2: TMenuItem;
       N3: TMenuItem;
       N4: TMenuItem;
       N5: TMenuItem;
       N6: TMenuItem;
       N7: TMenuItem;
       N8: TMenuItem;
       N9: TMenuItem;
       N10: TMenuItem;
       N12: TMenuItem;
       N13: TMenuItem;
       N11: TMenuItem;
       N14: TMenuItem;
       N15: TMenuItem;
       EXE1: TMenuItem;
       N16: TMenuItem;
       N17: TMenuItem;
       N18: TMenuItem;
       N19: TMenuItem;
       N20: TMenuItem;
       N21: TMenuItem;
       N22: TMenuItem;
       N23: TMenuItem;
       N24: TMenuItem;
       N25: TMenuItem;
       N26: TMenuItem;
       N27: TMenuItem;
       AdvDockPanel1: TAdvDockPanel;
       AdvToolBarOfficeStyler1: TAdvToolBarOfficeStyler;
       AdvToolBar1: TAdvToolBar;
       AdvOfficeStatusBar1: TAdvOfficeStatusBar;
       AdvOfficeStatusBarOfficeStyler1: TAdvOfficeStatusBarOfficeStyler;
       PageControl1: TRzPageControl;
       TabSheet1: TRzTabSheet;
       SynEdit1: TSynEdit;
       SynGeneralSyn1: TSynGeneralSyn;
       OpenDialog1: TOpenDialog;
       procedure N2Click(Sender: TObject);
       procedure N3Click(Sender: TObject);
     private
       fMemo : TSynEdit;
       fMemos : TObjectTypeList;
       procedure CreateNewEditor;
       procedure OpenFile;
       { Private declarations }
     public
       { Public declarations }
     end;

var
     Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.CreateNewEditor;  //Процедура создания PageControl и SynEdit
var
     Page: TRzTabSheet;
     E: TSynEdit;
begin
Page := TRzTabSheet.Create(Page);
Page.PageControl:=PageControl1;
E:=TSynEdit.Create(Page);
with E do begin
     Parent := Page;
     Align:=alClient;
     Gutter.ShowLineNumbers:=True;
     Gutter.Font.Size:=10;
end;
PageControl1.ActivePage:=Page;
Page.Caption:='Файл.lua';
end;

procedure TForm1.OpenFile; //Процедура открытия файла
var
     Page : TRzTabSheet;
     E : TSynEdit;
begin
if OpenDialog1.Execute then
begin
Page := TRzTabSheet.Create(self);
Page.Caption:=ExtractFileName(OpenDialog1.FileName);
Page.PageControl:=PageControl1;
E := TSynEdit.Create(self);
e.Parent:=Page;
E.Align:=alClient;
E.Lines.LoadFromFile(OpenDialog1.FileName);
PageControl1.ActivePage:=Page;
end;

end;

procedure TForm1.N2Click(Sender: TObject);  //Пункт меню Создать
begin
CreateNewEditor;
end;

procedure TForm1.N3Click(Sender: TObject); //Пункт меню Открыть
begin
OpenFile;
end;

end.