Categorias

Imagens para botões no Protheus

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

Arquivos para Download:

ImgBotoes.prw