Dúvida
Gostaria da tabela de cores da classe MSDIALOG.
Ambiente
Cross Segmento - TOTVS Backoffice (Linha Protheus) - AdvPL - Todas as versões
Solução
Tabela de cores
CLR_BLACK // RGB( 0, 0, 0 )
CLR_BLUE // RGB( 0, 0, 128 )
CLR_GREEN // RGB( 0, 128, 0 )
CLR_CYAN // RGB( 0, 128, 128 )
CLR_RED // RGB( 128, 0, 0 )
CLR_MAGENTA // RGB( 128, 0, 128 )
CLR_BROWN // RGB( 128, 128, 0 )
CLR_HGRAY // RGB( 192, 192, 192 )
CLR_LIGHTGRAY // RGB( 192, 192, 192 )
CLR_GRAY // RGB( 128, 128, 128 )
CLR_HBLUE // RGB( 0, 0, 255 )
CLR_HGREEN // RGB( 0, 255, 0 )
CLR_HCYAN // RGB( 0, 255, 255 )
CLR_HRED // RGB( 255, 0, 0 )
CLR_HMAGENTA // RGB( 255, 0, 255 )
CLR_YELLOW // RGB( 255, 255, 0 )
CLR_WHITE // RGB( 255, 255, 255 )
Segue ilustração para apoio
PoC:
#Include 'Protheus.ch'
#include "TOTVS.CH"
User Function cores()
//Tabela de cores dialog
Local oDlg
local nX
local acor:= {CLR_BLACK,CLR_BLUE,CLR_GREEN,CLR_CYAN,CLR_RED,CLR_MAGENTA,CLR_BROWN,CLR_HGRAY,CLR_LIGHTGRAY,CLR_GRAY,CLR_HBLUE,CLR_HGREEN,CLR_HCYAN,CLR_HRED,CLR_HMAGENTA,CLR_YELLOW,CLR_WHITE}
local acorT:= {"CLR_BLACK","CLR_BLUE","CLR_GREEN","CLR_CYAN","CLR_RED","CLR_MAGENTA","CLR_BROWN","CLR_HGRAY","CLR_LIGHTGRAY","CLR_GRAY","CLR_HBLUE","CLR_HGREEN","CLR_HCYAN","CLR_HRED","CLR_HMAGENTA","CLR_YELLOW","CLR_WHITE"}
// Cria diálogo
For nX := 1 To Len(acor)
oDlg := MSDialog():New(180,180,550,700,'Exemplo MSDialog',,,,,acor[nX],acor[nX],,,.T.)
oDlg:Activate(,,,.T.,{||msgstop('Posição: '+ cvaltochar(nX)),.T.},,{||msgstop('Cor: '+ cvaltochar(acorT[nX]))} )
Next
Return
0 Comentários