Salve, salve
No link da fonte (rodapé), Daniel Atilio aborda como pintar o cabeçalho utilizando o aControls
No corpo da onde é realizado o ajuste e comparação, fiz uma alteração para array.
Segue abaixo o trecho adaptado:
Method fAltText(oObjeto) Class ORGENC01
Local aDados := {"", ""}
Local aInfo := {}
Local cTexto := ""
Local cCss := ""
Local nI := 00
aAdd( aInfo, { '01', " | XX" , 'F39C12', 'yellow' , 'grey' } )
aAdd( aInfo, { '02', " | YY" , '0B9BBF', 'cyan' , 'grey' } )
aAdd( aInfo, { '03', " | ZZ" , 'bb9ed1', 'green' , 'blue' } )
aAdd( aInfo, { '04', " | EURAI" , '30e3b3', '#e1c5f1' , '#806490' } )
aAdd( aInfo, { '05', " | RAPELLI" , 'c7d43a', 'grey' , 'blue' } )
cTexto := oObjeto:cCaption
For nI := 01 to Len( aInfo )
If aInfo[nI,02] $ cTexto
cTexto := StrTran(cTexto, aInfo[nI,02], "")
Endif
If SubStr(cFilAnt, 1, 8) == aInfo[nI,01]
cCSS := "TSay { margin: 2px; color: #" + aInfo[nI,03] + "; font: 20px Arial; background: qlineargradient( x1:0 y1:0.75, x2:0 y2:1, stop:0 "+ aInfo[nI,04] +", stop:1 "+ aInfo[nI,05] +"); }"
cTexto += aInfo[nI,02]
Endif
Next nI
aDados[1] := cTexto
aDados[2] := cCSS
Return( aDados )
Fonte:
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎
