source: trunk/Forms/UFormMain.pas

unit UFormMain;

{$mode delphi}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, Menus, ComCtrls,
  ActnList, UDevice, fgl;

type

  { TFormMain }

  TFormMain = class(TForm)
    ABridge: TAction;
    ARouterboard: TAction;
    ANewTerminal: TAction;
    AExit: TAction;
    AQueues: TAction;
    ASystem: TAction;
    ARouting: TAction;
    AIpv6: TAction;
    AMpls: TAction;
    AIp: TAction;
    AMesh: TAction;
    APpp: TAction;
    AWireless: TAction;
    AInterfaces: TAction;
    AQuickSet: TAction;
    ActionList1: TActionList;
    MenuItem1: TMenuItem;
    PopupMenuSystem: TPopupMenu;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ToolButton12: TToolButton;
    ToolButton13: TToolButton;
    ToolButton14: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    procedure AExitExecute(Sender: TObject);
    procedure ANewTerminalExecute(Sender: TObject);
    procedure ARouterboardExecute(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    Initialized: Boolean;
  public
    Device: TDevice;
    ChildWindows: TFPGObjectList<TForm>;
  end;

var
  FormMain: TFormMain;


implementation

{$R *.lfm}

uses
  UFormLogin, UFormTerminal, UFormRouterboard, URouterOS, ULinux;

{ TFormMain }

procedure TFormMain.AExitExecute(Sender: TObject);
begin
  Close;
end;

procedure TFormMain.ANewTerminalExecute(Sender: TObject);
begin
  FormTerminal := TFormTerminal.Create(nil);
  FormTerminal.Terminal.Device := Device;
  FormTerminal.Show;
  FormTerminal.BringToFront;
  ChildWindows.Add(FormTerminal);
end;

procedure TFormMain.ARouterboardExecute(Sender: TObject);
begin
  FormRouterboard := TFormRouterboard.Create(nil);
  FormRouterboard.Show;
  ChildWindows.Add(FormTerminal);
end;

procedure TFormMain.FormActivate(Sender: TObject);
begin
  if not Initialized then begin
    Initialized := True;
    ANewTerminal.Execute;
  end;
end;

procedure TFormMain.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
  FormLogin.Show;
  FormLogin.BringToFront;
end;

procedure TFormMain.FormCreate(Sender: TObject);
begin
  ChildWindows := TFPGObjectList<TForm>.Create;
  Device := TRouterOS.Create;
  //Device := TLinux.Create;
end;

procedure TFormMain.FormDestroy(Sender: TObject);
begin
  FreeAndNil(ChildWindows);
  FreeAndNil(Device);
end;

procedure TFormMain.FormShow(Sender: TObject);
begin
end;

end.