Classe TControleInicial

Unit

untKernelModulo

Declaração

type TControleInicial = class(TComponent)

Descrição

Cria os controles iniciais da tela principal

Hierarquia

TComponent
TControleInicial

Visão Geral

Campos

	`tmrTempo: TTimer;`
	`pnlTopo: TPanel;`
	`pnlBoasVindas: TPanel;`
	`pnlModulo: TPanel;`
	`pnlCaminho: TPanel;`
	`pnlOutrasOpcoesTitulo: TPanel;`
	`pagModulo: TPageControl;`
	`lblData: TLabel;`
	`lblSair: TLabel;`
	`lblBoasVindas: TLabel;`
	`lblPosicaoAtual: TLabel;`
	`lblOutrasOpcoes: TLabel;`
	`imgSair: TImage;`
	`imgOutrasOpcoes: TImage;`
	`imgLogoSistema: TImage;`
	`imgModulo: TImage;`
	`objModuloInicial: TModulo;`
	`lstLabelLink: TList;`

Métodos

	`procedure Timer(Sender: TObject);`
	`procedure FecharSistema(Sender: TObject);`
	`procedure AposCriar;`
	`procedure CriarModuloInicial;`
	`function ObterModuloAtual : TModulo;`
	`procedure CriarLinks(const objModulo : TModulo);`
	`procedure AtualizarLinks;`
	`procedure RecriarLinks;`
	`procedure ClickLink(Sender : TObject);`
	`procedure AtualizarOutrasOpcoes;`
	`procedure LabelMouseEnter(Sender: TObject);`
	`procedure LabelMouseLeave(Sender: TObject);`
	`constructor Create(AOwner: TComponent); override;`
	`destructor Destroy; override;`
	`procedure AoTrocarTabSheet;`
	`procedure AtualizarPaginaInicial;`

Properties

	`property PageControl : TPageControl read pagModulo;`
	`property ModuloInicial : TModulo read objModuloInicial;`
	`property ModuloAtual : TModulo read ObterModuloAtual;`

Descrição

Campos

	`tmrTempo: TTimer;`
Temporizador

	`pnlTopo: TPanel;`
Painel do Topo

	`pnlBoasVindas: TPanel;`
Painel de Boas Vindas

	`pnlModulo: TPanel;`
Painel para armazenar os modulos do sistema

	`pnlCaminho: TPanel;`
Painel para exibir o caminho que o usuário usou para chegar no módulo atual

	`pnlOutrasOpcoesTitulo: TPanel;`
Painel do Título de Outras Opções

	`pagModulo: TPageControl;`
Page Control dos Modulos do Sistema

	`lblData: TLabel;`
Exibe a data do sistema

	`lblSair: TLabel;`
Botão de saída do sistema

	`lblBoasVindas: TLabel;`
Label de Boas vindas do sistema

	`lblPosicaoAtual: TLabel;`
Label de informação de posiçào do usuário

	`lblOutrasOpcoes: TLabel;`
Label de Outras Opções

	`imgSair: TImage;`
Imagem de saída

	`imgOutrasOpcoes: TImage;`
Imagem de Outras Opções

	`imgLogoSistema: TImage;`
Imagem do Logo do sistema

	`imgModulo: TImage;`
Imagem de Módulo

	`objModuloInicial: TModulo;`
Controle do modulo inicial

	`lstLabelLink: TList;`
Listas dos labels utilizados como links

Métodos

	`procedure Timer(Sender: TObject);`
Evento OnTimer do temporizador

	`procedure FecharSistema(Sender: TObject);`
Evento Sair

	`procedure AposCriar;`
Apos Criar a Classe

	`procedure CriarModuloInicial;`
Cria o modulo inicial

	`function ObterModuloAtual : TModulo;`
Retorna o Modulo Atual a partir do PageControl

	`procedure CriarLinks(const objModulo : TModulo);`
Cria os Links em forma de um menu de forma que o usuário possa navegar voltando a um ponto no "histórico"

	`procedure AtualizarLinks;`
Atualiza os Links(Posicao, etc)

	`procedure RecriarLinks;`
Destroi toda a lista de links e recria novamente

	`procedure ClickLink(Sender : TObject);`
Define o Clique de um link, direcionando o usuário para o módulo relacionado

	`procedure AtualizarOutrasOpcoes;`
Atualiza a visibilidade de outras opções na tela inicial

	`procedure LabelMouseEnter(Sender: TObject);`
Ao Entrar em um Label

	`procedure LabelMouseLeave(Sender: TObject);`
Ao Sair de um Label

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

	`destructor Destroy; override;`
Destrutor da Classe

	`procedure AoTrocarTabSheet;`
Ao trocar de TabSheet

	`procedure AtualizarPaginaInicial;`
Define a página inicial

Properties

	`property PageControl : TPageControl read pagModulo;`
Page Control de controle dos módulos

	`property ModuloInicial : TModulo read objModuloInicial;`
Obtem o modulo inicial

	`property ModuloAtual : TModulo read ObterModuloAtual;`
Retorna o mótulo atual