Classe TControladorGrade

Unit

Declaração

type TControladorGrade = class(TObject)

Descrição

Controlador de Grades

Hierarquia

TObject
TControladorGrade

Visão Geral

Campos

	`objVisual: TDBGrid;`
	`objEntidade: TdtmKernelComum;`
	`corGradeTitulo: TColor;`
	`corGradeTituloSelecionado: TColor;`
	`corGradeLinhaImpar: TColor;`
	`corGradeLinhaPar: TColor;`
	`EventoDesenharCelulaDados: TDrawColumnCellEvent;`
	`bolEventoAtribuido: Boolean;`
	`bolUtilizarDataSetCadastro: Boolean;`
	`bolFlat: Boolean;`

Métodos

	`procedure DesenharCelulaDeDados(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);`
	`procedure ClicarNoTitulo(Column: TColumn);`
	`function DataSet : TClientDataSet;`
	`constructor Create(const entEntidade : TdtmKernelComum; const objGrade : TDBGrid);`
	`destructor Destroy; override;`
	`procedure AtualizarGrade;`
	`procedure ColunaOrdenar(const intIndice : integer);`

Properties

	`property Grade : TDBGrid read objVisual;`
	`property Entidade : TdtmKernelComum read objEntidade;`
	`property CorTitulo : TColor read corGradeTitulo write corGradeTitulo;`
	`property CorTituloSelecionado : TColor read corGradeTituloSelecionado write corGradeTituloSelecionado;`
	`property CorLinhaImpar : TColor read corGradeLinhaImpar write corGradeLinhaImpar;`
	`property CorLinhaPar : TColor read corGradeLinhaPar write corGradeLinhaPar;`
	`property UtilizarDataSetCadastro : Boolean read bolUtilizarDataSetCadastro write bolUtilizarDataSetCadastro;`
	`property FlatStyle : Boolean read bolFlat write bolFlat;`

Descrição

Campos

	`objVisual: TDBGrid;`
Armazena o Objeto Visual da Grade

	`objEntidade: TdtmKernelComum;`
Armazena a Entidade

	`corGradeTitulo: TColor;`
Cor do Titulo da Grade

	`corGradeTituloSelecionado: TColor;`
Cor do Titulo Selecionado

	`corGradeLinhaImpar: TColor;`
Cor Linhas Impares da grade

	`corGradeLinhaPar: TColor;`
Cor das Linhas Pares da grade

	`EventoDesenharCelulaDados: TDrawColumnCellEvent;`
Evento Disparado ao desenhar uma célula de dados na grade

	`bolEventoAtribuido: Boolean;`
Verifica se já há um evento de desenho atribuído à grade

	`bolUtilizarDataSetCadastro: Boolean;`
Define se deve ser utilizado o dataset de cadastro da entidade para exibir os dados da grade

	`bolFlat: Boolean;`
Define se o título da grade será Flat ou 3D

Métodos

	`procedure DesenharCelulaDeDados(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);`
Desenha Propriedades da Grade, Celulas de Dados

	`procedure ClicarNoTitulo(Column: TColumn);`
Controla o Clique no Titulo de um Grid

	`function DataSet : TClientDataSet;`
Retorna o dataset da entidade, verificando se a mesma possui dataset de consulta

	`constructor Create(const entEntidade : TdtmKernelComum; const objGrade : TDBGrid);`
Construtor da Classe

	`destructor Destroy; override;`
Destrutor da Classe

	`procedure AtualizarGrade;`
Atualiza as propriedades referentes a grade

	`procedure ColunaOrdenar(const intIndice : integer);`
Efetua a Ordenação do Cache de dados pelo índice da coluna

Properties

	`property Grade : TDBGrid read objVisual;`
Propriedade para Ler a Grade

	`property Entidade : TdtmKernelComum read objEntidade;`
Propriedade para Ler a Entidade

	`property CorTitulo : TColor read corGradeTitulo write corGradeTitulo;`
Cor do Titulo da Grade

	`property CorTituloSelecionado : TColor read corGradeTituloSelecionado write corGradeTituloSelecionado;`
Cor do Titulo Selecionado

	`property CorLinhaImpar : TColor read corGradeLinhaImpar write corGradeLinhaImpar;`
Cor Linhas Impares da grade

	`property CorLinhaPar : TColor read corGradeLinhaPar write corGradeLinhaPar;`
Cor das Linhas Pares da grade

	`property UtilizarDataSetCadastro : Boolean read bolUtilizarDataSetCadastro write bolUtilizarDataSetCadastro;`
Define se deve ser utilizado o dataset de cadastro da entidae para exibir dados

	`property FlatStyle : Boolean read bolFlat write bolFlat;`
Define se a grade vai ser no estilo flat (Títulos)

Criada

Data: 07 de novembro de 2004