![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
как создать свой цвет
BAngel © (2006-05-10 21:09:00)Здраствуйте мастера делфи. Это снова я. Вчера вы мне посоветовали создать свой цвет. Но я чуть чуть забыл как это делать. Напомните мне пожалуйста как в colorbox создать свой цвет
Мефисто (2006-05-10 22:16:00) [21]Мефисто (10.05.06 21:34) [10]
Назначил цвет, и сразу перерисовать компонент нужно: TColorBox.Repaint;
Так понятней?
procedure TForm1.Button2Click(Sender: TObject);
begin
// Присваиваешь свой цвет
ColorBox1.Selected := RGB(Random(255), Random(255), Random(255));
// Перерисовываем солорбокс
ColorBox1.Repaint;
end;
BAngel (2006-05-10 22:10:00) [22]
> Чем не устраивает надпись в комбобоксе "Custom..." с текущим
> цветом в квадратике слева? Какоето причудливое изобретение
> велосипеда.
Повторяю. У меня там вообще фигню какуюто выбдаёт. Там всегда один и тот же цвет выдаёт
Мефисто (2006-05-10 22:06:00) [23]Gydvin © (10.05.06 21:52) [16]
Может и так.
Но судя по:
>> В общем у меня цвет из картинки в colorbox передаётся по рахитному.
Незнаю, как автор цвет будет обзывать (пожет и по RGB разложит и будет называть темно синий, немного зеленый с примесью красного :) ) и до скольких пунктов потом выростет писок комбобокса?
Немогу понять: BAngel (10.05.06 21:55) [17]
Чем не устраивает надпись в комбобоксе "Custom..." с текущим цветом в квадратике слева? Какоето причудливое изобретение велосипеда.
BAngel (2006-05-10 22:01:00) [24]
> Pointer(clred)
какой тип здесь указываеться? ТColor?
BAngel (2006-05-10 21:55:00) [25]
> Собственно, в чем проблема то??? Все ведь уже разжевали.
Разжевали то разжевали. Но я не пойму как всё таки свой цвет создать.
> TColorBox.Repaint;
Этой командой штоли. Но где тогда указывается название этого цвета. Ведь если создаётся какоё нибудь цвет он должен как то называться
Gydvin (2006-05-10 21:52:00) [26]может так
colorbox1.Items.AddObject('clred',Pointer(clred));
Мефисто (2006-05-10 21:49:00) [27]BAngel (10.05.06 21:41) [14]
Собственно, в чем проблема то??? Все ведь уже разжевали.
BAngel (2006-05-10 21:41:00) [28]В общем у меня цвет из картинки в colorbox передаётся по рахитному. Мне вчера посоветовали создавать этот цвет colorbox-е
Мефисто (2006-05-10 21:39:00) [29]BAngel (10.05.06 21:38) [12]
Не хочешь, не ешь... :)
BAngel (2006-05-10 21:38:00) [30]
> TColorBox.Repaint;
Это что?
Мефисто (2006-05-10 21:36:00) [31]BAngel (10.05.06 21:30) [9]
А вот название сам придумывай. Для каждой градации отенка цвета отдельно :)))
Как думаешь, сколько тебе констант надо будет придумать ;)
Мефисто (2006-05-10 21:34:00) [32]TColorBox.Selected := RGB(Random(255), Random(255), Random(255));
TColorBox.Repaint;
BAngel (2006-05-10 21:30:00) [33]
> В Style cbCustomColor := true;
Да
Мефисто (2006-05-10 21:28:00) [34]BAngel
Кстати на будующее. На титульной странице форума болтается такая штука, как поиск. Если в окно поиска записать BAngel и нажать кнопочку найти...
В Style cbCustomColor := true;
BAngel (2006-05-10 21:28:00) [35]
> а название заранее в константах записано, и в колорбоксе
> будет отображаться как Custom(если не совпадет с существующим)
>
У меня когда то так и получилось. А етперь не получается. Мне вчера здесь посоветовали создавать свой цвет
antonn (2006-05-10 21:25:00) [36]BAngel (10.05.06 21:21) [4]
С названием и всё такое
а название заранее в константах записано, и в колорбоксе будет отображаться как Custom(если не совпадет с существующим)
BAngel (2006-05-10 21:21:00) [37]
> colorbox.selected:=rgb(10,20,30);
Это тоже не то. Мне нужно создать свой цвет. С названием и всё такое
BAngel (2006-05-10 21:21:00) [38]
> colorbox.selected:=rgb(10,20,30);
Это тоже не то. Мне нужно создать свой цвет. С названием и всё такое
BAngel (2006-05-10 21:19:00) [39]
> DevilDevil © (10.05.06 21:15) [1]
Спасибо!!! Возможно мне это понадобится. Но мне надо свой цвет в colorbox-е
antonn (2006-05-10 21:18:00) [40]colorbox.selected:=rgb(10,20,30);