Classe TModulo

Unit

untKernelModulo

Declaração

type TModulo = class(TComponent)

Descrição

Controle dos módulos do sistema

Hierarquia

TComponent
TModulo

Visão Geral

Campos

	`lstOpcoes: TList;`
	`lstModuloInterno: TList;`
	`TabModulo: TTabSheet;`
	`tabModuloAnterior: TTabSheet;`
	`fmeModulo: TFrame;`
	`pnlFrameModulo: TPanel;`
	`pnlModulo: TPanel;`
	`pnlOutrasOpcoes: TPanel;`
	`imgFundo: TImage;`
	`strNome: string;`
	`strDescricao: string;`
	`mnuMenu: TMenuItem;`

Métodos

	`function ObterOutrasOpcoes: Boolean;`
	`procedure DefinirFrameModulo(const Value: string);`
	`procedure CriarOpcaoMenu(const bolDestaque : boolean; const strDescricao, strDescricaoDetalhada : string; const strEntidade : String = ''; const tab : TTabSheet = nil; const strImagem : string ='');`
	`constructor Create(AOwner: TComponent); override;`
	`destructor Destroy; override;`
	`function CriarMenu(const mnuPai : TMenuItem) : TMenuItem;`
	`procedure Destaque(const strEntidade : String; const strImagem : string = '');`
	`procedure Normal(const strEntidade : String; const strImagem : string = '');`
	`procedure Relatorio(const strEntidade : String; const strImagem : string = '');`
	`function NovoModulo(const strNome, strDescricao : string; const strImagem : string = ''; const bolDestaque : boolean = true) : TModulo;`

Properties

	`property TabSheet : TTabSheet read tabModulo;`
	`property tabSheetAnterior : TTabSheet read tabModuloAnterior write tabModuloAnterior;`
	`property Nome : string read strNome write strNome;`
	`property Descricao : string read strDescricao write strDescricao;`
	`property Opcoes : Boolean read ObterOutrasOpcoes;`
	`property Menu : TMenuItem read mnuMenu write mnuMenu;`
	`property FrameModulo : string write DefinirFrameModulo;`
	`property ListaModulosInterno : TList read lstModuloInterno;`
	`property ListaOpcoes : TList read lstOpcoes;`

Descrição

Campos

	`lstOpcoes: TList;`
Lista de itens do módulo

	`lstModuloInterno: TList;`
Lista de Módulos internos

	`TabModulo: TTabSheet;`
Tab para armazenar as opções do módulo

	`tabModuloAnterior: TTabSheet;`
Módulo Anterior

	`fmeModulo: TFrame;`
Frame para Informações diversas sobre um módulo

	`pnlFrameModulo: TPanel;`
Painel para o Frame

	`pnlModulo: TPanel;`
Painel principal

	`pnlOutrasOpcoes: TPanel;`
Painel OutrasOpções

	`imgFundo: TImage;`
Imagem de Fundo do módulo

	`strNome: string;`
Nome do Modulo

	`strDescricao: string;`
Armazena a descrição do Módulo

	`mnuMenu: TMenuItem;`
Item de Menu Relacionado

Métodos

	`function ObterOutrasOpcoes: Boolean;`
Retorna verdadeiro se outras opcoes estiver visivel

procedure DefinirFrameModulo(const Value: string);

Define o Frame associado ao módulo

Parâmetros

Value: Nome do módulo

procedure CriarOpcaoMenu(const bolDestaque : boolean; const strDescricao, strDescricaoDetalhada : string; const strEntidade : String = ''; const tab : TTabSheet = nil; const strImagem : string ='');

Cria um novo item dentro do módulo

Parâmetros

bolDestaque: se a entidade será posta em destaque
strDescricao: descrição da entidade
strDescricaoDetalhada: Descrição detalhada da entidade
strEntidade: nome da entidade a ser linkada
tab: tabSheet relacionado
strImagem: Nome da imagem a ser carregada dos recursos

	`constructor Create(AOwner: TComponent); override;`
Construtor da classe

	`destructor Destroy; override;`
Destrutor da classe

function CriarMenu(const mnuPai : TMenuItem) : TMenuItem;

Cria o Menu Relacionado ao Modulo

Parâmetros

mnuPai: menu superior onde este será criado

	`procedure Destaque(const strEntidade : String; const strImagem : string = '');`
Cria um novo item em Destaque dentro do módulo

	`procedure Normal(const strEntidade : String; const strImagem : string = '');`
Cria um novo item em Outras Opções dentro do módulo

	`procedure Relatorio(const strEntidade : String; const strImagem : string = '');`
Cria um novo item em Outras Opções dentro do módulo com a Imagem padrao de relatorio

	`function NovoModulo(const strNome, strDescricao : string; const strImagem : string = ''; const bolDestaque : boolean = true) : TModulo;`
Cria um novo módulo interno

Properties

	`property TabSheet : TTabSheet read tabModulo;`
Tab para armazenar as opções do módulo

	`property tabSheetAnterior : TTabSheet read tabModuloAnterior write tabModuloAnterior;`
TabSheet a ser ativada

	`property Nome : string read strNome write strNome;`
Nome do Modulo

	`property Descricao : string read strDescricao write strDescricao;`
Retorna a descrição do módulo

	`property Opcoes : Boolean read ObterOutrasOpcoes;`
Retorna se existem outras opcoes

	`property Menu : TMenuItem read mnuMenu write mnuMenu;`
Menu relacionado ao Módulo

	`property FrameModulo : string write DefinirFrameModulo;`
Frame relacionado ao módulo

	`property ListaModulosInterno : TList read lstModuloInterno;`
Lista referenciando os modulos internos

	`property ListaOpcoes : TList read lstOpcoes;`
Lista referenciando as opções de menu criadas