Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2006.02.19;
Скачать: [xml.tar.bz2];

Вниз

Посоветуйте   Найти похожие ветки 

 
alec_sey   (2006-02-02 15:04) [0]

Здравствуйте уважаемые, не подскажите можно ли сделать следующим образом: нарисовать
на форме линии к примеру чёрного цвета(ну линии можно), которые соеденены между
собой, как бы разветвлённых трубопровод, есть начальная точка с которой линии
постепенно окрашиваются в другой цвет подобно  растеканию воды. может есть у кого хотя бы
что то подобное, скинте пожалуйста или дайте хотя бы совет.


 
Eraser ©   (2006-02-02 15:42) [1]


> alec_sey   (02.02.06 15:04)


>  или дайте хотя бы совет.

Осуществляй проприсовку методами класса TCanvas (form1.Canvas) в обработчике OnPaint .. или же рисуй на TBitmap а потом в OnPaint переноси на форму.


 
Kolan ©   (2006-02-02 15:46) [2]

Все можно.

Вопросы в чем?
Нужно придумать алгоритм рисования и заполния другим цветом.
Нужно это нарисовать.


 
Гошик Кувшинов   (2006-02-02 17:19) [3]

Как рисовать разноцветыне линии гляди сюда http://www.delphikingdom.com/asp/viewitem.asp?catalogid=94

а про плавные переходы цвета сюда http://www.delphikingdom.com/asp/viewitem.asp?catalogid=1090


 
antonn ©   (2006-02-02 18:45) [4]

по моему ему не плавные переходы нужны...
т.е. как я понял, линия, например черная, и начиная с одного из концов попиксельно окрашивается в синий цвет. есть пересекается с другой черной, то и другая тоде начинает также окрашиваться.
как сделать - не знаю:)


 
Zeqfreed ©   (2006-02-02 18:49) [5]

antonn ©   (02.02.06 18:45) [4]

> как сделать - не знаю:)

Чего там знать-то? :)
Хотя, все конечно зависит от конкретной задачи. Если линии перпендикулярные и одинаковой толщины, то проблемы вообще никакой нет.


 
antonn ©   (2006-02-02 20:00) [6]

Zeqfreed ©   (02.02.06 18:49) [5]
автор уже, наверное, ждет совета:)


 
alec_sey   (2006-02-03 12:55) [7]

Ну antonn правильно понял, есть нач. точка, линия к примеру идёт от левого
края к правому, а затем под наклоном обратно, если я к примеру буду
делать так
for x:=0 to 1000 do
 for y:=0 to 1000 do
if canvas.picsels[x,y]=clblack then
  canvas.picsels[x,y]:=clred
но так будет окрашиваться всё от левого края к правому, а нужно чтобы всё
это дело ишло по линия которая может возвращаться назад,
Пробовал ещё так линия начиналась с красного пикселя, и я пробовал
переберать соседние пиксели дальше или ближе, выше или ниже и диогональные на 1 пиксель от красного и если проверяемый пиксель чёрного
цвета тогда ему присваеваеться красный цвет и так далее, но что то несовсем получаеться может тогда как это сделать правильно
вы знаете?
Мне желательно сделать эту проверку таймером



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

Форум: "Начинающим";
Текущий архив: 2006.02.19;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.056 c
2-1138661197
Dormidont
2006-01-31 01:46
2006.02.19
Реализация функции Find для TRichEdit


1-1137507030
belenkov
2006-01-17 17:10
2006.02.19
Циклический опрос COM порта


1-1136990344
DelphiLexx
2006-01-11 17:39
2006.02.19
Сохранить рисунок с TPanel


2-1137979351
TUpDown
2006-01-23 04:22
2006.02.19
Как изменить цвет TUpDown?


3-1134878044
atruhin
2005-12-18 06:54
2006.02.19
Передается ли блоб на клиента из процедуры





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский