1 2 3 4 5 6 7 8 9 10
| procedure TForm1.Button1Click(Sender: TObject);
const tab : array[0..15] of string = ('0', '1', '2', '3', '4', '5', '6', '7', '8', '9', 'A', 'B', 'C', 'D', 'E', 'F');
var
r,g,b : integer;
begin
r := GetRValue(ColorBox1.Selected); //recupere la composante rouge
g := GetGValue(ColorBox1.Selected); //recupere la composante verte
b := GetBValue(ColorBox1.Selected); //recupere la composante bleue
Edit1.Text := '#' + tab[r div 16] + tab[r mod 16] + tab[g div 16] + tab[g mod 16] + tab[b div 16] + tab[b mod 16];
end; |
Partager