source: branches/test1/Client/Forms/UFormMenu.pas

unit UFormMenu;

{$mode delphi}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
  StdCtrls, Menus, ActnList, UTreeState;

type

  { TFormMenu }

  TFormMenu = class(TForm)
    AObjectGroupShow: TAction;
    AObjectGroupDelete: TAction;
    AObjectGroupAddGroup: TAction;
    AObjectGroupAddObject: TAction;
    AObjectGroupEdit: TAction;
    AObjectDelete: TAction;
    AObjectEdit: TAction;
    ActionList1: TActionList;
    MenuItem1: TMenuItem;
    MenuItem10: TMenuItem;
    MenuItem5: TMenuItem;
    MenuItem6: TMenuItem;
    MenuItem7: TMenuItem;
    MenuItem8: TMenuItem;
    MenuItem9: TMenuItem;
    PopupMenuObject: TPopupMenu;
    PopupMenuObjectGroup: TPopupMenu;
    TabControl1: TTabControl;
    TreeViewMenu: TTreeView;
    procedure AObjectEditExecute(Sender: TObject);
    procedure AObjectGroupAddGroupExecute(Sender: TObject);
    procedure AObjectGroupDeleteExecute(Sender: TObject);
    procedure AObjectGroupEditExecute(Sender: TObject);
    procedure AObjectGroupShowExecute(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure TreeViewMenuChange(Sender: TObject; Node: TTreeNode);
  private
    TreeState: TTreeState;
  public
    procedure LoadTree;
  end;

var
  FormMenu: TFormMenu;

implementation

{$R *.lfm}

uses
  UFormMain, USystem, UPDClient, UCore;

procedure TFormMenu.TreeViewMenuChange(Sender: TObject; Node: TTreeNode);
begin
  AObjectGroupDelete.Enabled := Assigned(TreeViewMenu.Selected);
  AObjectGroupEdit.Enabled := Assigned(TreeViewMenu.Selected);
  if Assigned(TreeViewMenu.Selected) then begin
    if TreeViewMenu.Selected.ImageIndex = 0 then begin
      TreeViewMenu.PopupMenu := PopupMenuObjectGroup;
      MainForm.PanelData.Visible := False;
    end;
    if TreeViewMenu.Selected.ImageIndex = 1 then begin
      TreeViewMenu.PopupMenu := PopupMenuObject;
      //LoadItemList;
    end;
  end;
end;

procedure TFormMenu.AObjectEditExecute(Sender: TObject);
begin
(*  if Assigned(TreeView1.Selected) then begin
    SelectedObjectId := 9;
    SelectedItem := Integer(TreeView1.Selected.Data);
    ItemEditForm.Show;
  end;*)
end;

procedure TFormMenu.AObjectGroupAddGroupExecute(Sender: TObject);
begin

end;

procedure TFormMenu.AObjectGroupDeleteExecute(Sender: TObject);
begin

end;

procedure TFormMenu.AObjectGroupEditExecute(Sender: TObject);
begin
(*  if Assigned(TreeView1.Selected) then begin
    SelectedObjectId := 8;
    SelectedItem := Integer(TreeView1.Selected.Data);
    ItemEditForm.Show;
  end;*)
end;

procedure TFormMenu.AObjectGroupShowExecute(Sender: TObject);
begin
  if Assigned(TreeViewMenu.Selected) then begin
    MainForm.MainPanelForm.SelectedObject.Load(Integer(TreeViewMenu.Selected.Data));
    MainForm.MainPanelForm.Caption := MainForm.MainPanelForm.SelectedObject.Name;
    MainForm.MainPanelForm.Show;
    MainForm.MainPanelForm.Reload;
    MainForm.UpdateInterface;
  end;
end;

procedure TFormMenu.FormCreate(Sender: TObject);
begin
  TreeState := TTreeState.Create;
end;

procedure TFormMenu.FormDestroy(Sender: TObject);
begin
  FreeAndNil(TreeState);
end;

procedure TFormMenu.LoadTree;
var
  Groups: TListProxy;
  Obj: TObjectProxy;
  Objects: TListProxy;
  Obj2: TObjectProxy;
  I: Integer;
  O: Integer;
  NewNode: TTreeNode;
  NewObjectNode: TTreeNode;
begin
  with TreeViewMenu, Items do begin
    TreeState.SaveTree(TreeViewMenu);
    Clear;
    AddChild(nil, SGroup);
    TopItem.ImageIndex := 0;
    TopItem.SelectedIndex := 0;
    try
      Groups := TListProxy.Create;
      Groups.Client := Core.System.Client;
      Groups.ObjectName := SystemMenuTable;
      Groups.Path := Core.System.Client.Schema;
      Groups.Load;
      for I := 0 to Groups.Objects.Count - 1 do begin
        Obj := TObjectProxy(Groups.Objects[I]);
        NewNode := AddChild(TopItem, Obj.Properties.Values['Name']);
        NewNode.ImageIndex := 0;
        NewNode.SelectedIndex := 0;
        NewNode.Data := Pointer(StrToInt(Obj.Properties.Values['Id']));
        try
          Objects := TListProxy.Create;
          Objects.Client := Core.System.Client;
          Objects.ObjectName := SystemObjectTable;
          Objects.Path := Core.System.Client.Schema;
          Objects.Condition := '`Group`="' + Obj.Properties.Values['Id'] + '"';
          Objects.Load;
          for O := 0 to Objects.Objects.Count - 1 do begin
            Obj2 := TObjectProxy(Objects.Objects[O]);
            NewObjectNode := AddChild(NewNode, Obj2.Properties.Values['Name']);
            NewObjectNode.Data := Pointer(StrToInt(Obj2.Properties.Values['Id']));
            NewObjectNode.ImageIndex := 1;
            NewObjectNode.SelectedIndex := 1;
          end;
        finally
          Objects.Free;
        end;
      end;
      TopItem.Expand(True);
    finally
      Groups.Free;
    end;
    TreeState.LoadTree(TreeViewMenu);
  end;
end;



end.