toTColor

var Clr_Lst=new Array(
  "clActiveBorder",
  "clActiveCaption",
  "clAppWorkSpace",
  "clAqua",
  "clBackground",
  "clBlack",
  "clBlue",
  "clBtnFace",
  "clBtnHighlight",
  "clBtnShadow",
  "clBtnText",
  "clCaptionText",
  "clCream",
  "clDefault",
  "clDkGray",
  "clFuchsia",
  "clGradientActiveCaption",
  "clGradientInactiveCaption",
  "clGray",
  "clGrayText",
  "clGreen",
  "clHighlight",
  "clHighlightText",
  "clHotLight",
  "clInactiveBorder",
  "clInactiveCaption",
  "clInactiveCaptionText",
  "clInfoBk",
  "clInfoText",
  "clLime",
  "clLtGray",
  "clMaroon",
  "clMedGray",
  "clMenu",
  "clMenuBar",
  "clMenuHighlight",
  "clMenuText",
  "clMoneyGreen",
  "clNavy",
  "clNone",
  "clOlive",
  "clPurple",
  "clRed",
  "clScrollBar",
  "clSilver",
  "clSkyBlue",
  "clSystemColor",
  "clTeal",
  "clWhite",
  "clWindow",
  "clWindowFrame",
  "clWindowText",
  "clYellow"
);

// Главная форма
frm=new TForm();
frm.Caption="JS+ - метод типа данных Number toTColor";
frm.Height=500;
frm.Font.Name="Courier New";
frm.Font.Size=10;

// Строка состояния
stb=new TStatusBar(frm);
stb.SimpleText=' Список цветовых констант';

// Панель прокрутки
scb=new TScrollBox(frm);
scb.BorderStyle=bsSingle;
scb.Color=0xF9F9F9.toTColor();
scb.SetBounds(10,10,frm.ClientWidth-20,stb.Top-20);

dx=frm.TextWidth("clGradientInactiveCaption");
dy=frm.TextHeight("Q");
dc=frm.TextWidth("0xAAAAAA");
for (i=y=0;i<Clr_Lst.length;i++,y+=dy) {
  // Название цвета
  ed1=new TEdit(scb);
  ed1.ReadOnly=true;
  ed1.Color=scb.Color;
  ed1.Text=Clr_Lst[i];
  ed1.Left=4;
  ed1.Top =y;
  ed1.Width =dx;
  ed1.Height=dy;

  // Цветная панель
  pnl=new TPanel(scb);
  pnl.Color=eval(ed1.Text);
  pnl.Left=ed1.Left+ed1.Width+4;
  pnl.Top =ed1.Top;
  pnl.Width =dx;
  pnl.Height=ed1.Height;

  // Шестнадцатеричное значение цвета
  ed2=new TEdit(scb);
  ed2.ReadOnly=true;
  ed2.Color=ed1.Color;
  ed2.Text=pnl.Color.toHColor();
  ed2.Left=pnl.Left+pnl.Width+4;
  ed2.Top =ed1.Top;
  ed2.Width =dc;
  ed2.Height=ed1.Height;
}

// Подогнать размер формы под размер панели прокрутки
scb.ClientWidth=ed2.Left+ed2.Width+4;
frm.ClientWidth=scb.Width+scb.Left*2;

frm.ShowModal();