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; |
Você precisa fazer o login para publicar um comentário.
Muito bom, simples e funcional