Muitas imagens de botões que utilizamos no Protheus 10 ficam armazenados em seu repositório de imagens.
Montei uma função que retorna todas as imagens de botões do Protheus.
#include "protheus.ch" User Function ImgBotoes() Local a1Buttons := {} DEFINE MSDIALOG oDlg TITLE "Imagens para botões EnchoiceBar" FROM 000, 000 TO 600, 900 PIXEL AADD(a1Buttons, { "AFASTAME" ,{||oDlg:End()}, "AFASTAME"} ) AADD(a1Buttons, { "ALTERA" ,{||oDlg:End()}, "ALTERA"} ) AADD(a1Buttons, { "AMARELO" ,{||oDlg:End()}, "AMARELO"} ) ... EnchoiceBar(oDlg, {||oDlg:End()}, {||oDlg:End()},,a14Buttons) ACTIVATE MSDIALOG oDlg CENTERED Return