IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

> Список цветов
Client
сообщение 25.05.2009 17:24
Сообщение #1


Профи
****

Группа: Пользователи
Сообщений: 865
Пол: Мужской
Реальное имя: Вячеслав

Репутация: -  20  +


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;
Выдает список из номеров цветов, а не из их названий. Как можно взять имя цвета?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
Client
сообщение 25.05.2009 18:02
Сообщение #2


Профи
****

Группа: Пользователи
Сообщений: 865
Пол: Мужской
Реальное имя: Вячеслав

Репутация: -  20  +


Все получилось
Тока что-то не понял работу всего этого. В первой процедуре идет добавление в список и все. На кнопку мемо очищается и вызывается GetColorValues со странным параметром...
Цитата
Описано в модуле Graphics
А как посмотреть? CTRL+F1?

Сообщение отредактировано: Client - 25.05.2009 18:07
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 10.07.2025 15:11
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"