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 converter RGB para TColor?

Com este função você pode informar valores de
vermelho, verde e azul, e a função retorna-rá
uma cor correspondente no formato TColor.

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

Segue o código fonte da função:

1
2
3
4
function RGBToColor(r, g, b : Byte) : TColor;
begin
  Result := RGB(r, g, b);
end;

Exemplo de uso:

1
2
3
4
procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Color := RGBToColor(58, 110, 165);
end;
Facebook Comments Box
  • InfusTec
  • 11.349 views
  • 0 comentários
  • 28 de abril de 2015

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

Deixe um comentário

Ir ao topo

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