Toolbar

[ctoas]

Amigos...

Como desabilitar um unico botão da TOOLBAR ??

STATIC FUNCTION BARRABOTOES()
**** TOOLBAR - TAMANHOS DOS BOTÕES
oImageList = TImageList():New(35,35)

**** TOOLBAR - IMAGENS DOS BOTÕES
oImageList:AddMasked(TBitmap():Define( "NOVODLG" ,,oDlgPermissoes),nRGB(255,0,255))
oImageList:AddMasked(TBitmap():Define( "ALTERADLG" ,,oDlgPermissoes),nRGB(255,0,255))
oImageList:AddMasked(TBitmap():Define( "SALVARDLG" ,,oDlgPermissoes),nRGB(255,0,255))
oImageList:AddMasked(TBitmap():Define( "APAGARDLG" ,,oDlgPermissoes),nRGB(255,0,255))
oImageList:AddMasked(TBitmap():Define( "IMPRESSAODLG" ,,oDlgPermissoes),nRGB(255,0,255))
oImageList:AddMasked(TBitmap():Define( "IMPRESSAODOSDLG",,oDlgPermissoes),nRGB(255,0,255))
oImageList:AddMasked(TBitmap():Define( "BUSCADLG" ,,oDlgPermissoes),nRGB(255,0,255))
oImageList:AddMasked(TBitmap():Define( "REGISTROTOP" ,,oDlgPermissoes),nRGB(255,0,255))
oImageList:AddMasked(TBitmap():Define( "REGISTROANT" ,,oDlgPermissoes),nRGB(255,0,255))
oImageList:AddMasked(TBitmap():Define( "REGISTROPROX" ,,oDlgPermissoes),nRGB(255,0,255))
oImageList:AddMasked(TBitmap():Define( "REGISTRODOWN" ,,oDlgPermissoes),nRGB(255,0,255))
oImageList:AddMasked(TBitmap():Define( "AJUDADLG" ,,oDlgPermissoes),nRGB(255,0,255))
oImageList:AddMasked(TBitmap():Define( "ENCERRADLG" ,,oDlgPermissoes),nRGB(255,0,255))

**** TOOLBAR - DEFINE
DEFINE TOOLBAR oToolBarDlg OF oDlgPermissoes SIZE 38,38 ;
IMAGELIST oImageList BALLOON

**** TOOLBAR - AÇÃO DOS BOTÕES
DEFINE TBBUTTON OF oToolBarDlg ;
ACTION INCUSER();
TOOLTIP ANSITOOEM("Novo Registro")

DEFINE TBBUTTON OF oToolBarDlg ;
ACTION MSGINFO("teste") ;
TOOLTIP ANSITOOEM("Alterar Registro")

DEFINE TBBUTTON OF oToolBarDlg ;
ACTION MSGINFO("teste") ;
TOOLTIP ANSITOOEM("Salvar Registro")

DEFINE TBBUTTON OF oToolBarDlg ;
ACTION MSGINFO("Backup") ;
TOOLTIP ANSITOOEM("Elimina Registro")

DEFINE TBSEPARATOR OF oToolBarDlg

DEFINE TBBUTTON OF oToolBarDlg ;
ACTION MSGINFO("teste") ;
TOOLTIP ANSITOOEM("Relatório Modo Gráfico")

DEFINE TBBUTTON OF oToolBarDlg ;
ACTION MSGINFO("teste");
TOOLTIP ANSITOOEM("Relatório Modo Texto")

DEFINE TBSEPARATOR OF oToolBarDlg

DEFINE TBBUTTON OF oToolBarDlg ;
ACTION MSGINFO("teste");
TOOLTIP ANSITOOEM("Pesquisa Registros")

DEFINE TBSEPARATOR OF oToolBarDlg

DEFINE TBBUTTON OF oToolBarDlg ;
ACTION MSGINFO("teste") ;
TOOLTIP ANSITOOEM("Início dos Registros")

DEFINE TBBUTTON OF oToolBarDlg ;
ACTION MSGINFO("teste") ;
TOOLTIP ANSITOOEM("Registro Anterior")

DEFINE TBBUTTON OF oToolBarDlg ;
ACTION ENCERRA(oDlgPermissoes) ;
TOOLTIP ANSITOOEM("Registro Posterior")

DEFINE TBBUTTON OF oToolBarDlg ;
ACTION ENCERRA(oDlgPermissoes) ;
TOOLTIP ANSITOOEM("Final dos Registros")

DEFINE TBSEPARATOR OF oToolBarDlg

DEFINE TBBUTTON OF oToolBarDlg ;
ACTION ENCERRA(oDlgPermissoes) ;
TOOLTIP ANSITOOEM("Ajuda")

DEFINE TBSEPARATOR OF oToolBarDlg

DEFINE TBBUTTON OF oToolBarDlg ;
ACTION ENCERRA(oDlgPermissoes) ;
TOOLTIP ANSITOOEM("Encerra o Módulo")

Desta maneira tudo funciona, a única coisa que preciso é ativar e desativar em tempo de execução.

Agradeço a ajuda antecipadamente.

[Antonio Linares]

oToolBar:EnableButton( <nButton>, .f. )

[ctoas]

Gracias...