SetTransparentColor ( < nColor>, < nAlpha> ) --> nColorTransp

Nome	Tipo	Descrição	Obrigatório	Referência
nColor	Numérico	Indica a cor inicial.	X
nAlpha	Numérico	Indica o alpha, no formato numérico, para aplicação da transparência.	X

nColorTransp(numerico)
• Retorna a cor desejada, após realizar o tratamento de transparência.

User function TstTransp()DEFINE DIALOG oDlg TITLE "" FROM 180,180 TO 550,700 PIXEL                 // Painel com cor sólida  oPanel1 := TPanel():New(01,01,"",oDlg,,.F.,.F.,,;      CLR_RED,130,30,.T.,.F.)		  // Painel com aplicação de transparência  oPanel2 := TPanel():New(35,01,"",oDlg,,.F.,.F.,,;      SetTransparentColor(CLR_RED ,120),130,30,.T.,.F.)  // Painel com aplicação de transparência  oPanel3 := TPanel():New(70,01,"",oDlg,,.F.,.F.,,;      SetTransparentColor(CLR_RED ,080),130,30,.T.,.F.)ACTIVATE DIALOG oDlg CENTEREDReturn .F.

Exemplo da função SetTransparentColor()

Microsiga Protheus 8.11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server