Скачать: CL | DM;

Как можно "пройтись" в цикле по все цветам (TColor)?   Найти похожие ветки 

← →
daser   (2006-12-01 15:31) [0]

---

← →
Elen ©   (2006-12-01 15:33) [1]

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

---

← →
Джо ©   (2006-12-01 15:34) [2]

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

---

← →
MBo ©   (2006-12-01 15:40) [3]

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

---

← →
Джо ©   (2006-12-01 15:45) [4]

> [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.

---

← →
Anatoly Podgoretsky ©   (2006-12-01 15:47) [5]

> Джо  (01.12.2006 15:34:02)  [2]

То же самое, только где можно применить это после do
Ведь в граммах это много - это 4 миллиарда грамм.
Ни на дисплей ни на бумагу не выведешь

---

← →
Джо ©   (2006-12-01 15:48) [6]

> [5] Anatoly Podgoretsky ©   (01.12.06 15:47)
>
> только где можно применить это после do

Ну, автору виднее :)

---

← →
Anatoly Podgoretsky ©   (2006-12-01 15:51) [7]

> MBo  (01.12.2006 15:40:03)  [3]

А 32 разрядные в цикле $10000000 to $7FFFFFFF

---

← →
daser   (2006-12-01 15:53) [8]

>Ну, автору виднее :)
я добавляю бары на диаграмму (TChart) с разными цветами. Но я не знаю, сколько баров будет...

---

← →
Джо ©   (2006-12-01 15:54) [9]

> Но я не знаю, сколько баров будет...

Много. Очень.

---

← →
Anatoly Podgoretsky ©   (2006-12-01 15:56) [10]

> Джо  (01.12.2006 15:54:09)  [9]

Очень много

---

← →
daser   (2006-12-01 16:05) [11]

>Очень много
не так поняли.... например, будет 20 баров, то мне надо в цикле их добавить в диаграмму и размалевать - каждый своим цветом. В следующий раз их может быть 50 - то же самое сделать...

---

← →
Джо ©   (2006-12-01 16:06) [12]

> [11] daser   (01.12.06 16:05)
> >Очень много
> не так поняли.... например, будет 20 баров, то мне надо
> в цикле их добавить в диаграмму и размалевать - каждый своим
> цветом. В следующий раз их может быть 50 - то же самое сделать...

Так в чем вопрос?

---

← →
Elen ©   (2006-12-01 16:09) [13]

> daser

А что Tchart разве сам цвета не назначает?

---

← →
Anatoly Podgoretsky ©   (2006-12-01 16:14) [14]

> Джо  (01.12.2006 16:06:12)  [12]

Пора уже правду сказать, что кроме количества 16м/4М
надо учитывать и особенности человеческого глаза.

---

← →
daser   (2006-12-01 16:17) [15]

>А что Tchart разве сам цвета не назначает?
Назначает, но я добавляю так:

Series1.add(t,"",clRed);

где t - переменная типа интегер, а вот что делать с clRed? У меня все бары - красные. Что надо сделать, чтоб цвета, были разные?

---

← →
Anatoly Podgoretsky ©   (2006-12-01 16:19) [16]

clRed это тоже Integer

---

← →
Elen ©   (2006-12-01 16:20) [17]

> daser

Вообще то задавать цвет не обязателный параметр. Можеш положиться на автомат.

---

← →
daser   (2006-12-01 16:22) [18]

>Джо ©   (01.12.06 16:06) [12]
вопрос в том как, добавляя все бары в цикле, размалевать их разными цветами?

---

← →
Плохиш ©   (2006-12-01 17:33) [19]

> daser   (01.12.06 16:22) [18]
> >Джо ©   (01.12.06 16:06) [12]
> вопрос в том как, добавляя все бары в цикле, размалевать
> их разными цветами?

В моей версии делфи эта загогулина называется "Jede farbig", вот её и надо вклэчить, находится в свойствах Series1 над кнопкой для выбора цвета.

---

← →
daser   (2006-12-04 10:39) [20]

>В моей версии делфи эта загогулина называется "Jede farbig", вот её и надо >вклэчить, находится в свойствах Series1 над кнопкой для выбора цвета.

эт все правильно и это я знаю, но.... когда методом Add я добавляю бар, надо явно указать цвет
Series1.add(10,"Qwe",clBlue);
и в этом случае, "загогулина " на закладке Series1 не работает....

---

← →
Elen ©   (2006-12-04 10:48) [21]

> надо явно указать цвет
> Series1.add(10,"Qwe",clBlue);

Ты уверен? см [17]. (или это я что то путаю...)

---

← →
novill ©   (2006-12-04 10:54) [22]

Заведи константный массив из стандарных цветов - уже 20 цветом будет, если не хватит - можно либо просто циклить цвета, либо циклить с осветлением/затемнением.

---

← →
daser   (2006-12-04 11:01) [23]

>Ты уверен? см [17]. (или это я что то путаю...)
бл.........
ВСЕ оК! Так работает!

---

← →
novill ©   (2006-12-04 11:02) [24]

кстати,
series1.add() отлично обходиться и без указания цвета

The AColor parameter is optional (can be clTeeColor). и нагло циклит... :)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.5 MB
Время: 0.029 c