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.
