Como obter mais valores de cores RBG para Delphi

Dentro Delphi, o tipo TColor especifica a cor de um objeto. É usado pela propriedade de cor de muitos componentes e por outras propriedades que especificam valores de cores.

A unidade de gráficos contém definições de constantes úteis para o TColor. Por exemplo, o clBlue é mapeado para azul, o clRed é mapeado para vermelho.

Mais valores "CL" = Mais cores

Você pode especificar o TColor como um byte de 4 bytes. número hexadecimal em vez de usar as constantes definidas na unidade de gráficos. Os três bytes baixos representam as intensidades de cores RGB (vermelho, verde, azul) para azul, verde e vermelho, respectivamente. Observe a inversão de uma cor hexadecimal típica: para TColor, a sequência é azul-verde-vermelho.

Por exemplo, vermelho pode ser definido como TColor ($ 0000FF).

Conversão RBG para TColor

Se você tiver valores para intensidades de vermelho, verde e azul (um número de 0 a 255 - tipo "byte"), veja como obter o valor TColor:

var r, g, b: byte; cor: TColor; início r: = StrToInt (ledRed. Texto); g: = StrToInt (ledGreen. Texto); b: = StrToInt (ledBlue. Texto); cor: = RGB (r, g, b); Escova Cor: = cor; 
instagram viewer
fim;

O "ledRed", "ledGreen" e "ledBlue" são três controles de edição usados ​​para especificar a intensidade de cada componente de cor. Shape1 é um controle TShape Delphi.

Navegador de dicas do Delphi:
»Como analisar arquivos delimitados por TAB no Delphi
«IsDirectoryEmpty - Função Delphi para determinar se um diretório está vazio (sem arquivos, sem subpastas)

instagram story viewer