// Summary: <specify the procedure action>
// Syntax:
//Capitalize (<Texto>)
//
// Parameters:
// Texto: <specify the role of Texto>
// Example:
// <Specify a usage example>
//
// Return value:
Procedure Capitalize(NomeTexto)

x is int = 0

Nome,newNome is string = ""

NomeTexto=NomeTexto+" "

IF NomeTexto <>""

nQtdeEspaco is int = StringCount(NomeTexto," ")

LOOP(nQtdeEspaco)
x++
Nome = NomeTexto
Nome = ExtractString(Nome,x," ",FromBeginning)
Nome = Upper(Middle(Nome,1,1)) + Lower(Middle(Nome,2,Length(Nome))) +" "
newNome += Nome
END

newNome = Replace(newNome," As "," as ")

newNome = Replace(newNome," Da "," da ")

newNome = Replace(newNome," Das "," das ")

newNome = Replace(newNome," De "," de ")

newNome = Replace(newNome," Do "," do ")

newNome = Replace(newNome," Dos "," dos ")

END

RESULT newNome

Procedure evento_objetos_upper(objetos is array of string)

i is int = 0

LOOP( ArrayCount( objetos ))

i++

indirection is string = objetos[i]

{indirection} = Upper( {indirection} )

END

Procedure evento_objetos_noaccent(objetos is array of string)

i is int = 0

LOOP( ArrayCount( objetos ))

i++

indirection is string = objetos[i]

{indirection} = NoAccent( {indirection} )

END

Procedure evento_lista_objetos(gs_nomeJanela)

i,j is int = 0
sBusca is string = ""
sControlName is string = ""
arrayControles is array of string

LOOP(5000)

i++

sControlName = gpwEnumControl(gs_nomeJanela, i)

IF Length(sControlName) > 0 THEN

sBusca = NoSpace(gs_nomeJanela)+"."+NoSpace(ExtractString(sControlName,1,TAB,FromBeginning))

IF Length(sBusca) > (Length(gs_nomeJanela) + 1)

Add(arrayControles,sBusca)
//Trace(sBusca)

ELSE
BREAK
END

ELSE
BREAK
END

END

ArrayDelete(arrayControles,ArrayCount(arrayControles))

RESULT arrayControles