Árvore de páginas

Função: SetTransparentColor

Calcula a transparência de uma cor.

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

NomeTipoDescriçãoObrigatórioReferência
nColorNuméricoIndica a cor inicial. X
nAlphaNuméricoIndica 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

  • Sem rótulos