Classe TControladorDetalheBotao

DescriçãoHierarquiaCamposMétodosProperties

Unit

untKernelControleDetalhe

Declaração

type TControladorDetalheBotao = class(TObject)

Descrição

Controla as informações de cada botão do controlador de detalhe

Hierarquia

Visão Geral

Campos

Private bitTipo: TControladorDetalheTipoBotao;
Private bitAdicionarAposBotao: TControladorDetalheTipoBotao;
Private btnBotao: TToolButton;
Private strCaption: string;
Private strHint: string;
Private intImageIndex: smallint;
Private evnOnClick: TControladorDetalheEventoOnClick;
Private setEstadosDataSetBotaoInativo: TControladorDetalheBotaoEstadosDataSet;

Métodos

Private procedure DefinirBotao(const Value: TToolButton);
Private procedure EventoOnClickInterno(Sender : TObject);
Public destructor Destroy; override;

Properties

Public property Tipo : TControladorDetalheTipoBotao read bitTipo write bitTipo;
Public property Botao : TToolButton read btnBotao write DefinirBotao;
Public property Caption : string read strCaption write strCaption;
Public property Hint : string read strHint write strHint;
Public property ImageIndex : SmallInt read intImageIndex write intImageIndex;
Public property OnClick : TControladorDetalheEventoOnClick read evnOnClick write evnOnClick;
Public property AdicionarAposBotao : TControladorDetalheTipoBotao read bitAdicionarAposBotao write bitAdicionarAposBotao;
Public property EstadosDataSetBotaoInativo : TControladorDetalheBotaoEstadosDataSet read setEstadosDataSetBotaoInativo write setEstadosDataSetBotaoInativo;

Descrição

Campos

Private bitTipo: TControladorDetalheTipoBotao;

Define o tipo de botão, de acordo com as opções disponíveis em TControladorDetalheTipoBotao

Private bitAdicionarAposBotao: TControladorDetalheTipoBotao;

Define a posição do botão personalizado a ser criado, após um dos botões padrão

Private btnBotao: TToolButton;

Referência ao botão na barra de ferramentas

Private strCaption: string;

Caption do botão

Private strHint: string;

Hint para o botão

Private intImageIndex: smallint;

Índice da imagem

Private evnOnClick: TControladorDetalheEventoOnClick;

Referência ao evento OnClick disparado ao clicar no botão

Private setEstadosDataSetBotaoInativo: TControladorDetalheBotaoEstadosDataSet;

Estados de inatividade do botão, de acordo com o dataset

Métodos

Private procedure DefinirBotao(const Value: TToolButton);

Define o botão e configura as propriedades do mesmo

Private procedure EventoOnClickInterno(Sender : TObject);

Evento interno disparado ao clicar o botão

Public destructor Destroy; override;

Destructor da classe

Properties

Public property Tipo : TControladorDetalheTipoBotao read bitTipo write bitTipo;

Tipo de botão

Public property Botao : TToolButton read btnBotao write DefinirBotao;

Controle ligado ao controlador

Public property Caption : string read strCaption write strCaption;

Texto do Botao

Public property Hint : string read strHint write strHint;

Texto explicativo do botão

Public property ImageIndex : SmallInt read intImageIndex write intImageIndex;

Índice da imagem relacionada ao botao

Public property OnClick : TControladorDetalheEventoOnClick read evnOnClick write evnOnClick;

Evento disparado ao clicar sobre o botao

Public property AdicionarAposBotao : TControladorDetalheTipoBotao read bitAdicionarAposBotao write bitAdicionarAposBotao;

Define se adições serào efetuadas após o botão

Public property EstadosDataSetBotaoInativo : TControladorDetalheBotaoEstadosDataSet read setEstadosDataSetBotaoInativo write setEstadosDataSetBotaoInativo;

Define quais estados do dataset o botão estará inativo