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

Show Delphi » Imagens, Windows » Como recuperar valores RGB de um TColor?

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 Box
  • InfusTec
  • 6.391 views
  • 1 comentários
  • 28 de abril de 2015

Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!

Uma resposta para “Como recuperar valores RGB de um TColor?”

  1. Leonardo Lourenço disse:
    10 de junho de 2019 às 16:22

    Muito bom, simples e funcional

Deixe um comentário

    Patrocinado


    Patrocinado

    Patrocinado

Ir ao topo

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