| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как можно "пройтись" в цикле по все цветам (TColor)? [D7, XP]

Страницы:   < 1 2 >

daser ©   (2006-12-01 15:31:00) 

---

Джо   (2006-12-01 15:45:00) [21]

> [3] MBo ©   (01.12.06 15:40)

У TColor своя "специфика" ибо
TColor = -$7FFFFFFF-1..$7FFFFFFF;
и
If the highest-order byte is zero ($00), the color obtained is the closest matching color in the system palette. If the highest-order byte is one ($01), the color obtained is the closest matching color in the currently realized palette.

---

MBo   (2006-12-01 15:40:00) [22]

все 24-х разрядные цвета (16 миллионов) перебираются в цикле
0 to $FFFFFF

---

Джо   (2006-12-01 15:34:00) [23]

for I := Low(TColor) to High(TColor) do

---

Elen   (2006-12-01 15:33:00) [24]

типа for i:=-$7FFFFFFF-1 to $7FFFFFFF do color:=i;

---

Страницы:   < 1 2 >

Наверх