Как можно "пройтись" в цикле по все цветам (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]

> 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 не работает....

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

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

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

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

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

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

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

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