Algumas vezes nos debatemos na hora de criar nossas janelas customizadas, sobre onde encontrar aquelas imagens para colocar nos botões.
Depois de muito procurar, encontrei no TDN (Totvs Developer Network) estas imagens e criei um pequeno programa que me permite visualizar e identificar cada uma delas. É simples, mas tenho certeza de que será muito útil.
#Include "PROTHEUS.CH" //-------------------------------------------------------------- /* @author Rodrigo Araujo - [email protected] @since 24/11/2010 Para visualizar digite em formulas a função: u_ImgBotoes() /*/ //-------------------------------------------------------------- User Function ImgBotoes() Local a1Buttons := {} Local a2Buttons := {} Local a3Buttons := {} Local a4Buttons := {} Local a5Buttons := {} Local a6Buttons := {} Local a7Buttons := {} Local a8Buttons := {} Local a9Buttons := {} Local a10Buttons := {} Local a11Buttons := {} Local a12Buttons := {} Local a13Buttons := {} Local a14Buttons := {} Static oDlg DEFINE MSDIALOG oDlg TITLE "Imagens para botões EnchoiceBar" FROM 000, 000 TO 600, 900 COLORS 0, 16777215 PIXEL AAdd(a1Buttons, { "AFASTAME" ,{||oDlg:End()}, "AFASTAME"} ) AAdd(a1Buttons, { "ALTERA" ,{||oDlg:End()}, "ALTERA"} ) AAdd(a1Buttons, { "AMARELO" ,{||oDlg:End()}, "AMARELO"} ) AAdd(a1Buttons, { "ANALITIC" ,{||oDlg:End()}, "ANALITIC"} ) AAdd(a1Buttons, { "AREA" ,{||oDlg:End()}, "AREA"} ) ... EnchoiceBar(oDlg, {||oDlg:End()}, {||oDlg:End()},,a10Buttons) EnchoiceBar(oDlg, {||oDlg:End()}, {||oDlg:End()},,a11Buttons) EnchoiceBar(oDlg, {||oDlg:End()}, {||oDlg:End()},,a12Buttons) EnchoiceBar(oDlg, {||oDlg:End()}, {||oDlg:End()},,a13Buttons) EnchoiceBar(oDlg, {||oDlg:End()}, {||oDlg:End()},,a14Buttons) ACTIVATE MSDIALOG oDlg CENTERED Return
