Classe TfrmKernelFormulario

Unit

untKernelFormulario

Declaração

type TfrmKernelFormulario = class(TForm)

Descrição

Declaração de Classe de Formulário

Hierarquia

TForm
TfrmKernelFormulario

Visão Geral

Campos

	`pnlCabecalho: TPanel;`
	`imgLogo: TImage;`
	`imgPrincipalDesabilitado: TImageList;`
	`imgPrincipal: TImageList;`
	`lblArea: TLabel;`
	`imgTipoArea: TImage;`
	`lblSubarea: TLabel;`
	`imgSeta: TImage;`
	`barStatus: TStatusBar;`
	`pntGradiente: TPaintBox;`
	`barFerramentas: TToolBar;`
	`objEntidade: TdtmKernelComum;`
	`strDescricaoPermissao: String;`
	`XPMenu: TXPMenu;`
	`bolPodeSair: boolean;`

Métodos

	`procedure FormCreate(Sender: TObject);`
	`procedure Sair;`
	`procedure pntGradientePaint(Sender: TObject);`
	`procedure FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);`
	`procedure FormClose(Sender: TObject; var Action: TCloseAction);`
	`procedure FormDestroy(Sender: TObject);`
	`procedure FormShow(Sender: TObject);`
	`procedure DefinirSubArea(const strSubArea : string);`
	`procedure DefinirArea(const strArea : string);`
	`function ObterArea : string;`
	`function ObterSubArea : string;`
	`function ObterAmbiente: TAmbiente;`
	`function ObterKernelString: TKernelString;`
	`procedure EditNumericoDecimalKeyPress(Sender: TObject; var Key: Char);`
	`procedure EditNumericoExit(Sender : TObject);`
	`procedure AntesDeSair; virtual;`
	`function ObterCampoDeNome(const strNome : string) : TField;`
	`procedure AposDefinirEntidade; virtual;`
	`procedure AposEntidadeDefinida; virtual;`
	`procedure AposExibir; virtual;`
	`procedure NovoEditNumerico(const edt : TEdit; const fltValorPadrao : Double = 0.00);`
	`procedure EntidadeDefinida; virtual;`
	`procedure AtualizarControlesVisuais;`

Properties

	`property NomeArea : String read ObterArea write DefinirArea;`
	`property NomeSubArea : String read ObterSubArea write DefinirSubArea;`
	`property Entidade : TdtmKernelComum read objEntidade;`
	`property CampoDeNome [const strNome : string]: TField read ObterCampoDeNome;`
	`property PodeSair : boolean read bolPodeSair write bolPodeSair;`
	`property DescricaoPermissao : string read strDescricaoPermissao write strDescricaoPermissao;`
	`property Ambiente : TAmbiente read ObterAmbiente;`
	`property str : TKernelString read ObterKernelString;`

Descrição

Campos

	`pnlCabecalho: TPanel;`

	`imgLogo: TImage;`

	`imgPrincipalDesabilitado: TImageList;`

	`imgPrincipal: TImageList;`

	`lblArea: TLabel;`

	`imgTipoArea: TImage;`

	`lblSubarea: TLabel;`

	`imgSeta: TImage;`

	`barStatus: TStatusBar;`

	`pntGradiente: TPaintBox;`

	`barFerramentas: TToolBar;`

	`objEntidade: TdtmKernelComum;`
Armazena a Entidade que chamou o formulário

	`strDescricaoPermissao: String;`
Armezena a Descrição para as Permissôes de Usuário

	`XPMenu: TXPMenu;`
Objeto de controle visual XPMenu

	`bolPodeSair: boolean;`
Define de o Formulário pode ser fechado

Métodos

	`procedure FormCreate(Sender: TObject);`
Evento ao Criar o Formulario

	`procedure Sair;`
Fecha o Formulário Atual

	`procedure pntGradientePaint(Sender: TObject);`
Evento disparado ao pintar no paintbox do topo

	`procedure FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);`
Evento disparado ao pressionar uma tecla no formulário

	`procedure FormClose(Sender: TObject; var Action: TCloseAction);`
Evento Disparado ao fechar o formulário

	`procedure FormDestroy(Sender: TObject);`
Evento Disparado ao destruir o formulário

	`procedure FormShow(Sender: TObject);`
Evento Disparado ao exibir o formulário

	`procedure DefinirSubArea(const strSubArea : string);`
Define a Subarea do formulario

	`procedure DefinirArea(const strArea : string);`
Define a Area do formulario

	`function ObterArea : string;`
Retorna o Nome da Area

	`function ObterSubArea : string;`
Retorna o nome da sub-area

	`function ObterAmbiente: TAmbiente;`
Retorna o objeto do ambiente para que se torne disponível também nos formulários

	`function ObterKernelString: TKernelString;`
Retorna o Objeto de controle de strings

	`procedure EditNumericoDecimalKeyPress(Sender: TObject; var Key: Char);`
Utilizado em Edits para aceitar somente o formato numérico decimal

	`procedure EditNumericoExit(Sender : TObject);`
Evento disparado ao sair de uma caixa de edição numérica

	`procedure AntesDeSair; virtual;`
Evento disparado antes de sair do formulário

	`function ObterCampoDeNome(const strNome : string) : TField;`
Obtem o Campo com o nome passado como parametro da Entidade

	`procedure AposDefinirEntidade; virtual;`
Evento disparado Apos Definir a Entidade

	`procedure AposEntidadeDefinida; virtual;`
Evento disparado após a definição da entidade e depois do evento EntidadeDefinida Pode ser utilizado para efetuaf validações dos dados entrados no EntidadeDefinida

	`procedure AposExibir; virtual;`
Evento Disparado após a exibição do formulário

	`procedure NovoEditNumerico(const edt : TEdit; const fltValorPadrao : Double = 0.00);`
Atribui os eventos para que a caixa de edição aceite apenas valores numericos decimais

	`procedure EntidadeDefinida; virtual;`
Procedimento que Define os parametros iniciais do formulário

	`procedure AtualizarControlesVisuais;`
Atualiza os controles visuais relacionados ao formulário

Properties

	`property NomeArea : String read ObterArea write DefinirArea;`
Descreve o Nome da área em que o usuário se encontra

	`property NomeSubArea : String read ObterSubArea write DefinirSubArea;`
Descreve o Nome da sub-área em que o usuário se encontra

	`property Entidade : TdtmKernelComum read objEntidade;`
Acessa a Entidade pai do Formulário

	`property CampoDeNome [const strNome : string]: TField read ObterCampoDeNome;`
Acesso ao Campo da Entidade com o Nome passado como parametro

	`property PodeSair : boolean read bolPodeSair write bolPodeSair;`
Se pode sair do Formulário

	`property DescricaoPermissao : string read strDescricaoPermissao write strDescricaoPermissao;`
Acessa a Descrição da Permissão

	`property Ambiente : TAmbiente read ObterAmbiente;`
Acesso ao Ambiente do Sistema

	`property str : TKernelString read ObterKernelString;`
Acesso ao objeto de controle de strings