SetTransparentColor
Função: SetTransparentColor
Calcula a transparência de uma cor.
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
2 pessoas gostam disto
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas