lazarus/examples/dockmanager/easyedit/editmain.pas

unit EditMain;
(* Multi-window editor example by DoDi <DrDiettrich1@aol.com>.

This example application only demonstrates the implementation and use of
multiple editor windows. It does not demonstrate any editing capabilities.

1. Open files from the menu.
2. Drag file tabs to dock edit pages somewhere else.

Please note that you can dock notebooks into notebooks, so that you can e.g.
have all unit files in a top level notebook, and included files in next level
notebooks.

This is the first working version of dockable SynEdit components.

ToDo:
- maintain a list of open editor windows
- open files in the (last) active editor window

*)

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  Menus, fEditForm, fEditBook;

type
  TEasyEdit = TEditPage;

  TMainForm = class(TForm)
    MainMenu1: TMainMenu;
    MenuItem1: TMenuItem;
    mnClose: TMenuItem;
    mnOpen: TMenuItem;
    mnuFile: TMenuItem;
    OpenDialog1: TOpenDialog;
    procedure FormCreate(Sender: TObject);
    procedure mnCloseClick(Sender: TObject);
    procedure mnOpenClick(Sender: TObject);
  private
    //MyEdit: TEasyPages;
{
    Editors: TList;
    CurForm: TEasyDockBook;
    CurEdit: TEasyEdit;
}
  public
    function OpenFile(const AName: string): TEditPage;
  end; 

var
  MainForm: TMainForm;

implementation

{ TMainForm }

procedure TMainForm.FormCreate(Sender: TObject);
begin
{
  MyEdit := TEasyPages.Create(self);
  MyEdit.Align := alClient;
  MyEdit.Parent := self;
}
end;

procedure TMainForm.mnCloseClick(Sender: TObject);
begin
  Close;
end;

procedure TMainForm.mnOpenClick(Sender: TObject);
begin
  if OpenDialog1.Execute then begin
    OpenFile(OpenDialog1.FileName);
  end;
end;

function TMainForm.OpenFile(const AName: string): TEditPage;
begin
  Result := TEasyEdit.Create(self);
  Result.LoadFile(AName); //prepare docked name
  Result.ManualDock(MRUEdit);
//make it visible
  //Result.Show;
end;

initialization
  {$I editmain.lrs}

end.