Список цветов Опции

[Client]

var
  ATypeInfo: PTypeInfo;
  i:Tcolor;
begin
  memo1.Clear;
  ATypeInfo := TypeInfo(Tcolor);
  for i:=high(tcolor)-40 to high(tcolor) do
    memo1.Lines.Add(GetEnumName(ATypeInfo, ord(i)));
end;

или

var
  i:Tcolor;
begin
  memo1.Clear;
  for i:=high(tcolor)-40 to high(tcolor) do
    memo1.Lines.Add(colortostring(i));
end;

Выдает список из номеров цветов, а не из их названий. Как можно взять имя цвета?

[volvo]

Это Callback процедура... Вот так это все работает:

1) есть описание всех цветов:

const
    Colors: array[0..51] of TIdentMapEntry = ( ... );

2) есть сама процедура GetColorValues:

procedure GetColorValues(Proc: TGetStrProc);
var
    I: Integer;
begin
    for I := Low(Colors) to High(Colors) do Proc(Colors[I].Name);
end;

, и твоя, которая передается в GetColorValues, и вызывается на каждой итерации цикла. Теперь понятнее, как это печатается?

А как посмотреть? CTRL+F1?

Если исходники доступны - то Ctrl + клик мышью на имени процедуры... Если нет - то Ctrl+F1, хоть что-то...