Classe TControleVisao

Unit

Declaração

type TControleVisao = class(TComponent)

Descrição

Classe de controle de visoes da consulta

Hierarquia

TComponent
TControleVisao

Visão Geral

Campos

	`lstVisoes: TList;`
	`mnuPopupVisao: TPopupMenu;`
	`Entidade: TdtmKernelComum;`

Métodos

	`procedure VisaoMenuClicar(Sender : TObject);`
	`procedure DefinirPopupVisao(const Value: TPopupMenu);`
	`procedure Carregar;`
	`constructor Create(objEntidade : TdtmKernelComum); reintroduce;`
	`destructor Destroy; override;`
	`procedure IncluirVisao(const strTituloVisao, strFiltroVisao : string; const bolVisaoDefault : boolean = False);`
	`procedure DefinirFiltroVisaoPadrao();`

Properties

property PopupMenu : TPopupMenu write DefinirPopupVisao;

Descrição

Campos

	`lstVisoes: TList;`
Lista das Visoes disponiveis

	`mnuPopupVisao: TPopupMenu;`
Menu Popup para o controle visual da visao

	`Entidade: TdtmKernelComum;`
Entidade Pai

Métodos

	`procedure VisaoMenuClicar(Sender : TObject);`
Executa o Clique de uma uma visao

procedure DefinirPopupVisao(const Value: TPopupMenu);

Define o menu popup relacionado à visao

Parâmetros

Value: Menu Popup

	`procedure Carregar;`
Carrega as visões e cria os menus

	`constructor Create(objEntidade : TdtmKernelComum); reintroduce;`
Construtor da Classe

	`destructor Destroy; override;`
Destrutor da Classe

	`procedure IncluirVisao(const strTituloVisao, strFiltroVisao : string; const bolVisaoDefault : boolean = False);`
Inclui uma visao na lista

	`procedure DefinirFiltroVisaoPadrao();`
Define o comando sql para a visão definida como default (padrão)

Properties

	`property PopupMenu : TPopupMenu write DefinirPopupVisao;`
Define o Menu do Controle de Visao