Код:
a := {циферное значение цвета, типа 1412552};
LABEL1.Caption:=IntToStr(a);
Численное значение цвета я определял тутже в программе: кидал на форму ColorDialog (или как он называется), дальше:
Цитата:
|
If ColorDialog.Execute then Edit1.Text := IntToStr(ColorDialog.Color)
|
смысл такой