Como recuperar valores RGB de um TColor? – Show Delphi

DICAS

Visite a biblioteca de dicas da comunidade.

Saiba mais

ARTIGOS

Abordagens detalhadas sobre assuntos diversos.

Saiba mais

INICIANTES

Aprenda a programar de um modo simples e fácil.

Saiba mais

DOWNLOADS

Acesse os materiais exclusivos aos membros.

Saiba mais
voltar

PARA QUEM GOSTA DE DELPHI

Como recuperar valores RGB de um TColor?

 

Com este exemplo é possível ver como extrair os valores RGB de
uma cor no padrão do Delphi, “TColor”.

É necessário estar declarado Graphics e Windows na seção uses,
em versões unicode declare Vcl.Graphics e Winapi.Windows.

Função nativa do Delphi:

1
2
3
// Função própria do Delphi
// ColorToRGB ( Cor : TColor )
// Retorno: Integer

Exemplo de uso:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.Button2Click(Sender: TObject);
var
  Color: Longint;
  r, g, b: Byte;
begin
  Color := ColorToRGB(Edit1.Color);
  r     := Color;
  g     := Color shr 8;
  b     := Color shr 16;
  label1.Caption :=
  ' Red  : ' + IntToStr(r) +
    ' Green: ' + IntToStr(g) +
    ' Blue : ' + IntToStr(b);
end;
Facebook Comments

Posts Relacionados

  • Administrador
  • 938 views
  • 0 comentários
  • 28 de abril de 2015

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Ir ao topo

© 2016 Infus Soluções em Tecnologia - Todos os Direitos Reservados