|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
27.07.2008, 14:14 | #1 |
Форумчанин
Регистрация: 01.02.2007
Сообщений: 785
|
как вывести спектр на форму?
как вывести цветовой спектр на форму или Image?
Изо всей благодати
В руках крепко сжатых Я донесу только капли |
27.07.2008, 15:46 | #2 |
Высокая репутация
СуперМодератор
Регистрация: 27.07.2008
Сообщений: 15,646
|
Использовать свойство Pixels канвы компонента.
Например, Image1.Canvas.Pixels[X,Y] := RGB (R, G, B) X, Y - координаты пиксела R, G, B - составляющие цвета (красный, зеленый и синий соответственно). Значение типа byte, т.е. от 0 до 255 для каждой компоненты. E-Mail: arigato.freelance@gmail.com
|
27.07.2008, 15:52 | #3 |
Форумчанин
Регистрация: 01.02.2007
Сообщений: 785
|
Вопрос решил, примерно, не совсем красиво, правда, полдучилось...
Выкладываю исходник. Если есть другие варианты решений, то буду благодарен за их предоставление. Есть также исходник покороче, средствами OpenGl. но это не совсем спектр... тоже выкладываю...
Изо всей благодати
В руках крепко сжатых Я донесу только капли |
27.07.2008, 17:09 | #4 |
Высокая репутация
СуперМодератор
Регистрация: 27.07.2008
Сообщений: 15,646
|
Набросал небольшой примерчик. Выводится непрерывный спектр (в соответствии с порядком следования цветов в радуге).
Масштабирования по размерам окна не производится. Длинна спектра = 6 * 256 = 1536 пикселей. Высота спектра подгоняется под высоту окна. Код:
E-Mail: arigato.freelance@gmail.com
Последний раз редактировалось Arigato; 27.07.2008 в 17:13. |
27.07.2008, 17:41 | #5 |
Форумчанин
Регистрация: 01.02.2007
Сообщений: 785
|
да, выглядит намного лучше, да и код короткий
замечательно. спасиб!
Изо всей благодати
В руках крепко сжатых Я донесу только капли |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
как вывести число | qwerty34 | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 3 | 25.08.2008 14:14 |
как вывести текст из БД | nikleb | PHP | 2 | 27.06.2008 10:13 |
средствами Delphi на форму вывести погоду выбранного города. | Aleksandr | Общие вопросы Delphi | 12 | 26.09.2007 00:21 |
Как изменить стандартную форму на форму любой сложности | QwErEn | Общие вопросы Delphi | 9 | 08.06.2007 11:44 |
Как вывести запрос на форму ? | Руслан | БД в Delphi | 2 | 26.01.2007 17:01 |