Nesse vídeo demonstraremos em como converter uma cor no valor numérico padrão em AdvPL para o padrão RGB (Red, Green e Blue).
Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:
//Bibliotecas
#Include "TOTVS.ch"
/*/{Protheus.doc} User Function zExe091
Exemplo para converter uma cor para o padrão RGB (separado em Red, Green e Blue)
@type Function
@author Atilio
@since 11/12/2022
@obs
Função ConvRGB
Parâmetros
+ Informa o número da cor no formato AdvPL
Retorno
+ Array com as posições 1 = Vermelho; 2 = Verde; 3 = Azul
**** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/
User Function zExe091()
Local aArea := FWGetArea()
Local nCorAdvPL := 0
Local aCorRGB := {}
Local cMensagem := ""
//Abre a tela para seleção de cores e depois converte para um array com separação
nCorAdvPL := ColorTriangle()
aCorRGB := ConvRGB(nCorAdvPL)
//Agora mostra a conversão
cMensagem := "Para a cor em AdvPL = " + cValToChar(nCorAdvPL) + CRLF + CRLF
cMensagem += "É necessário: " + CRLF
cMensagem += "Red = " + cValToChar(aCorRGB[1]) + CRLF
cMensagem += "Green = " + cValToChar(aCorRGB[2]) + CRLF
cMensagem += "Blue = " + cValToChar(aCorRGB[3])
FWAlertSuccess(cMensagem, "Teste ConvRGB")
FWRestArea(aArea)
Return
Bom pessoal, por hoje é só.
Abraços e até a próxima.
