Categorias

Função que retorna todas as imagens de botões do Protheus

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

Arquivos para Download:

DescErro.prw